Board logo

标题: VBS如何实现在选择文件时能多选 [打印本页]

作者: ohar    时间: 2009-8-5 10:43     标题: 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
复制代码

作者: ohar    时间: 2009-8-8 12:21

请高手亮出完整代码
先谢谢了
作者: batman    时间: 2009-8-8 12:27

楼主可参考下此贴:
http://bbs.bathome.net/thread-4044-1-1.html
作者: zqz0012005    时间: 2009-8-8 13:52

要学会搜索。
参见微软脚本中心,几乎和楼主完全一样的问题
http://www.microsoft.com/china/t ... ources/hey0301.mspx




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2