Dir

Private Sub Dir1_Change()
Call Skift
End Sub


Private Sub Skift()
File1.Pattern = "*.mp3"
File1.Path = Dir1.Path
End Sub

Private Sub Form_Load()
Call Skift
End Sub


En Filelist og en dirlist.

kan ikke logge din svar var rigtig, men jeg har lige et spørgsmål til. Du behøver ikke svare på det hvis du ikke vil du får alligevel pointerne.

Du kan se at jeg åbner en mp3 fil og afspiller det i mediaplayer.

Private Sub Command1_Click()
CommonDialog1.Filter = "Media filer  |*.mp3"
CommonDialog1.ShowOpen
MediaPlayer1.Open (CommonDialog1.FileName)
End Sub

Nu vil jeg have når jeg har fået dir1 (mappe) på file1 (indhold fra dir1), så vil jeg have at når jeg trykker på de sange som står i file1 begynder at blive afspillet.

Noget a'la det her:


Private Sub Command1_Click()
On Error GoTo Fejler
MediaPlayer1.Open (File1.Path)

Fejler:
MsgBox prompt:="Du har ikke valgt en fil", Title:="Fejl", buttons:=vbCritical
Exit Sub


End Sub


Private Sub Dir1_Change()
Call Skift
End Sub


Private Sub Skift()
File1.Pattern = "*.mp3"
File1.Path = Dir1.Path
End Sub

Private Sub Form_Load()
Call Skift
End Sub

Men hvad har CommonDialog da gjort?

det er den eneste måde jeg kan åbne en ÅBENVINDUE.
Hvorfor findes der andre lette metoder????

din næste kode virker ikke, eller rettere sagt menningen var at jeg skulle bare trykke på en af indexerne i filelistbox og så skulle det gå igang, men du har lavet en knap istedet for.

Hvis du vil se på mit uproffesionelle program kan jeg lige sende dig den på din e-mail.

ok, admin@enter-s.dk

er sendt

xzxzx-kan-ikke-logge

den e-mail jeg sendte dig menningen ´var med det om du kunne lave det, men istedet har du jo slettet det hele. Jeg kan stadig ikke afspille de mp3'er fra FileListBox.

gangsta12dk >> Jeg har ikek tid lige nu, men jeg fik den til at spille. Jeg ved dælme ikek hvorfor den ikek gjotde det igen.
jeg ser på det i løbet af morgen dagen.

tak