Multiselect

Hvis du bruger commondialog skal du sætte flags som her:

Private Sub Command2_Click()
  CommonDialog1.Flags = &H80200
  CommonDialog1.ShowOpen
End Sub

Så kan du vælge flere filer med Ctrl/shift.

Det er fint, men jeg glemte vist at spørge, hvordan man så kunne finde ud af hvilke filer der var valgt!! Hvordan??

De valgte filer skrives ud i en textbox. Husk at sætte multiline til True.
Den første linie den skriver er stien til filerne og derefter kommer der et filnavn pr. linie.

Private Sub Command2_Click()
  Dim intCount As Integer
  Dim arrFilNavn() As String
  Dim strTekst As String
  Dim intLen As Integer
  CommonDialog1.Flags = &H80200
  CommonDialog1.ShowOpen
    strTekst = CommonDialog1.FileName
  intLen = Len(strTekst)
  arrFilNavn = Split(strTekst, ChrW$(0))
  intLen = UBound(arrFilNavn)
  For intCount = 0 To intLen
    Text2.Text = Text2.Text & arrFilNavn(intCount) & vbCrLf
  Next intCount
End Sub

god fornøjelse