The VBS code that runs the executable program under the same directory _vbs

Copy Code code as follows:

Set Objshell = CreateObject ("Wscript.Shell")
Strcurrentdir = Objshell.currentdirectory
Set fso = CreateObject ("Scripting.FileSystemObject")
Set F=fso.getfolder (Strcurrentdir)
For all I in F.files
If LCase (Right (i,4) = ". exe" Then objshell.run i,,true
Next

The directory where the script is located can also:

Copy Code code as follows:

Set fso = CreateObject ("Scripting.FileSystemObject")
Fso. Getparentfoldername (Wscript.scriptfullname)

Can't think of a better way to judge whether the file is. exe ... That's it.

Copy Code code as follows:

Option Explicit

Dim Ofs:set OFS = CreateObject ("Scripting.FileSystemObject")
Dim Ows:set OWS = CreateObject ("Wscript.Shell")

WScript.Echo "Script:"
WScript.Echo "ScriptFullName:", Wscript.scriptfullname
WScript.Echo "Scriptfullpath:", Ofs.getparentfoldername (Wscript.scriptfullname)
WScript.Echo "Current:"
WScript.Echo "FS:", Ofs.getabsolutepathname (". \")
WScript.Echo "WS:", ows.currentdirectory

--------Output-------------

C:\wis\_vbs\0506\dev\forum
cscript Curdir.vbs
Script:
Scriptfullname:c:\wis\_vbs\0506\dev\forum\curdir.vbs
Scriptfullpath:c:\wis\_vbs\0506\dev\forum
Current:
Fs:c:\wis\_vbs\0506\dev\forum
Ws:c:\wis\_vbs\0506\dev\forum

C:\wis\_vbs\0506\dev\forum
Cd..

C:\wis\_vbs\0506\dev
cscript Forum\curdir.vbs
Script:
Scriptfullname:c:\wis\_vbs\0506\dev\forum\curdir.vbs
Scriptfullpath:c:\wis\_vbs\0506\dev\forum
Current:
Fs:c:\wis\_vbs\0506\dev
Ws:c:\wis\_vbs\0506\dev

Resources: http://www.visualbasicscript.com/m43018.aspx