Mappe- hhv. filvisning i formular

Hej jensen, denne viser indholdet af en mappe i en liste på en form, måske dette kan indspirere lidt

Public Function GetFiles(stDir As String) As String
    Dim stName As String
    Dim tmpList As String

    On Error GoTo err_FillFiles
   
    'List all files in this folder
    stName = Dir(stDir & "\*.*")
    Do While stName <> ""
        On Error Resume Next
        If (GetAttr(stDir & stName) And vbDirectory) <> vbDirectory Then
            'File Already open?
            If Err.Number = 5 Then Err.Clear
           
            If stName <> "." Or stName <> ".." Then
                'FileList.Add Item:=(stName)
                tmpList = tmpList & stName & ";"
            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
    GetFiles = Left(tmpList, Len(tmpList) - 1)
exit_FillFiles:
    Exit Function
err_FillFiles:
    If Err.Number = 71 Then
        MsgBox AccessError(Err.Number) _
                    & "  Prøv venligst igen.  ", vbCritical + vbOKOnly, _
                    "Fejl ved læsning af drev " & stDir
    End If
    Resume exit_FillFiles
End Function

På en kanp eller på form_load lægger du denne kode:

Me!Liste.Rowsource = GetFiles("C:\")

aandersen > Den kender jeg godt, men den giver jo ikke mulighed for drag´n drop

I vba 6.0 var det et axtiveX objekt som styrede dette, men jeg synes ikke lige jeg kan finde en tilsvarende i Access.

Hmm, ved ikke lige om det ligger der som standard, men jeg mener at huske FMS har et eller andet brugbart

FMS ?

Ja det er et firma der udvikler ActiveX specifikt til Access, øjeblik så hitter jeg lige linket

Her er linket til deres startside, men er som sagt ikke sikker på at de lige udviklet noget Drag'en drop

http://www.fmsinc.com/

Jeg kigger

Måske dette link kunne hjælpe dig på vej:

http://www.mvps.org/access/api/api0032.htm

Hvor finder jeg lige coden til AddressOf  ????

Godt spørgsmål, jeg ved det ikke, har prøvet at kikke, det ser ud som at man skal downloade en excelfil. her er et link der måske kan hjælpe yderligere:

http://support.microsoft.com/default.aspx?scid=kb;en-us;287642

Måske her, men er ikke sikker:
http://www.trigeminal.com/lang/1033/codes.asp?ItemID=19#19/CallBacks.xls

Øv ... ikke rigtigt noget brugbart :o(

Well, det jeg ked af, jeg har ikke lige flere links/bud, måske der kommer andre og byder ind :o)

Dette er nok det som ligner mest :

http://www.fmsinc.com/products/components/components2000/controltour/cdlg.htm

Ja det var også den jeg havede i tankerne, du kunne evt. prøvet at downloade deres demo, måske der var noget brugbart

I actually have the FMS Controls, just not here at work! I dont think it is possible to open two dialogs at the same time. Normally when you open a dialog then events to the code where you opend the dilaog from will not continue until the dialog gets closed. But I have NOT tried so I am not 100% sure!

And I dont think that drag and drop can be used either.

I seem to recall that drag and drop CAN be used between treeView and listview controls, and if so using these would be very user friendly.

http://support.microsoft.com/?kbid=287642
http://support.microsoft.com/?kbid=209898


http://www.softempire.com/drag-n-dropper-for-ms-access.html

I don´t think it works with files :o( only elements within the database

what doesnt work with files? The listview/treeview controls can contain any data!

Ok :o)
I want First Treeview to view files in "C:\Data\From\" and the second Treeview to view files in "C:\Data\To\" and Drag´n Drop between those two ...

Is that possible, and what syntax do I use in Form_load ???

:o)
I think you should look at the treeview article aandersen has made http://www.eksperten.dk/artikler/647
and instead of loading data from recorsets you need to read the files in he folders.

I can´t get it workrking :o(

Can you make an example and mail it ( zipped ) to me ?

ose@post.dk

Hi Lasse
If I had a bit more time I would, but I'm a bit pushed and I'm off on holiday on friday :o(

Sorry!

Does that mean, that the solution is a bit tricky ?

depends what tricky means! The solution isnt an off-the-shelf component so will need programming which will take a bit of time. So if time = tricky then yes it is a bit tricky and if problems = trick then it might be a bit tricky too :o)

Ok ... thanks for your effort ... and to aandersen

hej jensen
Det er nu nih der har skrevet to artikler vedr. TreeView, jeg har skrevet artikler vedr. ListView :o)

