Weiss jemand, woran das lag? Danke schon im voraus!
Code: Alles auswählen
Sub ExampleChoose
Dim sReturn As String
sReturn = ChooseMenu(2)
Print sReturn
end sub
Function ChooseMenu(Index As Integer)
ChooseMenu = Choose(Index, "Quick-Format", "Save-Format", "System-Format")
End Function
BASIC-Laufzeitfehler.
Nicht genügend Stapelspeicher
-------------
Code: Alles auswählen
Sub ExampleDir
REM zeigt alle Dateien und die Verzeichnisse
Dim sPath As String
Dim sDir as String, sValue as String
sDir="Verzeichnisse:"
sPath = CurDir
sWert = Dir$(sPfad,16)
Do
If sValue <> "." and sValue <> ".." Then
if (GetAttr( sPath + getPathSeparator + sValue) AND 16) >0 then
REM hier die Verzeichnisse holen
sDir = sDir & chr(13) & sValue
End If
sValue = Dir$
Loop Until sValue = ""
MsgBox sDir,0,sPath
End sub
Fehler:
BASIC-Syntaxfehler
Unerwartetes Symbol: Until