Archivos Binarios

[David Vans]

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 eso

Código [Seleccionar] Expandir

Public 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

Código [Seleccionar] Expandir

 
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


[CeLaYa]

ya intentaste usar un Richt text box a ver si en ese si te carga el archivo, usa sus metodos para abrir y guardar.

[David Vans]

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"

[NYlOn]

Para que no se cuelgue la aplicacion tenes que poner DoEvents adentro de los bucles.

Saludos.-

[CeLaYa]

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

[Nymphetaminito]

Alguien sabe como abrir un archivo de 500 mb sin desbordamiento