Filhåndtering ;-)

synes du ik det lidt meget at bruge på et spørgsmål af denne karakter?

Hvor er forbindelsen mellem Databaser:Access og filhåndtering ?

kan du evt uddybe hvad du ikke kan og hvad du gerne vil?

Hej greenday,

I access har du 2 (fornuftige) muligheder for at benytte Open-file-dialogbokse: Enten kan du bruge en ActiveX-control eller benytte Windows API.

Løsningen med ActiveX-control\'en er ikke så god (synes jeg) da den kræver at man installere ActiveX-kontrollen på alle clienter.

Derimod er løsningen med API en god løsning:
På dette link, kan du direkte copy/paste koden fra:
http://www.mvps.org/access/api/api0001.htm

Eksemplet er langt (men det er jo i princippet ligegyldigt - du skal bare sætte det ind i et nyt modul)
Nederst er nogle eksempler på hvordan man bruger koden.

mvh Thomas

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Declare Function GetOpenFileName Lib \"comdlg32.dll\" Alias \"GetOpenFileNameA\" (pOpenfilename As OPENFILENAME) As Long


Function GetFileName(Optional title As String, _
                              Optional filename As String, _
                              Optional filter As String) As String
\' Opens the Open dialog with default values.

    Dim msaof As OPENFILENAME
    Dim intRet As Integer
    Dim strRet As String
        \'initialize sensible fields of OPENFILENAME
    With msaof
        .lStructSize = Len(msaof)
       
        \' Set dialog title
        If title <> \"\" Then
            .lpstrTitle = title
        Else
            .lpstrTitle = \"Select Any File\"
        End If
       
        \' Set filter
        If filter <> \"\" Then
            .lpstrFilter = filter
        Else
            .lpstrFilter = \"All Files\" & vbNullChar & \"*.*\" & vbNullChar & vbNullChar
        End If
       
        \' Set default filename
        If filename <> \"\" Then
            .lpstrFile = filename
        Else
            .lpstrFile = String$(255, 0)
        End If
        .nMaxFile = 255
    End With
   
     
    intRet = GetOpenFileName(msaof)
    If intRet Then
        strRet = msaof.lpstrFile
    End If
 
  GetFileName = strRet
End Function



Smid koden i et projekt, herefter fx.:

dim minFil as string


minFil = GetFileName() \' sæt selv titel + filter etc.