title image


Smiley Frage zu FileDialogs (speziell an Reinhard)
ich arbeite mit Modulen aus Filedialogs.mdb von Reinhard. Jetzt möchte ich diese soweit umbauen, dass beim Start nicht immer nur bei C:\ begonnen wird, sondern bei einem bestimmten Verzeichnis (z.B. L:\Temp). Leider komme ich nicht dahinter, wo ich da ansetzen muss. Für einen Tipp wäre ich dankbar.Hier das komplette Modul:Private Declare Function SHBrowseForFolder Lib "shell32" _ (lpbi As BrowseInfo) As LongPrivate Declare Function SHGetPathFromIDList Lib "shell32" _ (ByVal pidList As Long, ByVal lpBuffer As String) As LongPrivate Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _ (ByVal lpString1 As String, ByVal lpString2 As String) As LongPrivate Const BIF_RETURNONLYFSDIRS = 1Private Const BIF_DONTGOBELOWDOMAIN = 2Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As LongEnd TypePrivate Const MAX_PATH = 260 Public Function PathDialog(Optional szTitle As String = "", Optional hWnd As Long = 0)' Anzeige aller Verzeichnisse' liefert den ausgewählten Pfad zurückOn Error GoTo ErDim lpIDList As Long, sBuffer As String, tBrowseInfo As BrowseInfo With tBrowseInfo If hWnd = 0 Then .hWndOwner = Application.hWndAccessApp Else .hWndOwner = hWnd End If .lpszTitle = lstrcat(szTitle, "") .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN End With lpIDList = SHBrowseForFolder(tBrowseInfo) If (lpIDList) Then sBuffer = String(MAX_PATH, 0) SHGetPathFromIDList lpIDList, sBuffer PathDialog = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) Else PathDialog = "" End IfEx: On Error Resume Next Exit FunctionEr: MsgBox "PathDialog: " & Err.Description Resume ExEnd Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: