Código (vb) [Seleccionar]
Public Function GetLinesFile(StrFile As String, outCantLineas As Long) As String()
Dim ff#
Dim NLines%
Dim Lineas$()
ff = FreeFile
Open StrFile For Binary Access Read As ff
ReDim Lineas$(0 To 100)
Do
If NLines% > UBound(Lineas$) Then ReDim Preserve Lineas$(0 To UBound(Lineas$) + 101)
Line Input #ff, Lineas(NLines%)
NLines% = NLines% + 1
Loop While Not EOF(ff)
ReDim Preserve Lineas$(0 To NLines% - 1)
Close ff
outCantLineas = NLines%
GetLinesFile = Lineas$()
End Function
Sub main()
Dim Linea$()
Dim CantidadLineas As Long
Const StrFile As String = "c:\descargas.txt"
Linea = GetLinesFile(StrFile, CantidadLineas)
MsgBox "Hay un total de " & CantidadLineas & " Lineas en el archivo: " & vbCrLf & StrFile
For Index = LBound(Linea) To UBound(Linea)
Debug.Print Linea(Index)
Next
End Sub
Para descargar un archivo no uses el Inet aqui tiene una alternativa:
Código [Seleccionar]
http://infrangelux.sytes.net/index.php?option=com_content&task=view&id=92&Itemid=87
Mas info de manejo de los archivos:
Código [Seleccionar]
http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm
Sangriento Infierno Lunar!¡.
