Klasörde Dosyayı Bulma

[hakanbolat]

Arkadaşlar örnekleri inceledim,aramada yaptım bulamadım, benim şu şekilde sorum var yardımcı olursanız sevinirim,

Private Sub silincek_Click()
On Error Resume Next
Dim fso As FileSystemObject
Set fso = New FileSystemObject
fso.DeleteFolder "C:\HAKAAN\" & firma.Caption & yıl.Caption, True
End Sub

Bu formülde "C:\HAKAAN\" klasöründe ilgili firma klasörünü bulamazsa beni uyarsın
klasör yok desin, işlemi durdursun, yapma imkanımız varmı acaba, yardımlarınız için şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Kodunuzu aşağıdaki ile değiştirin:

Sub klasor_kontrol()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
If ds.FolderExists("C:\HAKAAN\" & firma.Caption & yıl.Caption) = False Then
MsgBox "Klasör bulunamadı.", vbCritical, "UYARI"
Else
ds.DeleteFolder "C:\HAKAAN\" & firma.Caption & yıl.Caption
MsgBox "Klasör silindi.", vbInformation, "İşlem başarılı..."
End If
End Sub