Ver Mensaje Individual
  #3 (permalink)  
Antiguo 30/11/2002, 21:49
Avatar de maestro
maestro
 
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 23 años, 2 meses
Puntos: 1
Aqui tienes una cuentos ejemplos de FSO

<%
set FSO = Server.CreateObject("Scripting.FileSystemObject")


'Crear Ficheros
If fso.FileExists (Server.MapPath("/asp_pruebas/prueba.txt")) Then
response.write("ya existe")
else
set oFich = FSO.CreateTextFile ( Server.MapPath("/asp_pruebas/prueba.txt"), True )
response.write("Se ha creado la carpeta & ofich")
end if

'Borrar ficheros
'set oFich = FSO.deletefile (Server.MapPath("/asp_pruebas/prueba.txt"))

'Escribir en un fichero
'oFich.WriteLine ("¡Hola mundo!")
'oFich.Write ("Este es mi primer fichero de texto creado desde Visual Basic script." & vbCrlf )
'oFich.Close

'Añadir lineas a un fichero
'set oFich = FSO.OpenTextFile(Server.MapPath("/asp_pruebas/prueba.txt"), 8)
'8=ForAppending Abre un archivo y escribe al final del mismo.
'oFich.WriteLine ("Esta es la nueva línea que hemos añadido.")
'oFich.Close
'set oFich = nothing

'Crear carpetas
'fso.createfolder (server.mappath("/asp_pruebas/carpeta"))

'Borrar carpetas
'fso.deletefolder (server.mappath("/asp_pruebas/carpeta"))

%>
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net