Klasör içinde dosya arama ve silme

[sipkam]

Bir klasör içinde, örneğin içinde "mid" geçen dosyaları bulup otomatik sıra ile silecek bir makroyu nasıl yazarız?

 

[cebir]

merhaba.

Private Sub CommandButton1_Click()

ChDir "C:\veri"
Dosya = Dir("*mid*")
While Dosya <> ""
Kill Dosya
Dosya = Dir
Wend
ChDir "C:\"

End Sub

 

[Zeki Gürsoy]

Dosya yolunu (Path) iste&#287;inize g&#246;re de&#287;i&#351;tirirsiniz.

Sub Sil_()
Dim Path As String, File As String, oDir As String
 
On Error Resume Next
Path = "D:\Test\"
File = "*mid*"
oDir = Dir(Path & File)
 
If oDir = "" Then Exit Sub
 
While oDir <> ""
    Kill Path & oDir
 
    If Err <> 0 Then        
        MsgBox Err.Description
        Err.Clear
    End If
 
    oDir = Dir
Wend
End Sub

 

[hesrefoglu]

Bu i&#351;lemi a&#287; &#252;zerindeki ba&#351;ka bir PC de mesela Server adl&#305; pc de yapmak i&#231;in kodlar&#305; nas&#305;l d&#252;zenlemek gerekir.
Bu konuda yard&#305;mc&#305; olursan&#305;z sevinirim