
30/11/2002, 21:49
|
 | | | 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"))
%> |