'=======================================================================
'Nome da função: CheckFile
'Função: verifique se existe um arquivo
'Parâmetro: nome do arquivo ------- Endereço de arquivo, como: /swf/1.swf
'Valor de retorno: false --- true
'=======================================================================
PublicFunctionCheckFile (nome do arquivo)
OnErrorReSumenext
Dimfsoobj
Setfsoobj = server.createObject ("scripting.filesystemobject")
Ifnotfsoobj.fileExists (server.mappath (nome do arquivo)) Então
CheckFile = false
Saída de saída
Endif
CheckFile = true: setfsoobj = nada
Função final