"===================================================================================================================
'Funktionsname: Checkfile
'Funktion: Überprüfen Sie, ob eine Datei vorliegt
'Parameter: Dateiname ------- Dateiadresse wie: /swf/1.swf
'Rückgabewert: Falsch --- wahr
"===================================================================================================================
PublicFunctionCheckfile (Dateiname)
OnErrorresumeNext
Dimfsoobj
SetfSoObj = server.createObject ("scripting.FilesSystemObject"))
IfnotfSoobj.FileExists (server.mappath (Dateiname)) dann
Checkfile = false
Ausgangsfunktion
Endif
CheckFile = true: setfsoobj = nichts
Endfunktion