
CODE: [Copy to clipboard]如果你只是要显示文件名的话建议修改vbs脚本最后一句为Wscript.StdOut.Write objFile.FileName,虽然用wscript的echo方法和用wscript.stdout对象的write方法效果看起来是一样的,不过,建议用cscript解析的脚本最好是用后者来控制输出流。@echo off
for /f "tokens=*" %%i in ('"cscript //nologo 打开文件.vbs"') do echo %%i
CODE: [Copy to clipboard]至于如何在批处理中来调用输出结果,方法还是同2F。Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"
objDialog.Flags = &H0200
objDialog.FilterIndex = 1
objDialog.InitialDir = "e:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
arrFiles = Split(objDialog.FileName, " ")
For i = 1 to Ubound(arrFiles)
strFile = arrFiles(0) & arrFiles(i)
Wscript.Echo strFile
Next
End If
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |