Hola amigos, tengo el siguiente problema, necesito leer un fichero que esta en 
determinada carpeta al parecer según leo la instrucción siguiente no permite 
leer fichero que se encuentren en carpetas, ¿alguien me puede decir como 
resuelvo el rollo.

 

 

 

 

Sub CreateAfile

  fichero ="c:\Carpeta1\carpeta2\fichero.txt"

 
  Dim fso, MyFile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set MyFile = fso.CreateTextFile(fichero, True)
  MyFile.WriteLine("Esto es una prueba.")
  MyFile.Close
End Sub

 

 

 

Muchas gracias

Responder a