Dosya isimlerine göre Klasör olusturmak

[k0081]

Merhaba arkadaşlar;
Klasör içine Dosya isimlerini baz alarak; buton yardımı ile FOLDER oluşturmak..

A klasörü içinde;

1.jpg
deneme.dwg
record.exe
vdc.dll
...

gibi dosyalar mevcut. yapmak istediğim dosya adlarına göre Klasör oluşturmak.

A klasörü içine;

1, deneme, record, vdc isminde klasörler oluşturmak..


yardımcı arladaşlara şimdiden teşekkürler.

 

[hamitcan]

Dosya yolunuzu girerek istediğiniz klasörleri oluşturabilirsiniz.

Sub KlasorOlusturma()
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("C:\")
    Set fc = f.Files
    For Each f1 In fc
        a = fs.FolderExists("C:\" & fs.getbasename(f1.Name))
        If a = False Then
            fs.CreateFolder "C:\" & fs.getbasename(f1.Name)
        End If
    Next
    MsgBox "Klasörler Oluşturuldu."
End Sub

 

[k0081]

Dosya yolunuzu girerek istediğiniz klasörleri oluşturabilirsiniz.


Hocam çok Teşekkür ediyorum, Tamamdır.. Yolu; Excel Tablom nerede ise , oradaki klasörleri, oluştursun şeklinde bir düzenleme olabilir mi ?

 

[hamitcan]

"C:\"

yerine

ThisWorkBook.Path

satırını kullanabilirsiniz.

 

[k0081]

hamitcan;

Teşekkürler hocam.. Tamamdır..