vbs dosyasının yolu

[Orion1]

Merhabalar ,
En alttaki kodu kodu Sayın Haluk hocamın Bir vbs uzantılı dosyanın yol ve dosya bölümünü değiştirerek kendime uyarladım.

MyWB = "C:\EVREN\Site-Taksit.xls"

Yukarıdaki yolu kendi bulunduğu yol'a göre uayrlayabilirmiyiz?
Vbs uzantılı dosya Site-Taksit.xls uzantılı dosya ile aynı klasörde.
Dolayısı ile Vbs uzantılı dosya ve Site-Taksit.xls hangi klasörde olursa olsun
Çalışsın istiyorum.
Excelde olsaydı."C:\Evren\Site-Taksit.xls" yerine Thisworkbook.path & "\Site-Taksit.xls" şeklinde yazıcaktım.Ama Vbs uzantılı dosya için Vbs uzantılı dosyanın hangi Klasörde olduğunu nasıl yazıcağımı bilmiyorum.!

Set WshNetwork = WScript.CreateObject("WScript.Network")
         
         'WScript.Echo "Merhaba," & WshNetwork.UserName 

        Set NewXL = CreateObject("Excel.Application")
	
        MyWB = "C:\EVREN\Site-Taksit.xls"

        NewXL.workbooks.open MyWB 

        NewXL.application.run "Auto_Open"

        NewXL.Visible = True

       Set NewXL  = Nothing

       Set WshNetwork = Nothing

 

[Haluk]

Alternatif-1 :

Set NewXL = CreateObject("Excel.Application")
 
 Set FS = Wscript.CreateObject("Scripting.FileSystemObject")
 
 MyWB = FS.BuildPath(Wscript.ScriptFullName & "\..", "Site-Taksit.xls")
 
 MyWB = FS.GetAbsolutePathName(MyWB)
 
 NewXL.workbooks.open MyWB 
 
 NewXL.application.run "Auto_Open"
 
 NewXL.Visible = True
 
 Set FS = Nothing
 
 Set NewXL  = Nothing

Alternatif-2 :

Set NewXL = CreateObject("Excel.Application")
 
 MyWb = "Site-Taksit.xls"
 
 strPath = CreateObject("Wscript.Shell").CurrentDirectory
 
 NewXL.workbooks.open strPath & "\" & MyWB 
 
 NewXL.application.run "Auto_Open"
 
 NewXL.Visible = True
 
 Set NewXL  = Nothing

 

[Orion1]

Teşekkür

Merhabalar.
Sayın Hocam,Teşekkürler ederim.İyi geceler.