Selecte filer i filebox

mener at det er:

dim i as integer

for i = 0 to file1.listcount
  lstListe.additem file1.list(i)
next

Filebox hedder "file1" og listbox hedder "lstListe"..

testet og virker:

Dim i As Integer

For i = 0 To File1.ListCount - 1
  List1.AddItem File1.List(i)
Next

Controls'ne har default navnene.

Hej.

Der er en lille fejl i thesurfers kode:

for i = 0 to file1.listcount -1        'når i starter på nul, tæller den en for meget

Men hvorfor i grunden flytte til en listeboks, er fil-listboksen ikke god nok?

M.v.h.  Jørn

Jørn> Du var vist igang med at skriv... jeg rettede fejlen i mit andet kode-indlæg :-)

oki, det virker,  troede ikke det var muligt at udtage filerne på samme måde i en filelist som i en almindelig listbox.

Takker for hurtig indsats-

MVH
Force.

Takker for points :-)

hovsa
det var kun de filer jeg havde markeret som skulle flyttes.
så kan jeg bedre forstå at i synes det var underlig at flytte til listbox.

det er kun de markerede enmer jeg vil have .

Hvordan gøres det.

MVH
Force Master

Jeg tester lige, og vender tilbage.

Jeg er måske tilbage senere.. ellers bliver det først i morgern eftermiddag..

Prøv at lege med det her:

    Dim sSelection  As String
    Dim lCnt        As Long

    If File1.ListCount > 0 Then
        For lCnt = 0 To File1.ListCount - 1
            If File1.Selected(lCnt) Then
                If Len(sSelection) > 0 Then _
                sSelection = sSelection & ";"
                sSelection = sSelection & File1.List(lCnt)
            End If
        Next
    End If
    MsgBox sSelection


Hvis der ikke er en nemmere måde, må du bare splitte sSelection op ved ";" tegnet..
og lave en loop..

smutter..

Jeg fik banket det her sammen:

Dim valgte, i
valgte = ""

If File1.ListCount > 0 Then
    For i = 0 To File1.ListCount - 1
        If File1.Selected(i) Then
            If Len(valgte) > 0 Then valgte = valgte & ";"
            valgte = valgte & File1.List(i)
        End If
    Next
End If

If valgte <> "" Then
    valgte = Split(valgte, ";")
    For i = LBound(valgte) To UBound(valgte)
        List1.AddItem valgte(i)
    Next
Else
    MsgBox "Der er ikke valgt nogen filer"
End If

Det skal lige sige, at koden fra mit sidst indlæg stammer fra: http://www.ms-office-forum.net/forum/archivethread-61143.html

takker for det Thesurfer.
det virker bare,
point har du allerede fået.