Vbs ile uzantılarına göre dosyaları taşımak
- Bien
- Kilobyte3
- Mesajlar: 471
- Kayıt: 04 Haz 2012, 16:47
Vbs ile uzantılarına göre dosyaları taşımak
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
- Yottabyte3
- Mesajlar: 29035
- Kayıt: 14 Mar 2006, 02:33
- cinsiyet: Erkek
Re: Vbs ile uzantılarına göre dosyaları taşımak
seçmeli kopyalama yapabilirsin ama taşıma her nedense sorunlara yolaçıyor
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free
- Bien
- Kilobyte3
- Mesajlar: 471
- Kayıt: 04 Haz 2012, 16:47
Re: Vbs ile uzantılarına göre dosyaları taşımak
Kopyalamayı nasıl yapa biliriz peki ?
- velociraptor
- Yottabyte3
- Mesajlar: 29035
- Kayıt: 14 Mar 2006, 02:33
- cinsiyet: Erkek
Re: Vbs ile uzantılarına göre dosyaları taşımak
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
Kaynak: Kapalı olan sordum.net anasayfası
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
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free
- Bien
- Kilobyte3
- Mesajlar: 471
- Kayıt: 04 Haz 2012, 16:47
Re: Vbs ile uzantılarına göre dosyaları taşımak
Teşekkürler 
