如何在DOS命令行调用VBS的对话 - 中国DOS联盟论坛

set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
wscript.echo intRet, objFile.FileName

如何将选中的文件加入命令行的变量中去，以便调用？

把上述代码保存为: 打开文件.vbs


@echo off
    for /f "tokens=*" %%i in ('"cscript //nologo 打开文件.vbs"') do echo %%i

如果你只是要显示文件名的话建议修改vbs脚本最后一句为Wscript.StdOut.Write objFile.FileName,虽然用wscript的echo方法和用wscript.stdout对象的write方法效果看起来是一样的，不过，建议用cscript解析的脚本最好是用后者来控制输出流。

参照楼主的VBS脚本，如何扩展为一次打开多个文件并输出每个文件绝对路径，以及单独获取每个的文件名？

关于一次选择多个文件，目前microsoft官方给出的唯一方法为指定UserAccounts.CommonDialog对象的flags属性，例如:


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

至于如何在批处理中来调用输出结果，方法还是同2F。

谢谢3742668版主的解答

另，我获得的绝对路径如：“D:\AAA\BBB\CCC.txt”，如何在批处理中单独提取其中的文件名（就是去除路径，路径不一定相同）？但需要绝对路径、单独的文件名两组数据使用。

对于%~ni等变量扩展用法请仔细查看 for /？

另外，FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

