VB中的指定当前目录的问题

VB中怎样指定当前目录呢?请各位指导一下,我的代码如下:
<HTML>
<HEAD>
<TITLE>测试按钮事件</TITLE>
</HEAD>
<BODY>
<FORM NAME="Form1">
   <INPUT TYPE="Button" NAME="Button1" VALUE="单击">
   <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">       Dim fso, msg
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FolderExists(App.Path & "\Voice\LeaveWord") Then
       msg = "Voice\LeaveWord exists."
    Else
       msg = "Voice\LeaveWord doesn't exist."
    End If
    msgbox msg
  </SCRIPT>
</FORM>
</BODY>
</HTML>
我在本地机器点击点击按钮后.为什么说我App缺少对象呢?那我怎样指定我当前的目录呢,拜托各位教教我,很急啊~~~~

解决方案 »

  1.   

    VB才有app对象如果你是在ASP中间就要使用server.mappath对象如果是用客户段就用 window.location.href下面是hta文件：
    <HTML>
    <HEAD>
    <TITLE>测试按钮事件</TITLE>
    </HEAD>
    <BODY>
    <FORM NAME="Form1">
       <INPUT TYPE="Button" NAME="Button1" VALUE="单击">
       <SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">       Dim fso, msg
           msg =  window.location.href
           m= InstrRev(msg,"/")
           msg = Left(msg,m)
           msg = Replace(msg,"file:///","")
           msg = Replace(msg,"/","\")
           msgbox msg
           
           Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FolderExists(msg & ("\Voice\LeaveWord")) Then
           msg = "Voice\LeaveWord exists."
        Else
           msg = "Voice\LeaveWord doesn't exist."
        End If
        msgbox msg
      </SCRIPT>
    </FORM>
    </BODY>
    </HTML>