VBS Ficheros

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

Publicado por Luis Puente

Soy Luis Puente un consultor especialista HP Software con inquietudes en sistemas , hosting y desarrollo en WordPress

Dejar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.