menos de 1 minuto(s) de lectura

Manejo de ficheros Codigo común para ficheros

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim objfso Dim objficherolog Set objfso = CreateObject(“Scripting.FileSystemObject”)

Existencia de fichero

aux = objfso.FileExists(“C:Windowssystem32driversetchosts”)

Existencia de la unidad “c”

aux = objfso.DriveExists(“c”)

Existencia del directorio

aux = objfso.FolderExists(“C:Windows”)

Abrir Fichero

Set objFicheroLog = objfso.OpenTextFile( “ruta completa y nombre del log”, ForAppending , True )

Borrar Carpeta

objfso.DeleteFolder “Ruta completa de la carpeta a borrar”

Borrar Archivo

objfso.DeleteFile “Ruta completa de la carpeta a borrar”

Copiar fichero

objfso.CopyFile “c:hola.txt”,”c:prueba”

Comprobar si existe un fichero

if not objfso.FileExists(strDirectorioProgramas & “windowsnotepad.exe”) then

Insertar lineas o escribir en un fichero

objTextFile.WriteLine(“This line is written using WriteLine().”)

objTextFile.Write (“This line is written using Write().”)

objTextFile.WriteBlankLines(3)

Leer un Fichero , una linea una posicion del Array

Dim vector() Do Until miFichero.AtEndOfStream reDim Preserve vector(i) vector(i) = mifichero.ReadLine i = i + 1 Loop

Leer un Fichero , de varias formas

sReadLine = objTextFile.ReadLine

sRead = objTextFile.Read(4)

sReadAll = objTextFile.ReadAll

objTextFile.Close

Categorías:

Actualizado: