ich habe aus dem Forum einen Code mit dem man ein Verzeichnis auswählen kann, leider geht die Auswahl immer vom Grundverzeichnis aus ich möchte aber als Voreinstellung ab dem Pfad loslegen wo die Arbeitsmappe mit dem Makro liegt.
Hier mal der Code:
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" (lpBrowseInfo As BrowseInfo) As Long
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
Sub Verzeichnis_auswählen()
pPfad = VerzeichnisWählen
End Sub
' Ermittelt Verzeichnisnamen und zeigt Windows-Dialog an
Public Function VerzeichnisWählen(Optional DialogTitel) As String
Dim StrukturVerzeichnisInfo As BrowseInfo
Dim ListenNr As Long
Dim Pfad As String
With StrukturVerzeichnisInfo
.hOwner = hWndAccessApp
.lpszTitle = IIf(IsMissing(DialogTitel), "Verzeichnispfad auswählen", CStr(DialogTitel))
.ulFlags = &H1 ' BIF_RETURNONLYFSDIRS
End With
ListenNr = SHBrowseForFolder(StrukturVerzeichnisInfo)
Pfad = Space$(512)
If SHGetPathFromIDList(ByVal ListenNr, ByVal Pfad) Then _
VerzeichnisWählen = Left(Pfad, InStr(Pfad, vbNullChar) - 1)
End Function
Leider funktioniert bei den meisten Kommandos die Hilfe nicht drum kann ich nicht feststellen was sie bedeuten.
Hoffe das hier wer dabei ist der mir weiterhelfen kann.
Tschüß Petra