问HTA从HTML form输入文本框中的VBScript变量调用CWD

EN

<script language = "VBScript">
Dim cwd 
cwd = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
Dim Master
Dim Master1
Dim folderdefault
folderdefault = cwd

Sub ChooseSaveFolder
    strStartDir = ""
    userselections.txtFile.value = PickFolder(strStartDir)
End Sub 

Function PickFolder(strStartDir)
    Dim SA, F
    Set SA = CreateObject("Shell.Application")
    Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
    If (Not F Is Nothing) Then
        PickFolder = F.Items.Item.path
    End If
    Set F = Nothing
    Set SA = Nothing
End Function 

Sub CheckMaster
    Master = userselections.txtFile.value
    If userselections.txtFile.value ="" Then
        MsgBox "No folder selected." & folderdefault
    Else
        ' Alert "Default folder is now : " & vbCrLf & Master & vbCrLf & cwd
        MsgBox "Default folder selected:" & vbCrLf & folderdefault & vbCrLf & "Master=" & Master & vbCrLf & "cwd=" & cwd
    End If        
End Sub
</script>

<form name="userselections">
    <input type="button" value = "Select Folder" onClick="ChooseSaveFolder()" />
    <input type="button" value="Submit" name="run_button"  onClick="vbscript:CheckMaster"><br>
    <input type="text" name="txtFile" class="folder" value=cwd />
</form>

document.userselections.txtFile.value = folderdefault