
11/07/2003, 12:34
|
 | | | Fecha de Ingreso: diciembre-2001 Ubicación: Caracas
Mensajes: 221
Antigüedad: 23 años, 4 meses Puntos: 1 | |
<% IF request("submit")<>"" then
'Crear Ficheros verificando su existencia para no borrarlo si ya esta creado.
'Crear Ficheros
set FSO = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists (Server.MapPath("prueba.txt")) Then
response.write("El fichero ya existe")
else
'set oFich = FSO.CreateTextFile ( Server.MapPath("C:\pozo2"), True )
set oFich = FSO.CreateTextFile (("C:\arcims\website\exe-pozos\pozo"), True )
'oFich.WriteLine ("tak-1")
oFich.WriteLine (pozo)
'response.write("Se ha creado el fichero & ofich")
end if
else
%><input type=button value="Escribir Archivo" onclick="location.href='?submit=Escribir'">
<%end if%>
algo asi te podria servir
__________________ RTFM antes de preguntar... |