Wenn ich ExamineDirectory aufrufe crasht das Programm manchmal.
So gehts:
Code: Alles auswählen
; funktioniert
If ExamineDirectory(0, "", "*.*")
Repeat
wert = NextDirectoryEntry ()
If wert = 1 ; 1..... Datei
DateiName$ = DirectoryEntryName()
Debug DateiName$
EndIf
Until wert = 0
EndIf
Code: Alles auswählen
; funktioniert nicht CRASH
verzeichnis.s
If ExamineDirectory(0, verzeichnis, "*.*")
Repeat
wert = NextDirectoryEntry ()
If wert = 1 ; 1..... Datei
DateiName$ = DirectoryEntryName()
Debug DateiName$
EndIf
Until wert = 0
EndIf
auch ändern können.
Was mach ich da wieder falsch
Danke
LUPO