16/01/2002, 14:31
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 4 meses Puntos: 1 | |
| Re: Averiguar si un archivo existe
<%
dim filesys, filetxt, getname, path
Set filesys = Server.CreateObject("Scripting.FileSystemObje ct")
Set filetxt = filesys.CreateTextFile("c:\somefile.txt" , True)
path = filesys.GetAbsolutePathName("c:\somefile.txt& quot;)
getname = filesys.GetFileName(path)
filetxt.WriteLine("Texto por si quieres escribirle algo.")
filetxt.Close
If filesys.FileExists(path) Then
Response.Write ("Tu archivo, '" & getname & "', Ha sido creado.")
End If
%>
bueno lo importante son las ultimas lineas de codigo
salu2 :) ;)
<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">
|