% Dim Var_Caminho, ObjFso, ObjAbreArq, strEVENTO Var_Caminho = Server.MapPath ("evento.txt") Set ObjFso = Server.CreateObject("Scripting.FileSystemObject") Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho, 1, True, False) strEVENTO = ObjAbreArq.ReadLine Public Function VerificaArquivo(nArquivo) Dim ObjFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(Server.MapPath(nArquivo)) Then VerificaArquivo = 1 Else VerificaArquivo = 0 End If End Function %>
|
|||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||