| OskarCic |  |
|
2009-02-27 23:33 - Respuestas: 0 - Tema nº: 2577529
Características: Windows Vista Todo Muy bueno.
Hola , buenas tardes :
Necesito ayuda con este codigo que estoy haciendo que , no consigo ponerlo en marcha bien , aqui os dejo una parte del codigo que es donde no puedo entender , gracias de antemano.
Dim Leer
Dim Archivo
Dim Fichero
Dim Carpeta
Dim Carpetas
Dim Ficheros
Dim Fiiheros
Dim Contenido
Dim Server
Set Server =CreateObject ("Scripting.FileSystemObject")
Set Leer = Server.CreateObject("Scripting.FileSystemObject")
Set Carpetas = Leer.ReadFolder ("C:\Programas")
Set Fichero = Carpeta.Files
If Ficheros.Name="Prueba.txt" Then
Set Fiicheros = fichero.OpenAsTextStream(1)
Contenido = Fiicheros.ReadAll
Fiicheros.Close
Set Fiichero = Nothing
End If
| |
|
|
