Fehler beim Ausführen von Makros aus der OO-Hilfe-Seite
Verfasst: Di, 25.05.2004 16:30
Hallo, ich habe folgende Makro-Beispiele in der OO-Hilfe Seite ausprobiert und dabei gab es Fehlermeldung.
Weiss jemand, woran das lag? Danke schon im voraus!
Beim Ausführen dieser Datei ergab folgender Fehler
BASIC-Laufzeitfehler.
Nicht genügend Stapelspeicher
-------------
Fehler:
BASIC-Syntaxfehler
Unerwartetes Symbol: Until
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