Vbscript ile Dosya veya Klasör kopyalayın


Vbscript ile Dosya veya Klasör kopyalayın
Bir dosyayı veya Klasörü kopyalamak veya taşımak için çoğu durumda fare ile sağ tıklayıp açılan menüde yeralan kopyala veya kes özelliğini kullanırız gel gelelim belirli zamanlarda belirli dosyaları bir tıkla


veya otomatik olarak biryerden biryere kopyalamanız veya taşımanız gerekebilir ve bunu yapman ın en kolay yolu bat veya Vbscript tir Powershell son zamanlarda microsoftun gayretleri ile popüler olmaya çalışan diğer bir alternatif yöntem olarak kullanılabilir. Aşağıdaki örneklerimizde önce bir dosyayı sonrada bir klasörü VBscript ile kopyalayacağız.

1. Vbs ile bir dosyayı diğer konuma kopyalayın

Test amacıyla "D:\sordum.txt" isminde bir dosya oluşturdum ve bunu C:\ dizinine kopyalayacağım bu durumda aşağıdaki kodları kullanabiliriz.

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "D:\sordum.txt" , "C:\" , OverwriteExisting
msgbox "islem tamam!"

Elbette Kopyalayacağınız dosya ismi veya dizini farklı olacağından kodları kendinize göre düzenlemeniz gerekecektir.

"D:\sordum.txt" (kopyalanacak dosya)
"C:\" (Kopyalanacağı yer)

Eğer siz "sordum.txt" dosyasını direkt olarak "C:\" dizinine değilde mesela "C:\Intel" klasörünün içerisine veya başka bir klasöre kopyalamak isteyebilirsiniz bu durumda kopyalama satırını aşağıdaki şekilde değiştirmeniz gerekecektir.

objFSO.CopyFile "D:\sordum.txt" , "C:\Intel\" , OverwriteExisting

Üstteki kodlarda Dikkat edilirse C:\Intel\ , klasörün ismini belirtmektedir. Peki ya bir klasörün tamamını veya içeriğini kopyalamak istersek hangi kodları kullanırız.

2. Vbs ile bir klasörü veya içeriğini kopyalayın

Varsayalım içerisinde Log dosyaları olan bir klasörünüz var , bendeki örnekte bu klasör "C:\Intel\Logs"

Intel Log dosyaları

"C:\Intel\Logs" klasörünü (Logs) tamamen başka bir dizine kopyalayabileceğimiz gibi sadece içerisindeki dosyaları da kopyalayabiliriz. Varsayalım ben Logs klasör içeriğini olduğu gibi "C:\Test" klasörünün içerisine kopyalamak isteyeyim bu durumda aşağıdaki kodları kullanmam gerekecektir.

a) Klasör içeriğini kopyalayın

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Intel\Logs" , "D:\Test" , OverwriteExisting
msgbox "islem tamam!"

Eğer Logs klasörünün sadece içeriğini değil komple kendisini "C:\Test" klasörünün içerisine kopyalayacaksam bu durumda aşağıdaki kodları kullanam gerekir.

VBs ile klasör kopyala

a) Klasörün kendisini kopyalayın

Const OverwriteExisting = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Intel\Logs" , "D:\Test\" , OverwriteExisting
msgbox "islem tamam!"

Kodlar aynı görünmesine rağmen küçük bir farklılık mevcuttur oda içeriği kopyalarken D:\Test kodunu kullandık oysa klasörün kendisini kopyalarken ise D:\Test\ komutunu kullandık yani sonda "\" işareti var.

- vbs ile bir klasör içeriğini kopyalamak Burada

- .vbs ile Panoya (clipboard) birşey kopyalamak Burada

- Vbs ile bir klasörü tüm alt klasörleri ile birlikte taşımak Burada

- Yol olarak kopyala tırnak işaretsiz olsun Burada

- Seçmeli kopyalama yapmak Burada

- Sağ tuşa Tümünü seç özelliği ekleyin Burada

- Bir dosyayı .bat ve .vbs komutları ile taşıyalım Burada

- Script dosyası ile web sayfası açın Burada

- Dosya ismine değiştirme tarihini ilave edin Burada

19 Temmuz 2010 Tarihli başlık güncellendi


5 Yorum Var

Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Captcha