Flere filer

Hejsa.

Her har du et program som skulle kunne gøre det du ønsker.

Hilsen

Lars

Private Sub Command1_Click()
 
  Dim strFilename As Variant
 
  cmd.DialogTitle = "Open Mp3"
  cmd.Filter = "Mp3 Sound (*.mp3)|*.mp3"
  cmd.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames Or cdlOFNExplorer
  cmd.MaxFileSize = 5000
  cmd.ShowOpen
 
  strFilename = Split(cmd.FileName, Chr(0), -1, vbBinaryCompare)
 
End Sub

Jeg takker mange gange... :D