Windows Script Host之用vbs实现[浏览文件夹]功能

1. '************************************************ 
2. ' File:Dialog.vbs (WSH sample in VBScript)  
3. ' Author:(c) G. Born 
4. ' 
5. ' Using the shell dialog box to select a folder 
6. '************************************************ 
7. Option Explicit 
8. ' Flags for the options parameter 
9. Const BIF_returnonlyfsdirs = &H0001 
10. Const BIF_dontgobelowdomain= &H0002 
11. Const BIF_statustext = &H0004 
12. Const BIF_returnfsancestors= &H0008 
13. Const BIF_editbox= &H0010 
14. Const BIF_validate = &H0020 
15. Const BIF_browseforcomputer= &H1000 
16. Const BIF_browseforprinter = &H2000 
17. Const BIF_browseincludefiles = &H4000 
18. Dim wsh, objDlg, objF 
19. ' Get Application object of the Windows shell. 
20. Set objDlg = WScript.CreateObject("Shell.Application") 
21. ' Use the BrowseForFolder method. 
22. ' For instance: Set objF = objDlg.BrowseForFolder _ 
23. ' (&H0, "Select the folder to copy", &H10, "C:\Born") 
24. Set objF = objDlg.BrowseForFolder (&H0, _ 
25. "Select the folder to copy", _ 
26. BIF_editbox + BIF_returnonlyfsdirs) 
27. ' Here we use the first method to detect the result. 
28. If IsValue(objF) Then  
29. MsgBox "Selected folder: " & objF.Title 
30. Else 
31. MsgBox "Canceled" 
32. End If 
33.  
34. ' Here we use TypeName to detect the result. 
35. If InStr(1, TypeName(objF), "Folder") > 0 Then 
36. MsgBox "Selected folder: " & objF.Title 
37. Else 
38. MsgBox "Canceled" 
39. End If 
40.  
41. Function IsValue(obj) 
42. ' Check whether the value has been returned. 
43. Dim tmp 
44. On Error Resume Next 
45. tmp = " " & obj 
46. If Err <> 0 Then 
47. IsValue = False 
48. Else 
49. IsValue = True 
50. End If 
51. On Error GoTo 0 
52. End Function 
53.  
54. '*** End