VB取脚本的当前目录

Question

获取当前目录

Answer 1

VBS 不支持 App 对象。

Answer 2

function ShowAbsolutePath(path)
{
   var fso, s= "";
   fso = new ActiveXObject("Scripting.FileSystemObject");
   s += fso.GetAbsolutePathName(path);
  set fso=Nothing
   return(s);
}
MsgBox (ShowAbsolutePath("."), 65, "Current Directory")

Answer 3

    Dim fso, s
    set fso = CreateObject("Scripting.FileSystemObject")
    s = fso.GetAbsolutePathName(".")
    set fso=Nothing
    MsgBox s

Answer 4

CreateObject("WScript.Shell").CurrentDirectory 可以正常获取