Visual Basic Script, tutorial en español
Visual Basic Script - Juan Antonio Villalpando
-- Tutorial de iniciación a Visual Basic Script --
Volver al índice del tutorial
___________________________
7.- Archivos y carpetas.
- Baja a tu ordenador estos archivos y ejecútalos:
- Previamente debemos crear en el disco C una carpeta llamada mi_vbs
21CrearArchivo.vbs
21CrearArchivo.vbs |
a=InputBox("Escribe el nombre de un archivo." & Chr(13) & Chr(10) & "Crearé un archivo de texto .doc con ese nombre en C:\mi_vbs")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f1
If (fso.FileExists("C:\mi_vbs\" & a & ".doc" ) ) Then
b=MsgBox("El archivo ya existe.")
Else
Set f1 = fso.CreateTextFile("C:\mi_vbs\" & a & ".doc", True)
c=MsgBox("He creado el archivo " &a &".doc en la carpeta C:\mi_vbs")
End If
' Pregunta por el nombre de un archivo, comprueba si existe, en caso que no exista, lo crea en C:
|
22CopiaArchivo.vbs
22CopiaArchivo.vbs |
a=InputBox("Escribe el Path completo del archivo que quieres copiar, por ejemplo C:\autoexec.bat")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FileExists(a) ) Then
b=MsgBox("El archivo no existe.")
Else
b=InputBox("Ahora escribe el Path completo donde lo quieres copiar, por ejemplo C:\mi_vbs\")
fso.CopyFile a, b
'Set MiArchivo = fso.GetFile(a)
'MiArchivo.Copy (b)
x=MsgBox("El archivo ha sido copiado.")
End If
' Pide el nombre de un archivo, comprueba si existe, pide donde lo quiere copiar, lo copia.
|
23EscribeArchivo.vbs
23EscribeArchivo.vbs |
a=InputBox("Escribe el nombre de un archivo." & Chr(13) & Chr(10) & "Crearé un archivo de texto .txt con ese nombre en C:\mi_vbs")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f1
Set f1 = fso.CreateTextFile("C:\mi_vbs\" & a & ".txt", True)
c=MsgBox("He creado el archivo " &a &".txt en la carpeta C:\mi_vbs")
d=InputBox("Ahora escribe una frase para grabarla en el archivo anterior.")
f1.WriteLine(d)
f1.WriteLine("Probando 1, 2, 3.")
f1.WriteBlankLines(3)
f1.Write ("Esto es una prueba.")
f1.Close
' Pide el nombre de un archivo, comprueba si existe, pide donde lo quiere copiar, lo copia. |
24AnexarArchivo.vbs
- En este ejemplo, el archivo 23AnexarArchivo.vbs debe estar en la carpeta C:\mi_vbs, además en esa carpeta debe haber otro archivo llamado prueba1.txt, aunque si ponemos ParaEscritura, se creará automáticamente.
24AnexarArchivo.vbs |
Const ParaLectura = 1, ParaEscritura = 2, ParaAnexar = 8
Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")
' fso.CreateTextFile "prueba1.txt"
Set f = fso.GetFile("prueba1.txt")
Set ts = f.OpenAsTextStream(ParaAnexar)
ts.WriteLine "Hola a todos."
ts.Close
|
25CrearCarpeta.vbs
- Crea una carpeta en C:\mi_vbs y luego copia el contenido de otra en esa carpeta. En este caso trata de copiar el contenido de la carpeta C:\Mis documentos, pero como probablemente no tendrás esa carpeta, dara un error. Prueba poner el nombre de otra carpeta que tengas en la raíz del disco C
25CrearCarpeta.vbs |
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
carpe=InputBox("Escribe el nombre de una carpeta que no exista")
If Not fso.FolderExists(carpe) Then
dir="C:\mi_vbs\" & carpe
fso.CreateFolder (dir)
MsgBox("Carpeta creada C:\mi_vbs\" & carpe)
Else
MsgBox("Esa carpeta ya existe")
End If
MsgBox("Ahora se va a copiar los archivos que hay en C:\Mis documentos en la carpeta que has creado.")
fso.CopyFolder "C:\Mis documentos", "C:\mi_vbs\" & carpe
MsgBox("Ya se ha copiado la carpeta.")
' Si se copian dos veces los archivos se produce un error.
|
26CrearCarpetaConFecha.vbs
- Copia este archivo 26CrearCarpetaConFecha.vbs en C:\mi_vbs y lo ejecutas. Creará una carpeta con la fecha actual.
26CrearCarpetaConFecha.vbs |
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
ahora=Now
hh=Hour(ahora)
mm=Minute(ahora)
ss=Second(ahora)
dd=Day(ahora)
mes=Month(ahora)
an=Year(ahora)
carpeta = dd & "-" & mes & "-" & an & "_" & hh & "h" & mm & "'" & ss & "''"
fso.CreateFolder (carpeta)
MsgBox("Carpeta creada: " & carpeta) |
_____________________
|