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


Vbs de sürükle bırak ile işlem yaptırmak
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.

Vbs de 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 Vbs nin ü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.

vbs otomatik yazdir

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 akrandan çok daha pratik olabilmektedir, aşağıda sizler için hazırladığımız bazı örnekleri indirebilirsiniz

Download


2 Yorum Var

Yorum Ekle

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

Captcha