Dosyaları Klasörlerine taşımak

[k0081]

Merhaba arkadaşlar;
Dosyaları, Aynı İsimde bulunan klasörlerine buton yardımı ile nasıl taşıtabilirim..?

A klasörü (dosya isimde klasörler, A klasörü içinde mevcuttur.)
1.jpg
deneme.dwg
record.exe
vdc.dll
...

gibi dosyalar mevcut. yapmak istediğim dosyaları Klasörlerine taşımak..

1 klasörü içine;
1.jpg

deneme klasörü içine;
deneme.dwg

record klasörü içine
record.exe

vdc klasörü içine
vdc.dll

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

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub KlasorOlusturma3()
    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
         fs.MoveFile "C:\" & f1.Name, "C:\" & fs.getbasename(f1.Name) & "\"
    Next
    MsgBox "Klasörler Oluşturuldu ve Dosyalar İlgili Klasörlere Taşındı."
End Sub

 

[k0081]

hocam denedim, Flashdisk üzerinde (G:\) sürücüsü.. sadece mesajı verdi. ama herhangi bir taşıma yapmadı.

 

[hamitcan]

Siz, öncelikle C sürücüsünde deneyin sonra flash disk üzerinde denersiniz.

 

[k0081]

C:\ sürücüsünde denedim. orda çalışıyor sanırım. alttaki hatayı verdi.. Peki hocam bu olay flashdisk üzerinde neden olmuyor..?

 

[hamitcan]

"İzin verilmedi" gibi bir hata mesajı veriyor. Eğer C sürücüsünde doğru çalışıyor ise yetkilendirme ile ilgili bir sorun olabilir.

 

[k0081]

hamitcan

Tamam hocam.. Teşekkürler..