HOla tengo un problemilla queiro coger un archvio y partirlo en varios trozos el problema que tengo que si el archvio es grande no entra el dato en un avriable yo uso esoPublic Function DatosBianarios(Rut As String, Cachos As Integer)
Dim Datos As String, bytes As Double, BytesParte As Double
Dim i, e As Integer, BytesUnidos As Double, datos2 As String
BytesUnidos = 1
Open Rut For Binary As #1
Do While Not EOF(1)
On Error Resume Next
Input #1, datos2
Datos = Datos & datos2 & vbCrLf
DoEvents
Loop
Close #1
Close #1
bytes = Len(Datos)
BytesParte = bytes / Cachos
For i = 0 To Cachos - 1
Open "c:\File\file" & e For Binary As #1
Dim secu As String
secu = Mid(Datos, BytesUnidos, BytesParte)
Put #1, , secu
Close #1
BytesUnidos = BytesUnidos + BytesParte
e = e + 1
Next i
DatosBianrios = "Todo Correcto"
End Function
el probela surge cundo leeo el archivo tarda muchisimo y aveces no termina de leerlo
aveces uso esto
Datos = Space(LOF(1))
Get #1, , Datos
pero si la varible es muy grande por ejmplo 600 mb no entra en la varible dato
alguna idea porfa
ya intentaste usar un Richt text box a ver si en ese si te carga el archivo, usa sus metodos para abrir y guardar.
si lo probe tarda mucho en cargarse y creo que el richttxt box no soprta tanto tamaño voy a prbar si no recurdo mal es
Richt.FIlename="File"
Para que no se cuelgue la aplicacion tenes que poner DoEvents adentro de los bucles.
Saludos.-
El usar DoEvents en los bucles no resuelve el problema, la aplicación de todas maneras se colgaria. Recuerden que DoEvents solo alterna el control del entorno del sistema operativo
Alguien sabe como abrir un archivo de 500 mb sin desbordamiento (http://foro.elhacker.net/index.php/topic,105075.msg491467.html#msg491467)