我有一个输入文本框,我希望在加载时显示当前的工作目录。
<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>
HTML调用变量cwd并自动填充文本区域:
<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>
输入文本的"value“部分在文本字段中只显示字面上的"cwd”。我不确定如何调用VBScript变量cwd并将其放入文本区域。我认为它类似于:
document.userselections.txtFile.value = folderdefault
如果JavaScript可以调用VBScript变量,我该怎么做呢?
发布于 2018-07-28 05:23:19
将此代码添加到vbscript上的任意位置:
Sub Window_onLoad
document.getElementsByName("txtFile")[0].value = cwd
End Sub
https://stackoverflow.com/questions/50871765
复制相似问题