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

ohar

如题，并对他们单个单个的执行同样的操作

 
'打开文件
 pimpath = GetFile()
 
 
'打开文件
 Function GetFile()
      Dim objDialog    
      If WScript.Arguments.Count < 1 Then 
                 Set objDialog = CreateObject("UserAccounts.CommonDialog")
                 'objDialog.InitialDir = "."
                 objDialog.Filter = "pim|*.pim|All Files|*.*"
                 objDialog.FilterIndex = 1
                  If objDialog.ShowOpen Then
                         GetFile = objDialog.FileName
                  Else
                      Set objDialog = Nothing
                      WScript.Quit
                  End If
                 Set objDialog = Nothing
                Else
          GetFile = WScript.Arguments(0)
       End If
 End Function
复制代码

ohar

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

batman

楼主可参考下此贴：
http://bbs.bathome.net/thread-4044-1-1.html

zqz0012005

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