Consts | Events | Types | Fields | Properties | Methods | Details | BGSBrowseForFolderP |
Const Summary | |
Private |
BIF_BROWSEINCLUDEFILES
|
Private |
BIF_RETURNONLYFSDIRS
|
Private |
WM_USER
|
Types Summary | |
Public |
BaseFoldersForBrowsing Enum BaseFoldersForBrowsing |
Private |
BROWSEINFO Type BROWSEINFO |
Private |
ITEMIDLIST Type ITEMIDLIST |
Private |
SHITEMID Type SHITEMID |
Field Summary | |
Public(String) |
DialogTitle
|
Public(String) |
fileName
|
Public(String) |
Folder
|
Public(Boolean) |
ViewFiles
|
Public(BaseFoldersForBrowsing) |
ViewTreeFrom
|
Method Summary | |
Private |
Class_Initialize()
|
Public |
fileNamePath( Percorso As String, Optional l As String, Optional l As String)
|
Public(String) |
getFilePath( fileName As String)
|
Private(Long) |
SHBrowseForFolder( lpbi As BROWSEINFO)
|
Private(Long) |
SHGetPathFromIDList( ByVal pidList As Long, ByVal l As String)
|
Private(Long) |
SHGetSpecialFolderLocation( ByVal hwndOwner As Long, ByVal l As Long, pidl As ITEMIDLIST)
|
Public(String) |
ShowFolders( hWnd As Long)
|
Details |
Private Const BIF_BROWSEINCLUDEFILES = &H4000&
Private Const BIF_RETURNONLYFSDIRS = &H1&
Private Const WM_USER = &H400&
Public Enum BaseFoldersForBrowsing
Default = -1
Desktop
InternetExplorer
Programmi
PannelloDiControllo
Stampanti
Documenti
preferiti
EsecuzioneAutomatica
Recenti
InviaA
Cestino
MenuAvvio
NON_USATO
NON_USATO2
Video
NON_USATO3
DesktopFolder
RisorseComputer
Rete
RisorseDiRete
Fonts
ShellNew
End Enum
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Public DialogTitle As String
Public fileName As String
Public Folder As String
Public ViewFiles As Boolean
Public ViewTreeFrom As BaseFoldersForBrowsing
Private Sub Class_Initialize()
Public Sub fileNamePath(Percorso As String, Optional ByRef fileName As String, Optional ByRef filePath As String)
Public Function getFilePath(fileName As String) As String
Private Declare Function SHBrowseForFolder Lib "shell32.dll" (lpbi As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Public Function ShowFolders(hWnd As Long) As String