Immer wenn ich dieses Programm starte und 2 drückestürtzt es ab.
Was stimmt mit im nicht?
Graphics 1024, 750
Print "Ordner Manager"
Gosub s
.s
x$ = Input("Wähle 1 um ein Verzeichnis zu erstellen; 3 um den Verzeichnis Inhalt anzuzeigen oder 2 um dieses Programm zu beenden")
If x$ = 1 Then
Verzeichnispfad$ = Input("Zu erstellendes Verzeichnis wählen:")
WaitKey
CreateDir Verzeichnispfad$
If x$ = 3 Then
dir=ReadDir("C:")
Repeat
y$=NextFile(dir)
Print x$+"-"+y$
Until y$=""
CloseDir dir
WaitKey
If x$ = 2 Then End
EndIf EndIf
..... Gast |
