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

ohar

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

1. 
   
2. '打开文件
   
3. pimpath = GetFile()
   
4. 
   
5. 
   
6. '打开文件
   
7. Function GetFile()
   
8.       Dim objDialog   
   
9.       If WScript.Arguments.Count < 1 Then
   
10.                  Set objDialog = CreateObject("UserAccounts.CommonDialog")
    
11.                  'objDialog.InitialDir = "."
    
12.                  objDialog.Filter = "pim|*.pim|All Files|*.*"
    
13.                  objDialog.FilterIndex = 1
    
14.                   If objDialog.ShowOpen Then
    
15.                          GetFile = objDialog.FileName
    
16.                   Else
    
17.                       Set objDialog = Nothing
    
18.                       WScript.Quit
    
19.                   End If
    
20.                  Set objDialog = Nothing
    
21.                 Else
    
22.           GetFile = WScript.Arguments(0)
    
23.        End If
    
24. End Function
    

复制代码

ohar

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

batman

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

zqz0012005

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