VBSは現在のスクリプトがあるフォルダーを開く

'Create an instance of the Wscript.Shell object, which will be used later to start the Windows Explorer
Set objShell = CreateObject("Wscript.Shell")
'Get the path to the script
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
'Get the path to the folder where the script is currently located
strFolder = objFSO.GetParentFolderName(objFile) 
strPath = "explorer.exe /e," & strFolder
'Start Windows Explorer and open the folder where the script is located
objShell.Run strPath

set objShell = CreateObject("Wscript.Shell")
'The current directory of the script
strPath = objShell.CurrentDirectory
strPath = "explorer.exe /e," & strPath
objShell.Run strPath