• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Klasörlerden dosya silme

Katılım
15 Temmuz 2012
Mesajlar
2,802
Excel Vers. ve Dili
Ofis 2021 TR 64 Bit
Merhaba hayırlı geceler.

Ekte gönderdiğim rar klasörü içerisinde klasörler var, bu klasörler içerisindede çeşitli dosyalar var, isimlerini belirlemiş olduğum dosyaları klasörlerden tek seferde silmek istiyorum.

Forumda ve internette araştırdım ancak bir klasör yolu yazılı olduğu için işimi yapamadım.

Yardımcı olur musunuz?

http://dosya.co/30hbgojay99x/DOSYALAR.rar.html
.
 

Ekli dosyalar

Son düzenleme:
kod:

Kod:
Sub dosyaları_sil()
Set Klasor = CreateObject("shell.application").BrowseForFolder(0, "Kaynak Dosyaları İçeren Klasörü Seçin", 50, &H0)
If Not Klasor Is Nothing Then
Kaynak = Klasor.self.Path
If InStr(1, Kaynak, "{") > 0 Then GoTo Atla

Liste4 (Kaynak)
Set Klasor = Nothing
MsgBox "işlem tamam"
Else
Atla:
MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"
End If
End Sub
Private Sub Liste4(yol As String)
Dim fL As Object, fs As Object, f As Object, j As Long, n As Long
Set fL = CreateObject("Scripting.FileSystemObject")
If Right(yol, 1) <> "\" Then ekle = "\"

For i = 2 To Cells(Rows.Count, "b").End(3).Row
aranan = Cells(i, 2).Value

For Each Dosya In fL.GetFolder(yol).Files
If aranan = fL.GetBaseName(Dosya) Then
fL.DeleteFile Dosya
End If
Next

Next

On Error GoTo sonraki
For Each f In fL.GetFolder(yol).subfolders
Liste4 (f.Path)
sonraki:
Next

Set fL = Nothing

End Sub
 
Sayın Halit Bey ilginiz için çok teşekkür ediyorum, tam istediğim gibi olmuş ellerinize sağlık.

Hayırlı günler hayırlı çalışmalar diliyorum.
 
Alternatif;

* Adı örnek2 olan ve uzantısı herhangi bir uzantı olan tüm dosyalar silinir.
C kolonunda cevap EVET olduğu için örnek2 ile ÖRNEK2 aynı kabul edilir.
örnek2.*

* Adı örnek2 olan ve uzantısı herhangi bir uzantı olan tüm dosyalar silinir.
C kolonunda cevap HAYIR olduğu için örnek2 ile ÖRNEK2 aynı kabul edilmez.
örnek2.*

* Dosya uzantısı .xlsx olan tüm dosyalar silinir.
*.xlsx

* Dosya adları birebir aynı tutuyor ise silinir.
ÖRNEK
ÖRNEK.xlsx
ÖRNEK.docx

http://www.excel.web.tr/f52/excel-oklu-dosya-silme-programy-t162002.html
 
Sayın asri size de çok teşekkür ediyorum, güzel bir çalışma olmuş, ellerinize sağlık.

Hayırlı çalışmalar, hayırlı akşamlar.
 
Geri
Üst