'============================================================.
'Nom de la fonction: CheckFile
«Fonction: vérifiez si un fichier existe
'Paramètre: nom de fichier ------- Adresse de fichier telle que: /wf/1.swf
'Valeur de retour: false --- true
'============================================================.
PublicFunctionCheckfile (nom de fichier)
Onerrorresumenext
Dimfsoobj
SetfSoOBj = server.createObject ("scripting.fileSystemObject")
Ifnotfsoobj.fileexists (server.mappath (nom de fichier)) puis
CheckFile = false
Sortie
Endire
CheckFile = true: setfsoobj = rien
Finition de fin