Browse knap

yes use the common dialog

terry>> kan du gi et eks, kan ik rigtig få det til og du. Altså man skal kun vælge et DIR, og ik nogle filer

Here is an example I use myself.

Public Function GetDocument()
Dim InitDir As String

    \' Set CancelError is True
   
    Me.AXComDlg.CancelError = True
    Me.AXComDlg.DialogTitle = \"Link Document\"
   
    On Error GoTo Err_GetDocument
    \' Set flags
    Me.AXComDlg.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
    \' Set filters
 
    Me.AXComDlg.Filter = \"All Files (*.*)|*.*\"
   
    If Not IsNull(Me.DocumentName) Then
        Me.AXComDlg.InitDir = Me.DocumentLink
    End If
       
    \' Specify default filter
    Me.AXComDlg.FilterIndex = 2
    \' Display the Open dialog box
    Me.AXComDlg.ShowOpen
    \' Display name of selected file

Exit_GetDocument:
    Exit Function
   
Err_GetDocument:
    \'User pressed the Cancel button
    Exit Function

End Function

Oh! Not sure if you can just choose a dir, but you can play around with it and see.

har jeg gjort i noget tid nu ;o)

var derfor jeg spurgte herinde

fandt noget her

http://cuinl.tripod.com/Tips/browseforfolders.htm