Potrebna pomoć.... (brisanje fajlova i error handler)

[ VRKY @ 13.09.2004. 16:11 ] @

PoZdrav
Pravim program za brisanje fajlova i foldera...
Za to koristim naredbe kill i DelTree32 , na formi imam text1 i commandbutton
Kod za ide ovako

Code:

Private Sub Command1_Click()
Kill Text1.Text
DelTree32 Text1.Text
End Sub

Znači kad korisnk upiše u text1 lokaciju fila ili foldera i pritisne commnad button izbriše se taj fajl ili folder..
Ja još želim da ako nema taj fajl da prikaže neku poruku...
Znam da za to treba ono

Code:

On error Goto pogreška

Ali kako sad da program prepozna taj error i da napiše odgovarajuću poruku npr file not exist ili inposible to delet the file...
Mislim da ste me shavtili

[ Marko_L @ 13.09.2004. 17:24 ] @

Svaka greška, odnosno svaki error ima svoj broj, na osnovu kog se određuje koja je greška u pitanju.Potrebno je samo da vidiš broj greške koji se javlja i onda napraviš selekciju, ovako nešto:

Code:
pogreska:
Select Case Err.Number
Case [broj greske]
'uradi to i to
Case [broj greske]
'to i to
End Select

[ Aleksandar Ružičić @ 13.09.2004. 17:33 ] @

sta ima da petljas sa kill i deltree kad sve to lakse i bolje moze da se uradi sa FSO-om?

[ VRKY @ 13.09.2004. 20:47 ] @

Ma počeo sam već onako... pa...
Hvala...