Pytanie : Sprawdzać jeżeli kartoteka w użyciu i życiorys

Cześć guys

Got program który siedzieć i sprawdzać dla the istnienie kartoteka, jeżeli ono znajdować ono kasować it.

That praca wielki ale ive miewać the pierwszy skarga że błąd rzucać gdy the prog biegać na swój zegar, i the app który tworzyć the kartoteka wciąż używać ono, dawać kartoteka w użyciu error.

I próbować próba/chwyt mój prog jeżeli the kartoteka być w użyciu, omijać jeżeli ono być lub kasować jeżeli ono być. ale i cant praca ono ono.

Any suggestions 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

Private Okręt podwodny tmrA_Tick (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się tmrA.Tick
            Ciemnawy FileToDelete Sznurek
            Ciemnawy filetodelete1 Sznurek


            FileToDelete = "C:\Documents and Settings\" + Environment.UserName +" \ Lokalny Położenie \ Zastępca \ routerequest1.html "
            filetodelete1 = "C:\Users\" + Environment.UserName +" \ appdata \ miejscowy \ zastępca \ routerequest1.html "
            Próba

                Ciemnawy FS Jako IO.FileStream = IO.File.Open (filetodelete1, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.None)

                FS.Close ()
                FS.Dispose ()
              
            Jeżeli System.IO.File.Exists (FileToDelete) = Prawdziwy Wtedy

                System.IO.File.Delete (FileToDelete)


            Kończyć Jeżeli
            Jeżeli System.IO.File.Exists (filetodelete1) = Prawdziwy Wtedy

                System.IO.File.Delete (filetodelete1)

             

            Kończyć Jeżeli

            Łapać ex Jako IO.IOException



            
            Kończyć Próba

Odpowiedź : Sprawdzać jeżeli kartoteka w użyciu i życiorys

Intymny Okręt podwodny tmrA_Tick (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się tmrA.Tick
      Ciemnawy FileToDelete Sznurek
      Ciemnawy filetodelete1 Sznurek
      Ćmić kasować Boolowski = Fałszywy
      Ćmić fi1 Jako Nowy System.IO.FileInfo (FileToDelete)
      Ćmić fi2 Jako Nowy System.IO.FileInfo (filetodelete1)

      FileToDelete = "C:\Documents and Settings\" + Environment.UserName +" \ Lokalny Położenie \ Zastępca \ routerequest1.html "
      filetodelete1 = "C:\Users\" + Environment.UserName +" \ appdata \ miejscowy \ zastępca \ routerequest1.html "

      Podczas Gdy Kasować
            Próba
                  Jeżeli fi1.Exists Wtedy
                        fi1.Delete ()
                  Kończyć Jeżeli

                  Jeżeli fi2.Exists Wtedy
                        fi2.Delete ()
                  Kończyć Jeżeli

                  kasować = Prawdziwy
            Chwyt iO.IOException Jako IO.IOException
                  kasować = Fałszywy
            Końcówka Próba
      Kończyć Podczas Gdy
Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us