Visual basic, open multiple files

[jhnbk]

Bingo!

Zie bijlage hoe het moet. Het kwam neer op:

Code: Selecteer alles

		Dim i As Integer

OpenFileDialog1.ShowDialog()

For i = 0 To UBound(OpenFileDialog1.FileNames())

Label1.Text += vbCrLf & OpenFileDialog1.FileNames()(i)

Next

Ik heb een klein projectje aangemaakt dat onload een dialoogvenster geeft en dan de geselecteerde files in een label schrijft. Ik snap niet waarom ze met zulke moeilijke code afkomen op het internet.

[DePurpereWolf]

Bedankt voor het werk!

Ik kan de zip niet openen, zegt dat het corrupt is, wil je het nog eens proberen? Of naar mijn email sturen.

Verborgen inhoud

Email adres is in mijn profiel helemaal onderaan. Op het envelopje klikken.

[jhnbk]

Vreemd, 7-zip doet dit perfect, ook als ik de file opnieuw download

[Nvt]

Wat wil ik:

Ik wil dat er een 'file open dialog' komt waarin ik meerdere bestanden kan kiezen, en dan een string of array terug krijg met al de 'path' van de gekozen bestanden

Code: Selecteer alles

        ' ofdBestandOpenen - dialoogvenster om bestanden te openen

' de eigenschap multiselect staat op true

' wanneer de gebruiker NIET ( in fileopen) op ok heeft geklikt

If NOT ofdBestandOpenen.ShowDialog = DialogResult.OK Then

               ' de methode waar de uitvoering van het programma nu is verlaten

exit sub

End If

'********************************************************

' bestanden met paden toewijzen aan een array

' array aanmaken voor het opslaan van de bestanden met de paden

Dim aBestandPlusPad As String() 

' bestanden + paden toewijzen aan de array

aBestandPlusPad = ofdBestandOpenen.FileNames

Merk op dat dit binnen een methode (of een gebeurtenis) staat, misschien wordt het iets eenvoudiger wanneer de string array met de bestandsnamen globaal is waardoor deze ook na de procedure/methode/gebeurtenis ook te gebruiken is.

Geschreven met sharpdevelop 2.2, opensource ( heb er in ieder geval niets voor hoeven te betalen).