jeg håber du finder en løsning

Hej Andersen

Har du noget bud på, hvordan syntaxen opbygges ?

Hvis det er  ift. treeview mener jeg at nih har lagt et link i sin artikel med et eks. på hvordan treeview fungere, jeg kender desværre ikke syntaxen til Drag'en drop, men har på fornemmelsen at det måske er nemmere at styre i treeview, da denne kontrol har nogle "indbygget" metoder til Drag,en drop, men der skal stadig skrives kode som jeg ikke kender

Andersen > læg lige svar, så kan du og Terry dele point for jeres indsats :o)

o:), håber du kommer godt videre med projektet

Måske du skulle prøve at kontakte brugeren nih direkte, jeg har på fornemmelsen at nih måske kan hjælpe dig videre, men blot et skud

Jeg fandt da ud af, hvordan jeg skulle tilgå problemet, nemlig via TreeView komponenten, men min søgning efter yderligere hjælp i bl.a. MSDN gav ikke noget brugbart resultat ... har derfor oprettet et nyt spørgsmål ( med flere point )

... så er der måake andre som kan træde til ...

Har du hans mailadresse ?

Nej desværre, jeg har ligge kikket på hans profil, men der er ikke noget minisite med en mailadresse

Det samme gjorde jeg :o(

I dette spørgsmål som er oprettet af nih er der faktisk en mailadresse, prøv at kikke på det >> http://www.eksperten.dk/spm/584763

... og så har jeg oven i købet selv mailet til ham *gg*

Nemlig :o)

I may have a very simple treeview example at home. I will take a look after work at get back if I get time. Off on holiday early tomorrow :o)

Have a nice holiday ... and remember ... no computer :o)

hej

Jeg har svaret Jensen363 med følgende kode på en form med 2 listview's og 2 tekstbokse

derudover er der en opset tabel med default værdier for de 2 mappenavne

Private Sub ActiveXKtl5_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim filFlyttet As String
Dim filNy As String

filFlyttet = Me.Tekst0 & "\" & Me.ActiveXKtl4.SelectedItem.Text
filNy = Me.Tekst2 & "\" & Me.ActiveXKtl4.SelectedItem.Text

Name filFlyttet As filNy

opdaterLst Me.ActiveXKtl4.Object, Me.Tekst0
opdaterLst Me.ActiveXKtl5.Object, Me.Tekst2

End Sub

Private Sub Form_Open(Cancel As Integer)
Tekst0 = DLookup("opsetValue", "opset", "opsetnavn = 'FraFolder'")
Tekst2 = DLookup("opsetValue", "opset", "opsetnavn = 'TilFolder'")

opdaterLst Me.ActiveXKtl4.Object, Me.Tekst0
opdaterLst Me.ActiveXKtl5.Object, Me.Tekst2

End Sub

Private Sub Tekst0_AfterUpdate()

opdaterLst Me.ActiveXKtl4.Object, Me.Tekst0
End Sub

Private Sub Tekst2_BeforeUpdate(Cancel As Integer)
opdaterLst Me.ActiveXKtl5.Object, Me.Tekst2
End Sub
Sub opdaterLst(list As ListView, mappe As String)
    Dim stName As String

    Dim itmX As ListItem

 
    list.ListItems.Clear
   
    stName = Dir(mappe & "\*.*")
    Do While stName <> ""
        On Error Resume Next
        If (GetAttr(mappe & stName) And vbDirectory) <> vbDirectory Then
            'File Already open?
            If Err.Number = 5 Then Err.Clear
           
            If stName <> "." Or stName <> ".." Then
            Set itmX = list.ListItems.Add(, , stName)

            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
End Sub


mvh Niels

Niels > smid lige et svar her http://www.eksperten.dk/spm/635534

>>nih, håber det var ok at jeg henviste til dig :o)

>>jensen, håber det fra nih bringer dig videre :o)

Jensen -> Jeg skal ikke have pts :)

aandersen -> Det gør ikke spor :)

Vås ... selvfølgelig skal du det :o)