Common Dialog

det er umuligt
commen dialog kan kun bruges til at åbne/gemme dokumenter
og diverse andre ting

Hmm hvad bruger jeg så??

Laver en form
og så putter en mappe liste og en drev liste ind i den

Hvis du putter flg. kode i et modul

Public Const BIF_RETURNONLYFSDIRS = 1
    Public Const BIF_DONTGOBELOWDOMAIN = 2
   
    Public Const MAX_PATH = 260
   
    Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidlist As Long, ByVal lpBuffer As String) As Long
    Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpstring1 As String, ByVal lpstring2 As String) As Long
   
    Public Type BrowseInfo
        hWndOwner As Long
        pIDLRoot As Long
        pszDisplayName As Long
        lpszTitle As Long
        ulFlags As Long
        lpfnCallBack As Long
        lparam As Long
        iImage As Long
    End Type


Og putter en knap på en formular, og sætter flg. kode i under knappens click_event.
Så kan du fange et bibliotek istedet for en fil.

    Dim lpIDList As Long
    Dim sBuffer As String
    Dim szTitle As String
    Dim tBrowseInfo As BrowseInfo
   
    szTitle = "Vælg bibliotek"
   
    With tBrowseInfo
        .hWndOwner = frmMain.hwnd
        .lpszTitle = lstrcat(szTitle, "")
        .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
    End With
       
    lpIDList = SHBrowseForFolder(tBrowseInfo)
   
    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        txtFilename = sBuffer
    End If

Jeg har iøvrigt en txtFilename som er sat på formularen.

Kedde

Open/Save/Browse (API)

http://hjem.get2net.dk/sjh/eksperten/OSB.zip

Tak kedde65 , det virker perfekt