[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

VBS如何实现在选择文件时能多选

如题,并对他们单个单个的执行同样的操作
  1. '打开文件
  2. pimpath = GetFile()
  3. '打开文件
  4. Function GetFile()
  5.       Dim objDialog   
  6.       If WScript.Arguments.Count < 1 Then
  7.                  Set objDialog = CreateObject("UserAccounts.CommonDialog")
  8.                  'objDialog.InitialDir = "."
  9.                  objDialog.Filter = "pim|*.pim|All Files|*.*"
  10.                  objDialog.FilterIndex = 1
  11.                   If objDialog.ShowOpen Then
  12.                          GetFile = objDialog.FileName
  13.                   Else
  14.                       Set objDialog = Nothing
  15.                       WScript.Quit
  16.                   End If
  17.                  Set objDialog = Nothing
  18.                 Else
  19.           GetFile = WScript.Arguments(0)
  20.        End If
  21. End Function
复制代码

要学会搜索。
参见微软脚本中心,几乎和楼主完全一样的问题
http://www.microsoft.com/china/t ... ources/hey0301.mspx
命令行参考:hh.exe ntcmds.chm::/ntcmds.htm
求助者请拿出诚心,别人才愿意奉献热心!
把查看手册形成条件反射!

TOP

楼主可参考下此贴:
http://bbs.bathome.net/thread-4044-1-1.html
***共同提高***

TOP

请高手亮出完整代码
先谢谢了

TOP

返回列表