Finde filnavn

Hvis der kun er én avi fil på hver CD, og der ikke er andre filer/mapper så er der let nok.

Lige to sekunder!

Lav en filebox, en label, og en commandbutton.

Private Sub Command1_Click()
    File1.Path = "d:\"
    Label1.Caption = File1.List(0)
End Sub

/Answer

Ok?

Du kan også hvis du har flere avi filer på cd'en lave en listbox i stedet for en label og skrive dette i command knappen:

Private Sub Command1_Click()
    File1.Path = "d:\"

    List1.Clear

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

'/Answer
End Sub

/Answer

Ok tusinde tak for svaret... det virker ;-)

Men er der en måde man kan checke hvor mange 'indlæg' der er i en listbox?

Easy!

Skriv:

msgbox list1.listcount -1


nu skriver den hvor mange "indlæg" der er.

/Answer

Takker igen!

Hvis du også vil kunne åbne filerne fra dit program, så:

*Opret et module
*Skriv dette i modulet

Public STI(100) As String


*Skriv dette i command knappen

Private Sub Command1_Click()
    File1.Path = "d:\"

    List1.Clear

For n = 0 To File1.ListCount - 1
    List1.AddItem File1.List(n)
    STI(n) = File1.Path & File1.List(n)
Next n

End Sub

*Indsæt en Media Player fra components og ca. nederst, og sæt den på formen
*Skriv dette i list1's double click

Private Sub List1_DblClick()
    MediaPlayer1.Open STI(List1.ListIndex)
End Sub


Så nu kan du også åbne avi filerne fra programmet!

/Answer