Explorer addon til access

This "addon" doesnt start in the root of the local dir. it starts by showing ALL available drives!

The way it is made doesnt make it easy to start in a specific folder, it would mean that all other drives wouldnt be displayed, and that all parent directories (those above) would need to be filtered from the result!

I could be done but there is a bit of work involved.

Another way would be to travers down the drives/folders until we got to where you want to be, but again it would take some work.

Sæt følgende ind i slutningen af formularens VedÅbning hændelse

    Dim stPath As String
    stPath = "c:\programmer\dagbog"
    mboolClick = False: mboolUp = False
    Call sNavigate(stPath)
    Me!lbxFiles.Requery

Brug denne i stedet, så får du også filerne i højre vindue (skift "c:\programmer\dagbog" ud med den ønskede mappe):


    Dim stPath As String
    stPath = "c:\programmer\dagbog"
    mboolClick = False: mboolUp = False
    Call sNavigate(stPath)

    If mstPath = vbNullString Then
        mstFilePath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)
    Else
        mstFilePath = mstPath & "\" & Me!lbxFolders
    End If
    mboolClick = True:  mboolUp = False
    DoCmd.Hourglass True
    Me!lbxFiles.Requery
    DoCmd.Hourglass False

Nice one hekla, I should have tried to find a solution instead of contemplating finding one!

Ja det var jo næsten ren cut'n paste fra click og double click :o)

Det ser fint ud hekla jeg prøver lige koden efter aftensmaden. Jeg tror at du lige har gjort den addon 100% mere interessant ;)

hekla

Jeg får en fejl i denne linie:
mstFilePath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)

Hele min kode ved åbning ser således ud:

Private Sub Form_Open(Cancel As Integer)
   
    Call sFillRoot
    Me!lblPath.Caption = ""
   
    Dim stPath As String
    stPath = "c:\programmer\"
    mboolClick = False: mboolUp = False
    Call sNavigate(stPath)

    If mstPath = vbNullString Then
        mstFilePath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)
    Else
        mstFilePath = mstPath & "\" & Me!lbxFolders
    End If
    mboolClick = True:  mboolUp = False
    DoCmd.Hourglass True
    Me!lbxFiles.Requery
    DoCmd.Hourglass False
End Sub

Nogen forslag til hvad der kan være galt?

Oops ligemeget, jeg har dansk win2k så jeg regnede med at c:\programmer fandtes - men det gjorde den ikke ;/

Point til hekla det funker perfekt
tak for hjælpen

Takker for point :o)

Er det muligt, at stPath = "c:\programmer\" kan hente en værdi fra et felt i en formular? som f.eks.:
stPath = "c:\" & [Forms][Formnavn].[Feltnavn] & "\"

Ja

hekla
Der er et eller andet galt i det jeg har skrevet som eksempel. Det er ikke sådan at du lige kan se en \ eller noget i den stil?

Der mangler et tegn mellem [forms] og [formnavn], men jeg kan ikke huske om man bruger punktum eller udråbstegn.

noget i stil med:

stPath = "c:\" & [Forms].[Formnavn].[Feltnavn]

undlad backslash til sidst.

Jeg får en fejl i denne linie:
        mstFilePath = Left$(Me!lbxFolders, Len(Me!lbxFolders) - 1)

runtime error 94:
invalid use of Null

Jeg har brugt:
stPath = "r:\" & [Forms]![Prod].[Projektnummer]
Jeg er ret sikker på at den path jeg har angivet er korrekt for når jeg sætter
"r:\" & [Forms]![Prod].[Projektnummer] ind i et ubundet tekstfelt så står der den korrekte adresse.

Nogen forslag til hvad det kan være?

Prøv med
[Forms]![Prod]![Projektnummer]
eller
[Forms].[Prod].[Projektnummer]

Samme fejl :(
Skummelt at man godt kan skrive en absolut adresse, men ikke en adresse der skal hente en værdi