Vbs İle İstediğiniz Dosyaları ve Belirli Uzantıları Kopyalay

[kefir]

Vbs kodları yardımı ile bir dosyayı veya bir klasörü başka bir yere kolaylık ile taşıya bilirsiniz.İsterseniz belirli ızantıdaki dosyaları kopyalaya bilirsiniz.

Dosya Kopyalamak

Öncelikle aşağıdaki kodların ne işe yaradığını kısaca anlatayım.

Kod: Tümünü seç

Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "kopyalama.txt" , "S:\" , OverwriteExisting
msgbox "Kopyalama İşlemi Bitti"

Ben gene kısaca aşağıdaki kodların ne işe yaradığını kısaca anlatayım.

Kod: Tümünü seç

Const OverwriteExisting = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "deneme" , "M:\" , OverwriteExisting
msgbox "İşlem Tamamlandı"

Yukarıdaki kodlarda dikkat ettiyseniz ikisi de bir birine benziyor fakat küçük bir değişiklik ile birisi klasör diğeri de dosya kopyalayacağımızı belirliyor.

objFSO.CopyFile "kopyalama.txt" --->objFSO.CopyFile komutu dosya kopyalayacağımız anlamına geliyor.
objFSO.CopyFolder "deneme" --->objFSO.CopyFolder komutu klasör kopyalayacağımız anlamına geliyor.

Uzantısına Göre Dosya Kopyalamak

Aşağıdaki kodların açıklamaları ile başlayalım gene.

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\Yeni klasör\*.txt" , "D:\Archive\" , OverwriteExisting

Yukarıdaki kodlar ile ilgili söylemek istediğim bir kaç şey daha var.

"C:\a\*.txt" --> Burada bulunan *.txt komutu uzantıyı kopyala anlamına gelir.Yani buraya *.bat yazarsanız klasörün içinde bulunan bat dosyalarını kopyalar.
Bir diğeri ise

"C:\a\Yeni klasör\*.txt" --> Burada a klasörünün içinde birden fazla klasör olabilir Yeni klasör,Yeni klasör1... gibi yüzlerce dosya olabilir.Onların içinde de bulunan .txt uzantılı dosyaların kopyalanmasını istiyorsanız o zaman tüm klasörlerin isimlerini buradaki bjFSO.CopyFile "C:\a\Yeni klasör\*.txt" , "D:\Archive\" , OverwriteExisting satırda olduğu gibi tek tek yazmanız gerekiyor.

Vbs ile dosya kopyalamak ile ilgili benim anlatacaklarım bu kadar.