Abrir Varios Archivos De Texto

[LOG]

COMO PUEDE ABRIR VARIOS ARCHIVOS DE TEXTO Y PARA MOSTRARLOS EN ASP :)

[Aston]

Un ejemplo de contador hecho con ficheros de texto. Varios se abren igual que uno solo. Como ves el código es muy sencillo:

Sub Contador()
'Creación del objeto de acceso a ficheros y del nombre del fichero
'a acceder -contador.txt- del directorio contador
Dim oSFile, oTextArch, cArchi, nNuevo, nActual
Set oSFile = Server.CreateObject("Scripting.FileSystemObje ct")
cArchi = Server.MapPath ("/Contador") & "\Contador.txt"
'Lectura del fichero contador.txt e incremento del número de visitas
Set oTextArch = oSFile.OpenTextFile (cArchi, 1, false )
nActual = Trim(oTextArch.ReadLine)
'Modificación para controlar la sesión
If Session("NewSesion") = "" Then
Session("NewSesion") = 1
nNuevo = nActual + 1
Else
nNuevo = nActual
End If

oTextArch.Close: Set oTextArch = Nothing 'Cerrar archivo y liberar

'Creación del fichero contador.txt y escritura del número de visitas
Set oTextArch= oSFile.CreateTextFile (cArchi, True)
oTextArch.WriteLine(nNuevo)

Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
End sub

Espero te sirva, un saludo.


<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>