|
Visual Basic-11
Carpetas y Archivos
Carpetas
Comprobar si la carpeta "C:\Europa" existe.
En caso que exista que salga un mensaje.
En caso que no exista que se cree la carpeta y varias subcarpetas.
Private Sub Command1_Click()
Carp = Dir("C:\Europa", vbDirectory)
If Carp <> "" Then
MsgBox ("La Carpeta Existe")
Else
MsgBox ("La Carpeta No Existe, la voy a crear.")
MkDir ("C:\Europa")
MkDir ("C:\Europa\España")
MkDir ("C:\Europa\Italia")
MkDir ("C:\Europa\Francia")
MsgBox ("Ya han sido creadas. Consulta C:")
End If
End Sub
|
Borrar carpetas.
Antes de borrar una carpeta debemos borrar su contenido.
Para borrar archivos: Kill *.*
Para borrar carpetas: Rmdir
Private Sub Command2_Click()
RmDir ("C:\Europa\España")
RmDir ("C:\Europa\Italia")
RmDir ("C:\Europa\Francia")
RmDir ("C:\Europa")
End Sub
|
Archivos.
Crear un archivo y escribir datos.
(Machaca los datos anteriormente escritos) (Output)
Private Sub Command1_Click()
Nombre = "Juan Antonio"
DNI = "12345678"
Open "C:\borrame.txt" For Output As #1
Write #1, Nombre, DNI
Close #1
End Sub
|
Pulsa varias veces el Botón. Consulta C:\borrame.txt.
Cambia Write por Print
Crear un archivo y añadir datos.
(Append)
Private Sub Command2_Click()
Nombre = "Juan Antonio"
DNI = "12345678"
Open "C:\borrame.txt" For Append As #1
Print #1, Nombre, DNI
Close #1
End Sub
|
Pulsa varias veces el Botón. Consulta C:\borrame.txt.
Introducir datos.
 |
Private Sub Command1_Click()
Nombre = Text1.Text
DNI = Text2.Text
Open "C:\borrame.txt" For Append As #1
Write #1, Nombre, DNI
Close #1
End Sub
' Insertamos los datos con Write
' Prueba Print #1 Nombre; DNI;
' El ; une las palabras.
' Consulta el archivo
|
Visualizar datos.
|
|
Private Sub Command1_Click()
Close
Open "C:\borrame.txt" For Input As #1
End Sub
Private Sub Command2_Click()
If EOF(1) Then
MsgBox ("Fin de archivo")
Else
Input #1, Nombre, DNI
Text1.Text = Nombre
Text2.Text = DNI
End If
End Sub
|
Si en vez de poner: Input #1, Nombre,
DNI
Ponemos: Line Input #1, Nombre
Saldrá cada renglón.
Comprobar
Comprobar si el archivo C:\borrame.txt existe.
En caso que exista que se muestre.
En caso que no exista que se cree.
|
En las Propiedades del Text1 debemos poner:
Multiline = True
ScrollBars = 2 - Vertical
|
Private Sub Command1_Click()
Arch = Dir("C:\borrame.txt", vbFile)
If Arch <> "" Then
MsgBox ("El archivo Existe")
Open "C:\borrame.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, renglon
todo = todo & renglon & vbCrLf
Text1.Text = todo
Else
MsgBox ("No existe, voy a crearlo.")
Open "C:\borrame.txt" For Output As #1
MsgBox ("Ya está creado.")
End If
End Sub
|
Tamaño de un archivo en bytes y
fecha de creación.
Private Sub Command1_Click()
longitud = FileLen("C:\borrame.txt")
Print longitud
fecha = FileDateTime("C:\borrame.txt")
Print fecha
End Sub
|
Atributos de un archivo.
vbNormal 0
Normal
vbReadOnly 1
Sólo lectura
vbHidden
2 Oculto
vbSystem 4
Sistema
vbDirectory 16
Directorio
vbArchive 32
El archivo ha cambiado desde su última copia |
Poner atributos:
SetAttr "C:\borrame.txt", vbHidden + vbReadOnly
|
Consultar atributos:
atri = GetAttr("C:\borrame.txt")
|
atri será igual a 1 + 2 = 3
Quitar atributos:
SetAttr "C:\borrame.txt", 0
|
Base de datos con fichero.
Otra base de datos mediante control de archivos: Ficherobase.exe
(28 K)
Código fuente: Ficherobase.zip
( 2 K)
|
