VBS 文件选择对话框（无临时文件）

yu2n

VBS 文件选择对话框（无临时文件）
Win7x64 测试通过

1. 
   
2. '0.vbs
   
3. 'How can I filter file type extensions using CreateObject("Scripting.FileSystemObject")?
   
4. 'http://www.visualbasicscript.com/How-can-I-filter-file-type-extensions-using-CreateObjectquotScriptingFileSystemObjectquot-m105786.aspx
   
5. 
   
6. '初始目录、文件过滤、标题
   
7. StrIniDir = ""
   
8. StrFilter = "Msi Files (*.msi)|*.msi|All files (*.*)|*.*|Microsoft Word (*.doc;*.docx)|*.doc;*.docx|Adobe pdf (*.pdf)|*.pdf|"
   
9. StrTitle = "Select MSI file"
   
10. 
    
11. Msgbox GetFileDlg(Replace(StrIniDir,"","\"),StrFilter,StrTitle)
    
12. Msgbox GetFileDlgBar(Replace(StrIniDir,"","\"),StrFilter,StrTitle)
    
13. 
    
14. '不在任务栏显示选择框
    
15. Function GetFileDlg(sIniDir,sFilter,sTitle)
    
16.         On Error Resume Next
    
17.         GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" & sIniDir & "',null,'" & sFilter & "','" & sTitle & "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll
    
18. End Function
    
19. 
    
20. '在任务栏显示选择框
    
21. Function GetFileDlgBar(sIniDir,sFilter,sTitle)
    
22.         On Error Resume Next
    
23.         GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" & sIniDir & "',null,'" & sFilter & "','" & sTitle & "')));close();}</script>""").StdOut.ReadAll
    
24. End Function

复制代码

Demon

收藏

CrLf

马克

wankoilz

也收藏一个，学习学习！

yu2n

同理，以下代码也实现了文件选择框功能（无临时文件），只是没有“文件类型过滤”+“自定义标题”功能：

1. '获取单个文件选择 By Yu2n
   
2. Function BrowseForFileByHtaInput()
   
3.         Dim wShell, oExec
   
4.         Set wShell=CreateObject("WScript.Shell")
   
5.         Set oExec=wShell.Exec("mshta.exe ""about:<input type=file id=f>" & _
   
6.                 "<script>moveTo(0,-9999);resizeTo(0,0);f.click();" & _
   
7.                 "new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1)." & _
   
8.                 "WriteLine(f.value);close();</script>""")
   
9.         BrowseForFileByHtaInput = oExec.StdOut.ReadLine
   
10. End Function
    
11. 
    
12. Msgbox "Select File: " & vbCrLf & BrowseForFileByHtaInput(), vbSystemModal+vbInformation, WScript.ScriptName

复制代码