A Sutununda verilen resim isimlerini (jpg) belirtilen Klasör içinden silinmesi

[tahsinanarat]

Ekli dosyada, Sn. Zeki Gürsoy hocamın yardımlarıyla http://www.excel.web.tr/showthread.php?t=47051 linkindeki A Sutununda belirtilen resim isimlerini belirtilen klasöre kopyalama yapmak mümkündür.
Şimdi ise A sutununda bilirtilen dosya isimlerinin belirtilen klasör içinden bu isimli resim dosyalarının (jpg uzuntalı) silinmesini istiyorum. Saygılarımla

 

[tahsinanarat]

Ekli dosyada, Sn. Zeki Gürsoy hocamın yardımlarıyla http://www.excel.web.tr/showthread.php?t=47051 linkindeki A Sutununda belirtilen resim isimlerini belirtilen klasöre kopyalama yapmak mümkündür.
Şimdi ise A sutununda bilirtilen dosya isimlerinin belirtilen klasör içinden bu isimli resim dosyalarının (jpg uzuntalı) silinmesini istiyorum. Saygılarımla

 

[tahsinanarat]

Konunun iptal olduğunu sanarak yeniden açmıştım, özür dilerim. Dosya eki diğer açtığım konu ekindedir.

 

[tahsinanarat]

cevap verecek kimse yokmu arkadaşlar

 

[tahsinanarat]

Sn. hocalarım, dosyaya bir göz atarsanız sevinirim, a sutunundaki isimlere göre dosya silme. Şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Önemli not: Aşağıdaki kod, dosyaları geri dönüşü olmayan şekilde sildiğinden mutlaka bir deneme klasöründe denendikten sonra kullanılmalıdır. Aksi takdirde kaybedeceğiniz dosyalarınızdan dolayı hiç bir şekilde sorumluluk kabul edilmeyecektir.

Sub DosyaSil()
Set deg = CreateObject("Scripting.FileSystemObject")
For a = 2 To [a65536].End(3).Row
If deg.FileExists([C1] & ":\" & [d1] & "\" & Cells(a, "a") & ".xls") = True Then
deg.DeleteFile [C1] & ":\" & [d1] & "\" & Cells(a, "a") & ".xls", True
End If
Next
End Sub

 

[tahsinanarat]

Sn. Levent Menteşoğlu elinize ve emeğinize sağlık, kodlar tam istediğim gibi çok teşekkür ederim. Sağolun.