软件开发培训班 >> 编程开发 >> VbScript


VBS鎵撳紑褰撳墠鑴氭湰鎵�鍦ㄦ枃浠跺す

鏂规硶涓�锛歐script.ScriptFullName

'鍒涘缓涓�涓?Wscript.Shell 瀵硅薄鐨勫疄渚?绋嶅悗浼氫娇鐢ㄨ繖涓璞″惎鍔?Windows 璧勬簮绠＄悊鍣?
Set objShell = CreateObject("Wscript.Shell")
'鑾峰彇鑴氭湰鐨勮矾寰?
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
'鑾峰彇鑴氭湰褰撳墠鎵�鍦ㄦ枃浠跺す鐨勮矾寰?
strFolder = objFSO.GetParentFolderName(objFile) 
strPath = "explorer.exe /e," & strFolder
'鍚姩 Windows 璧勬簮绠＄悊鍣?鎵撳紑鑴氭湰鎵�鍦ㄧ殑鏂囦欢澶?
objShell.Run strPath

鏂规硶浜岋細objShell.CurrentDirectory

杩欑鏂规硶浠ｇ爜灏戜簡涓�浜?/p> 

set objShell = CreateObject("Wscript.Shell")
'鑴氭湰鐨勫綋鍓嶇洰褰?
strPath = objShell.CurrentDirectory
strPath = "explorer.exe /e," & strPath
objShell.Run strPath

涓嬮潰鏄剼鏈箣瀹跺皬缂栫殑琛ュ厖

濡傛灉鏄剼鏈腑闇�瑕佽皟鐢ㄤ笅闈㈠緢绠�鍗曠殑涓�鍙ヨ瘽灏卞彲浠ヨ幏鍙栧綋鍓嶇洰褰?/p>

currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

鎴?/p>

currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path

鏄笉鏄洿绠�鍗曞憿锛岃繖绡囨枃绔犲氨鍒嗕韩鍒拌繖浜嗭紝甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪銆?/p>