txt dosya silme

[ozuberk]

Mevcut Excel dosyasının yolunda Deneme (Deneme1, Deneme2 vs.) adıyla başlayan txt dosyalarını silmek istiyorum.

 

[PLİNT]

Merhaba
Dosyalarınızın yedeğini alarak
aşağıdaki gibi deneyebilirsiniz

Kill ThisWorkbook.Path & "\" & "Deneme*" & ".txt"

 

[ozuberk]

Merhaba cevap için teşekkür ederim. İlgili dosya var ise makro çalışsın yok ise çalışmasın bunun için nasıl bir kod yazmamız gerekiyor. Dosya olmayınca hata veriyor.

 

[PLİNT]

İlgili dosya derken; yukarıdaki kodlar makro bulunan dosyanın yanındaki; adı "deneme" ile başlayan tüm ".txt" dosyalarını silecektir, seçerek silmesi için ayrı kod yazmak gereklidir
(adı "deneme" ile başlayan dosya hiç yok ise) hata vermesin derseniz şöyle olabilir

If Dir(ThisWorkbook.Path & "\" & "Deneme*" & ".txt", vbDirectory) <> "" Then _
Kill ThisWorkbook.Path & "\" & "Deneme*" & ".txt"

 

[ozuberk]

Cevap için teşekkürler. Başka bir sorudan yararlanarak aşağıdaki kodu denedim oldu.

Sub Txt_Dosyalari_Sil()
Dim Dosya
Dosya = Dir(CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path) & Application.PathSeparator & "\" & "Deneme*" & "*.txt*", vbDirectory)
Do While Dosya <> ""
Kill ThisWorkbook.Path & Application.PathSeparator & Dosya
Dosya = Dir
Loop
End Sub

 

[ozuberk]

Yukarıdaki kodlar EmrExcel16 üstadın cevap vermiş olduğu Klasör İçindeki PDF dosyalarını Silme konudan alarak düzenlenmiştir. EmrExcel16 ve PLİNT üstatlara yardımlarından dolayı tekrar teşekkür ederim.

https://www.excel.web.tr/threads/klasoer-icindeki-pdf-dosyalarini-silme.185771/