Visual Basic Foro
Programación => Bases de Datos => Mensaje iniciado por: Bazooka en Octubre 17, 2012, 11:23:27 am
-
HOLA AMIGOS tengo este codigo que funciona ok y lee linea por linea un afile de texto, ahora quiero colocarle una barra de progreso pero sucede que no conozco la cantidad de lineas del archivo y no me parece muy efectivo recorrerlo todo primero para ver cuantas lineas y asi asignar la propiedad MAX al progress.
Hay alguna otra forma de hacerlo?
Private Sub LeerArchivo()
On Error GoTo errSub
Dim n_File As Integer
Dim Linea As String
Dim cont As Long
cont = 0
n_File = FreeFile
Open txPath.Tag For Input As n_File
' pr4.Max = ??????: pr4.Visible = True
Do While Not EOF(n_File)
ReDim Preserve Filas(cont)
Line Input #n_File, Linea
Filas(cont) = Linea
cont = cont + 1
' pr4.Value = cont
Loop
Exit Sub
errSub:
MsgBox "Número de error: " & Err.Number & vbNewLine & "Descripción del error: " & Err.Description, vbCritical
End Sub
-
podes leer la cantidad de bytes total del archivo y despues los bytes de cada linea que vas recorriendo.
-
podes leer la cantidad de bytes total del archivo y despues los bytes de cada linea que vas recorriendo.
ejemplo please...