Vbs ile uzantılarına göre dosyaları taşımak

[Bien]

Vbs ile bir klasörün içinde bulunan .bat uzantılı dosyaları başka bir dizine taşıyacak kodlar arıyorum ama elinizde var mı böyle bir şey ?

[velociraptor]

seçmeli kopyalama yapabilirsin ama taşıma her nedense sorunlara yolaçıyor

[Bien]

Kopyalamayı nasıl yapa biliriz peki ?

[velociraptor]

Sorun: C dizininde a isimli bir klasörüm var bu klasörün icinde de bircok alt klasör var (degisik isimlerde) , ve bu alt klasörlerin icinde bircok dosya var , ben bu a klasörümün ve tüm alt klasörlerinin icinde yeralan sadece .txt dosyalarini tek tikla D:\Archive\ klasörüme kopyalamak istiyorum bu mümkünmüdür

Cözüm: asagidaki kodlar ile C nin icindeki a klasöründe yeralan tüm .txt uzantili dosyalari ve onun alt klasörü olan New Folder in icerigindeki .txt uzantili dosyalari D:\Archive klasörüne kopyaladim , sen simdi her bir alt klasör icin bir satir ilave ederek bir tikla klasör ve tüm alt klasörlerin icerigini istedigin bir klasörün icine atabilirisin

Kod: Tümünü seç

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\a\*.txt" , "D:\Archive\" , OverwriteExisting
objFSO.CopyFile "C:\a\New Folder\*.txt" , "D:\Archive\" , OverwriteExisting

Kaynak: Kapalı olan sordum.net anasayfası

[Bien]

Teşekkürler