|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 WAMP - PHP - MySQL
   Elastix - VoIP Cosas de Windows Webs interesantes Arduino
  Estación meteorológica Visual Basic Script (VBS)    

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

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)

_____________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información