~I - 删除任何引号(")，扩充 %I
%~fI - 将 %I 扩充到一个完全合格的路径名
%~dI - 仅将 %I 扩充到一个驱动器号
%~pI - 仅将 %I 扩充到一个路径
%~nI - 仅将 %I 扩充到一个文件名
%~xI - 仅将 %I 扩充到一个文件扩展名
%~sI - 扩充的路径只含有短名
%~aI - 将 %I 扩充到文件的文件属性
%~tI - 将 %I 扩充到文件的日期/时间
%~zI - 将 %I 扩充到文件的大小
%~$PATH:I - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个完全合格的名称。如果环境变量名
未被定义，或者没有找到文件，此组合键会扩充到
空字符串

可以组合修饰符来得到多重结果:

%~dpI - 仅将 %I 扩充到一个驱动器号和路径
%~nxI - 仅将 %I 扩充到一个文件名和扩展名
%~fsI - 仅将 %I 扩充到一个带有短名的完整路径名
%~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个驱动器号和路径。
%~ftzaI - 将 %I 扩充到类似输出线路的 DIR

在以上例子中，%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比较易读，而且避免与不分大小写的组合键混淆。

4 楼脚本每次必须最少输入两个文件，不能输入一个或多个么？

还有：4 楼脚本不能输入含有空格的长文件名

1，对于至少选择两个文件的情况，你可以自己加个if语句来判断，光拷贝别人的代码又能有多大提高呢？
2，不是不能输入含有空格的长文件名，而是自动把长文件名替换成了8.3的短名。

Originally posted by 3742668 at 2006-8-2 11:39:
1，对于至少选择两个文件的情况，你可以自己加个if语句来判断，光拷贝别人的代码又能有多大提高呢？
2，不是不能输入含有空格的长文件名，而是...

我说的是多次调用VBS，在输入框中每次输入单个或者多个文件
1、

set objFile = CreateObject("SAFRCFileDlg.FileOpen")
intRet = objFile.OpenFileOpenDlg
Wscript.StdOut.Write objFile.FileName

这个只能每次输入单个文件

2、

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

而这个只能每次最少输入两个文件，单个不行
如果修改某些参数可以单独输入一个文件,但再输入两个以上时，得出N+1个变量，第一个为空
另：第二个能不能不自动把长文件名替换成了8.3的短名？

第1楼　hdshjffdd	发表于 2006-07-31 15:05
初级用户　发帖 53　积分 131
如何在DOS命令行调用VBS的对话 set objFile = CreateObject("SAFRCFileDlg.FileOpen") intRet = objFile.OpenFileOpenDlg wscript.echo intRet, objFile.FileName 如何将选中的文件加入命令行的变量中去，以便调用？

第2楼　3742668	发表于 2006-08-01 12:23
荣誉版主　发帖 718　积分 2,013
把上述代码保存为: 打开文件.vbs @echo off for /f "tokens=*" %%i in ('"cscript //nologo 打开文件.vbs"') do echo %%i 如果你只是要显示文件名的话建议修改vbs脚本最后一句为Wscript.StdOut.Write objFile.FileName,虽然用wscript的echo方法和用wscript.stdout对象的write方法效果看起来是一样的，不过，建议用cscript解析的脚本最好是用后者来控制输出流。

第3楼　zh159	发表于 2006-08-01 16:55
金牌会员　发帖 1,467　积分 3,687
参照楼主的VBS脚本，如何扩展为一次打开多个文件并输出每个文件绝对路径，以及单独获取每个的文件名？

第4楼　3742668	发表于 2006-08-01 22:00
荣誉版主　发帖 718　积分 2,013
关于一次选择多个文件，目前microsoft官方给出的唯一方法为指定UserAccounts.CommonDialog对象的flags属性，例如: 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 至于如何在批处理中来调用输出结果，方法还是同2F。

第5楼　zh159	发表于 2006-08-01 22:47
金牌会员　发帖 1,467　积分 3,687
谢谢3742668版主的解答另，我获得的绝对路径如：“D:\AAA\BBB\CCC.txt”，如何在批处理中单独提取其中的文件名（就是去除路径，路径不一定相同）？但需要绝对路径、单独的文件名两组数据使用。

第6楼　3742668	发表于 2006-08-01 22:57
荣誉版主　发帖 718　积分 2,013
对于%~ni等变量扩展用法请仔细查看 for /？另外，FOR 变量参照的替换已被增强。您现在可以使用下列选项语法: ~I - 删除任何引号(")，扩充 %I %~fI - 将 %I 扩充到一个完全合格的路径名 %~dI - 仅将 %I 扩充到一个驱动器号 %~pI - 仅将 %I 扩充到一个路径 %~nI - 仅将 %I 扩充到一个文件名 %~xI - 仅将 %I 扩充到一个文件扩展名 %~sI - 扩充的路径只含有短名 %~aI - 将 %I 扩充到文件的文件属性 %~tI - 将 %I 扩充到文件的日期/时间 %~zI - 将 %I 扩充到文件的大小 %~$PATH:I - 查找列在路径环境变量的目录，并将 %I 扩充到找到的第一个完全合格的名称。如果环境变量名未被定义，或者没有找到文件，此组合键会扩充到空字符串可以组合修饰符来得到多重结果: %~dpI - 仅将 %I 扩充到一个驱动器号和路径 %~nxI - 仅将 %I 扩充到一个文件名和扩展名 %~fsI - 仅将 %I 扩充到一个带有短名的完整路径名 %~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充到找到的第一个驱动器号和路径。 %~ftzaI - 将 %I 扩充到类似输出线路的 DIR 在以上例子中，%I 和 PATH 可用其他有效数值代替。%~ 语法用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名比较易读，而且避免与不分大小写的组合键混淆。

第7楼　zh159	发表于 2006-08-01 23:21
金牌会员　发帖 1,467　积分 3,687
4 楼脚本每次必须最少输入两个文件，不能输入一个或多个么？

第8楼　zh159	发表于 2006-08-02 10:57
金牌会员　发帖 1,467　积分 3,687
还有：4 楼脚本不能输入含有空格的长文件名

第9楼　3742668	发表于 2006-08-02 11:39
荣誉版主　发帖 718　积分 2,013
1，对于至少选择两个文件的情况，你可以自己加个if语句来判断，光拷贝别人的代码又能有多大提高呢？ 2，不是不能输入含有空格的长文件名，而是自动把长文件名替换成了8.3的短名。

第10楼　zh159	发表于 2006-08-02 12:58
金牌会员　发帖 1,467　积分 3,687
Originally posted by 3742668 at 2006-8-2 11:39: 1，对于至少选择两个文件的情况，你可以自己加个if语句来判断，光拷贝别人的代码又能有多大提高呢？ 2，不是不能输入含有空格的长文件名，而是... 我说的是多次调用VBS，在输入框中每次输入单个或者多个文件 1、 set objFile = CreateObject("SAFRCFileDlg.FileOpen") intRet = objFile.OpenFileOpenDlg Wscript.StdOut.Write objFile.FileName 这个只能每次输入单个文件 2、 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 而这个只能每次最少输入两个文件，单个不行如果修改某些参数可以单独输入一个文件,但再输入两个以上时，得出N+1个变量，第一个为空另：第二个能不能不自动把长文件名替换成了8.3的短名？