Vbs de sürükle bırak ile işlem yaptırmak

VBscript te sürükle bırak ile işlem yaptır
Geçenlerde bir takipçimiz vbs de sürükle bırak ile işlem yapılabilirmi diye bir soru sormuştu kendisine bu konuda bir başlık açacağımızı belirtip kısaca cevaplamıştık , elbetteki email ile sorulan sorular genelde

yazışan iki kişi arasında kaldığı için bizler bu tarz soruların cevaplarını bu yazımızda olduğu gibi elimizden geldiğince anasayfamıza taşımaya çalşıyoruz , sürükle bırak aynı anda birden fazla dosya üzerinde de işlem yapmaya elverişli olduğundan kullanışlı olabilmektedir mesela aşağıdaki örneğimizde üzerine sürüklenip bırakılan bir dosyanın veya klasörün yolununu görebilmekteyiz.

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
   WScript.Echo objArgs(I)
Next

Eğer aynı anda iki dosya sürüklenip bırakılırsa ardı ardına her ikisininde yolunu verecektir.

VBscript te sürükle bırak

Üstteki dört satırlık kodda "WScript.Echo objArgs(I)" yerine yaptırmak istediğimiz herhangi bir işlem ile ilgili kodları kullanırsak sürükle bırak neticesi o işlemi yaptırtabiliriz , mesela diyelimki herhangi bir .txt dosyasını ilgili vbs nin üzerine sürükleyip bırakınca alt alta gelecek şekilde sırası ile "www.sordum.net" ve "Velociraptor" satırlarını yazdıralım , üstteki kodda değiştireceğimiz kısmı bildiğimiz için ilgili yazdırma kodlarını "WScript.Echo objArgs(I)" kısmını silip buraya yazarsak aşağıdaki şekli alacaktır

On Error resume next
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
Set fso = CreateObject("Scripting.FileSystemObject")
FilePath = objArgs(I)
Set myfile = fso.CreateTextFile(FilePath,2)
myfile.WriteLine "www.sordum.net"
myfile.WriteLine "Velociraptor"
set myfile =Nothing
set fso=Nothing
Next

bu kodları içeren Vbscript'in üzerine herhangi bir veya birden fazla .txt dosyasını sürükleyip bıraktığımızda ilk iki satırı otomatik olarak "www.sordum.net" ve "Velociraptor" halini alacaktır.

Vbscript ile otomatik yazdır

Bu yöntem bazı durumlarda Klasöre gözat penceresinin geldiği ve işlem yapmak için birsürü klasör arasından ilgili dosya veya klasörü seçtiğimiz ekrandan çok daha pratik olabilmektedir, aşağıda sizler için hazırladığımız bazı örnekleri indirebilirsiniz.

NOT: Bu sürükle bırak kodlarını içeren VBscript i sağ tuşa ekleyerek direkt sağ tuş üzerinden de çalıştırabilirsiniz Böylece Bir dosya ve klasörün üzerine tıklayıp işlem yaptırma pratikliği elde edebilirsiniz.