Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- From: "Pegasus \(MVP\)" <I.can@xxxxxxxxxx>
- Date: Mon, 3 Mar 2008 21:20:59 +0100
Woher kommt das "On error goto errorhandler"? Ist dies eine
Erweiterung von Deinem VB Script?
"Stefan Kahlert" <skahlert@xxxxxxxxxxxxxx> wrote in message
news:5B5F1109-50ED-474E-9D89-60FCE452FFE7@xxxxxxxxxxxxxxxx
Habe vergessen den Code mitzusenden.
hier mal den Code
Wenn on error.. aktiviert ist läuft mein Skript durch.
Möchte aber sehen falls ein Verzeichnis oder eine Datei nicht gelesen
werden kann. Um diese gegebenenfalls von Hand zu editieren.
'on error resume next
Set objDOCFile = CreateObject("DSOFile.OleDocumentProperties")
Set objFSO = CreateObject("Scripting.FileSystemObject")
DIM DOCCount
DIM startzeit
DIM endzeit
DIM laufzeit
'Startordner festlegen
objStartFolder = "C:\temp"
Set objFolder = objFSO.GetFolder(objStartFolder)
set logfile = objFSO.opentextfile("C:\temp\logfile.txt", 2, true,0)
Msgbox "Skriptausführung kann etwas dauern !"
startzeit = now
logfile.writeline "Startzeit " & now
'Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
logfile.writeline "VERZEICHNIS " & objFolder
For Each objFile in colFiles
if ucase(objFSO.GetExtensionName(objFile)) = "DOC" then 'nur
DOC -Dateien bearbeiten'
Doccount = Doccount +1
'hier kommt weiterer ProgrammCode
end if
Next
'recursiv Aufruf'
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
'on error goto errorhandler
Falls "on error... auskommentiert wird erhalte ich sofort
Kompilierungsfehler!
logfile.writeline "VERZEICHNIS " & objFolder
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
if ucase(objFSO.GetExtensionName(objFile)) ="DOC" then
Doccount = Doccount +1
end if
Next
ShowSubFolders Subfolder
Next
end sub
endzeit = now
logfile.writeline "Endzeit " & now
laufzeit = DateDiff("s", startzeit, endzeit)
logfile.writeline "Skriptausführung dauerte " & laufzeit & " Sekunden"
logfile.writeline doccount & " Dateien gezählt"
logfile.close
Msgbox doccount & " Dateien in" & objStartFolder & " gefunden"
'errorhandler:
MsgBox ("Es ist folgender Fehler aufgetreten " & CStr(Err.Number) & " " &
Err.Description)
msgbox "in Datei " & objFolder.Files
resume next
"Stefan Kahlert" <skahlert@xxxxxxxxxxxxxx> schrieb im Newsbeitrag
news:uUyriDUfIHA.1132@xxxxxxxxxxxxxxxxxxxxxxx
Hallo zusammen,
hab mir ein Skript geschrieben welches alle *.doc Dateien eines Ordner
samt Unterordner zählt.
Erhalte allerdings unterschiedliche Werte wenn ich die Dateien mit dem
guten alten DIR /S *.doc anzeigen lasse.
Hatte die Vermutung das mein Skript manche Verzeichnisse/dateien nicht
lesen darf.
Handel sich um > 500.000 Worddokumente!
Ich Versuche nun eine möglichen Laufzeitfehler mit
on error go to irgendwas
abzufangen.
Nur sobald ich das Skript starte erhalte ich sofort
Syntaxfehler
Code 800A03EA
Kompilierungsfehler in Microsoft VBScript
bei Verwendung von
on error resum next
läuft das Skript Durch.
Kann mir jemand weiterhelfen ?
Besten Dank
Mfg
Stefan Kahlert
.
- References:
- Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- From: Stefan Kahlert
- Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- From: Stefan Kahlert
- Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- Prev by Date: Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- Next by Date: Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- Previous by thread: Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- Next by thread: Re: Kompilierungsfehler bei Verwendung von "on erro goto irgendwas"
- Index(es):
Relevant Pages
|
