Seit ihr jetzt alle JENSe?Kiffi hat geschrieben:Gruß
JENS
WinPack das Design
-
Kaeru Gaman
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
- Fluid Byte
- Beiträge: 3110
- Registriert: 27.09.2006 22:06
- Wohnort: Berlin, Mitte
Ja, Jaaaahhhhhhh!
Ein große Stück, ein große Stü-ühhhhh-ühck!
Ja, Jaaaahhhhhhh!
Das wat mir entzückt, ist ein groohhh-hoh-hoh-ße Stüüüüüüück!

Ein große Stück, ein große Stü-ühhhhh-ühck!
Ja, Jaaaahhhhhhh!
Das wat mir entzückt, ist ein groohhh-hoh-hoh-ße Stüüüüüüück!

Windows 10 Pro, 64-Bit / Outtakes | Derek
- Fluid Byte
- Beiträge: 3110
- Registriert: 27.09.2006 22:06
- Wohnort: Berlin, Mitte
Sau!DrFalo hat geschrieben:Hat der die ganze Hand drinnenstecken?
Windows 10 Pro, 64-Bit / Outtakes | Derek
Mal eine Frage! Ich weiß ich wollte ned mehr Fragen aba ist wirklich wichtig!
Also ich hab eine OpenFileRequester mit MulitSelect und jetzt will ich die ganze Dateien in nen Array schreiben! Geht auch eigentlich ganz einfach! Ich nutze einefach ReDim um die größe zu ändern weil ich ja am Anfang nicht weiß wieviele Daten der User ausgewählt hat! Allerdings funzt das bei mir irgendwie ned!
Da es schwierig ist ein Codebesipiel zu posten wollte ich fragen ob jemand vieleicht ein kleines Example in Form einer Procedure hat die dies Übernimmt
Gruß
JENS
Also ich hab eine OpenFileRequester mit MulitSelect und jetzt will ich die ganze Dateien in nen Array schreiben! Geht auch eigentlich ganz einfach! Ich nutze einefach ReDim um die größe zu ändern weil ich ja am Anfang nicht weiß wieviele Daten der User ausgewählt hat! Allerdings funzt das bei mir irgendwie ned!
Da es schwierig ist ein Codebesipiel zu posten wollte ich fragen ob jemand vieleicht ein kleines Example in Form einer Procedure hat die dies Übernimmt
Gruß
JENS
PureBasic 4.30 (x86)
- Deluxe0321
- Beiträge: 336
- Registriert: 19.05.2006 00:31
- Kontaktdaten:
Code: Alles auswählen
FileName$ = OpenFileRequester("Wählen Sie einige Dateien aus", "", "", 0, #PB_Requester_MultiSelection)
NewList Files.s()
While FileName$
AddElement(Files())
Files() = FileName$
FileName$ = NextSelectedFileName()
Wend
;Alles ausgeben
ForEach Files()
Debug Files()
Next
;Liste Leeren
ClearList(Files())
ein bisschen JENS?