Tastaturnavigation Beiträge: Bearbeiten Die aktuell installierte Joomla! Version ist: „‎5.2.3“‎5.2.3 EDV Beratung und Programmier... Titel * Projekte Alias projekte Inhalt Bilder und Links Optionen Blog Media Schema Veröffentlichung Konfigurieren des Editorfensters Berechtigungen Beitragsinhalt

Private Function GetFileDir() As String

Const PROCNAME As String = "GetFileDir"

On Error GoTo ErrorHandler

Dim ret As String
Dim lpIDList As Long
Dim spath As String
Dim udtBI As BROWSEINFO
Dim RdStrings() As String
Dim nNewFiles As Long

'Show a browse-for-folder form:
With udtBI
.lpszTitle = lstrcpyA(EXM_016, "")
.ulFlags = BFFM_INITIALIZED
End With

lpIDList = SHBrowseForFolder(udtBI)
If lpIDList = 0 Then Exit Function

'Get the selected folder.
spath = String$(MAX_PATH, 0)
SHGetPathFromIDList lpIDList, spath 'Hier stürzt Outlook ab
CoTaskMemFree lpIDList

'Strip Nulls
If (InStr(spath, Chr$(0)) > 0) Then spath = Left$(spath, InStr(spath, Chr(0)) - 1)

'Return Dir
GetFileDir = spath

Haupt-Optionen Status Veröffentlicht Kategorie * AllgemeinRemove item Haupteintrag Haupteintrag NeinJa Zugriffsebene Public Schlagwörter Schlagwort eingeben oder auswählen Notiz Versionshinweis