algo más rapido

[<[(x)]>]

holas

Creando un proyecto necesite leer un archivo, de unos 480kb, y pasarlo a una variable string. El problema es que el código que implemento es demasiado lento y tarda unas eternidades en cargar todo el archivo. 

Si alguien conoce un método más rápido y puede postearlo le agradecería mucHo.

a y el archivo lo carga de un .res.

este es el code q uso

Código [Seleccionar] Expandir


Dim strDatos As String
Dim aDatos() As Byte
Dim x As Long

aDatos = LoadResData(101, strTipo)

For x = 0 To UBound(aDatos)
strDatos = strDatos & Chr(aDatos(x))
DoEvents
Next