1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| dim objShell
dim objFolder
dim ssfWINDOWS
' Flags for the options parameter
Const BIF_Foldersonly = 0
Const BIF_Browseallfiles =16384
Const BIF_returnonlyfsdirs = &H0001
Const BIF_dontgobelowdomain = &H0002
Const BIF_statustext = &H0004
Const BIF_returnfsancestors = &H0008
Const BIF_editbox = &H0010
Const BIF_validate = &H0020
Const BIF_browseforcomputer = &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000
ssfWINDOWS = BIF_Foldersonly
set objShell = CreateObject("shell.application")
set objFolder = objShell.BrowseForFolder(0, "Select the folder you want", ssfWINDOWS, "E:\")
if (not objFolder is nothing) then
'Add code here.
Msgbox objFolder
end if
set objFolder = nothing
set objShell = nothing |
Partager