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

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

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

Mesaj gönderen Bien » 03 Ağu 2012, 12:40

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 ?



Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28508
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

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

Mesaj gönderen velociraptor » 03 Ağu 2012, 15:00

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

Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

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

Mesaj gönderen Bien » 03 Ağu 2012, 22:55

Kopyalamayı nasıl yapa biliriz peki ?

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28508
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

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

Mesaj gönderen velociraptor » 03 Ağu 2012, 23:08

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ı
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

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

Mesaj gönderen Bien » 03 Ağu 2012, 23:16

Teşekkürler :)

Cevapla