c:\dvdTemp\... altındaki klasör içeriği boşsa sil

[hsayar]

d:\dvdTemp\
adlı bir klasörüm var burada geçici bir süre dvdlerin boyutlarını yaralamak için önce kopyalarını oluşturuyorum ve bastıktan sonrra siliyorum.
şimdi bu yol içeriğinde içinde dosay olmayan bütün klasörleri excel vba yardımı ile nasıl silerim.

 

[Zeki Gürsoy]

Klasör seçeme diyaloğundan taratmak istediğiniz klasörü seçin.

Sub Klasor_Sil()
Dim klasor As Object
Set klasor = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Lütfen bir klasor seçin !", 1)
    If klasor Is Nothing Then Exit Sub
 
    yol = klasor.Items.Item.Path
 
    Liste (yol)
 
    Set klasor = Nothing: Exit Sub
End Sub
 
Sub Liste(yol As String)
Dim fL As Object, f As Object
DoEvents
 
Set fL = CreateObject( _
    "Scripting.FileSystemObject").GetFolder(yol).SubFolders
 
On Error Resume Next
 
For Each f In fL
  If Dir(f.Path) = "" Then RmDir f.Path
  Liste (f.Path)
Next
 
Set fL = Nothing
End Sub

 

[hsayar]

teşekkürler hocam 100 lerce kalasörü manuel kontrol etmekten kurtuldum.

 

[hsayar]

Klasör seçeme diyaloğundan taratmak istediğiniz klasörü seçin.

seçilen klasör ve alt klasörlerindeki dosyaları listelemek istersek nasıl olmalı?

 

[Zeki Gürsoy]

Bir liste kutusuna alacaksanız,

For Each f In fL
  Listbox1.Additem f.Path
  Liste (f.Path)
Next

değişikliği yapınız.

 

[hsayar]

teşekkürler hocam
a2 den itibaren llistelenmesi nasıl olamlı

 

[Zeki Gürsoy]

teşekkürler hocam
a2 den itibaren llistelenmesi nasıl olamlı

i = 1
[LEFT]For Each f In fL
  i = i + 1
  Range("a" & i) = f.Path
  Liste (f.Path)
Next[/LEFT]

 

[hsayar]

teşekkürler