Åbning af flere filer (simpelt)

Hey muta, du skal sætte følgende ind foran din .ShowOpen-kode:
Dialog.Flags = &H200 Or &H80000

&H200 gør det muligt at markere flere filer og &H80000 gør at dialogboksen får et NT-/XP-look - for flere flags tjek http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cmdlg98/html/vbproflagsfile.asp
-Sion

Hvordan får jeg så filnavnene ud? Jeg har prøvet at skrive fx text1.text = Dialog.Filename, men hvis man har valgt flere filer end een så viser den kun stien, ikke filerne...

Jaaa muta, det var satme et godt spørgsmål! Jeg var inde på MSDN og læse flagenes egenskaber igennem mange gange, og det viser sig at filnavnene er delt med nullchar's. På dette grundlag bryggede jeg en fiks stump kode der returnere alle filnavnene. Koden er som følger:

  Dim FilArray 'Gemmer array'et
  'Opdeler informationerne fra dialog-boksen i bidder adskildt af nullchar (char(0))
  FilArray = Split(Dialog.FileName, Chr(0))
  Dim ix As Integer 'Tæller-variabel
  For ix = 1 To UBound(FilArray)
    'FilArray(0) er selve stien
    'FilArray(1 til count) er filnavnene
    MsgBox FilArray(0) & "\" & FilArray(ix)
  Next ix

Tja, man lærer noget nyt hver dag :)
-Sion

Tak. Det virker helt fint...