Dosyaların Klasörünü Değiştirmek

[baydeniro]

Merhaba Arkadaşlar,

Excelin içinden klasör altındaki herhangi bir formattaki (.jpg .png .doc .xlsm .txt vs) dosyaların klasörünü değiştirmek mümkün mü ?
Farzeedelim ki C:\KAYIT\ klasörü altında adında NEW geçen dosyalar var. Bunları VBA kodu yoluyla C:\NEW\ klasörü altına taşımak mümkün mü ?

USA_NEWYORK.jpg
USA_SAN FRANSISCO.png
INDIA_NEW DELHI.png
USA_NEW JERSEY.txt
JAPAN_TOKIO.jpg

 

[euphrates55]

klasörün içindeyken sağ üste arama kutusuna new yazın. çıkanları kesin istediğiniz yere yapıştırın.

 

[baydeniro]

euprates55 fikir paylaşımı için teşekkürler. Makro ile yapmanın olanağı olup olmadığını merak etmiştim.

 

[veyselemre]

Sub test()
    With CreateObject("Scripting.FileSystemObject")
        If Not .folderexists("C:\NEW") Then .CreateFolder "C:\NEW"
        If Dir("C:\KAYIT\*NEW*") <> "" Then .movefile "C:\KAYIT\*NEW*", "C:\NEW\"
    End With
End Sub

 

[baydeniro]

Sayın veyselemre üstadım çok çok teşekkür ediyorum. Harika bir kod. sağlıcakla kalın