title image


Smiley bei Api zur Verzeichnisauswahl Verzeichnis vorgeben
Hallo Leute,



ich hab folgende schöne Funktion gefunden, die einen Verzeichnisdialog anzeigt und einen Pfad zurück gibt.



Wie kann ich es erreichen, dass beim nächsten öffnen des Dialogs, direkt der letzte Pfad angezeigt wird, der beim vorherigen schliessen angezeigt wurde ? Wie kann ich also einen Startpfad vorgeben ?



Gruß

Jens





Option Explicit

Option Private Module



Public 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



Declare Function SHGetPathFromIDList Lib "shell32.dll" _

Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long



Declare Function SHBrowseForFolder Lib "shell32.dll" _

Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long



Function GetDirectory(Optional msg) As String

Dim bInfo As BROWSEINFO

Dim Path As String

Dim r As Long, x As Long, pos As Integer

bInfo.pidlRoot = 0&

If IsMissing(msg) Then

bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."

Else

bInfo.lpszTitle = msg

End If

bInfo.ulFlags = &H1

x = SHBrowseForFolder(bInfo)

Path = Space$(512)

r = SHGetPathFromIDList(ByVal x, ByVal Path)

If r Then

pos = InStr(Path, Chr$(0))

GetDirectory = Left(Path, pos - 1)

Else

GetDirectory = ""

End If

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: