标题: VBS如何实现在选择文件时能多选 [打印本页]
作者: ohar 时间: 2009-8-5 10:43 标题: VBS如何实现在选择文件时能多选
如题,并对他们单个单个的执行同样的操作
-
- '打开文件
- 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 时间: 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://bathome.net./) |
Powered by Discuz! 7.2 |