Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"

Tech-Archive recommends: Speed Up your PC by fixing your registry

Stefan Kahlert schrieb:
Habe vergessen den Code mitzusenden.

hier mal den Code

[...]
Im Script werden Toplevel/Main-Code und Subs gemischt:
[...]
DIM startzeit
[...]
startzeit = now
[...]
Set colFiles = objFolder.Files
[...]
For Each objFile in colFiles
[...]
Next
[...]
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
[...]
end sub
[...]
laufzeit = DateDiff("s", startzeit, endzeit)
[...]

Obwohl VBScript in vielen (einfachen) Faellen das Mischen von Main-
Code (ausserhalb von Sub/Function Definitionen stehender und sofort
ausgefuehrter Code) und Sub/Function-Definitionen toleriert, sollte
man im Interesse der Uebersichtlichkeit und der Vermeidung ploetzlicher
Ueberraschungen beide Code-Arten doch lieber trennen; also

Oder
WScript.Echo "Beginn" Sub ToWas()
ToWas WScript.Echo "Was denn?"
WScript.Echo "Ende" End Sub
WScript.Quit 0
WScript.Echo "Beginn"
Sub ToWas() ToWas
WScript.Echo "Was denn?" WScript.Echo "Ende"
End Sub WScript.Quit 0

statt

WScript.Echo "Beginn"
ToWas
Sub ToWas()
WScript.Echo "Was denn?"
End Sub
WScript.Echo "Ende"
.

Relevant Pages

  • Re: [VBA] ActiveX-OptionButtons, Name ermitteln und Code zuweisen
    ... dass Du dem Klassenmodul nicht den Namen ... >>Denn Code, ... Private Sub opt_Click ... End Sub ...
    (microsoft.public.de.excel)
  • Re: Visual Basic 6 und Word
    ... eigene Klasse erstellt und den Word-Aufruf über diese Klasse gesteuert. ... Code Anfang der Klasse: ... Private Sub Class_Initialize ... Rem aktiviert das vorhandene Word ...
    (microsoft.public.de.vb)
  • Re: Makro zum Zählen von Zeilen
    ... >> Sub ZaehleCriticalTickets() ... >> End Sub ... Ich werde Deinen Code grad mal ... > einer For..Next-Schleife wird die Durchlaufvariable automatisch ...
    (microsoft.public.de.excel)
  • Re: Ereignisbehandlung: Meinung erbeten (konzeptionell)
    ... Poste doch mal ein bisschen Code, ... Private Sub Form2_Load(ByVal sender As System.Object, ... Private Sub AddTheHandler ... ' Eventhandler für Ereignis aus Objekt aus dem Array ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: Progressbar beim einlesen
    ... vielen Dank für den ausführlichen Code. ... > Private WithEvents mCNN as ADODB.Connection ... > Private Sub AnySub() ... > End With ...
    (microsoft.public.de.vb.datenbank)