CrLf

双引号转义

Const AppPath = "runas /user:domain\user  ""\\wux-file01\IT Install Package\Install Files\Java\jre-6u31-windows-i586-s.exe"""
复制代码

CrLf

取 inputbox 的返回值就行了

path = InputBox("请输入路径：")
AppPath = "runas /user:domain\user  """ & path & """"
复制代码

也可以用文件选择框：

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
If objDialog.ShowOpen Then
   AppPath = "runas /user:domain\user  """ & objDialog.FileName  & """"
Else
   Wscript.Quit
End If
复制代码