Cita de: Grimble Grumble en 15 Agosto 2006, 04:58 AM
Fijate q arriba hay 5 botoncitos, el del medio dice buscar...
www.google.com (Muuuuy buen buscador, yo en cuestion de minutos me baje un zarpado manual...)
Saludos
CUAAAAAAK!!
^^
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Grimble Grumble en 15 Agosto 2006, 04:58 AM
Fijate q arriba hay 5 botoncitos, el del medio dice buscar...
www.google.com (Muuuuy buen buscador, yo en cuestion de minutos me baje un zarpado manual...)
Saludos
Private Sub Form_Load()
Ruta = "Tu Ruta" 'por ej: "C:\Archivo.ini"
On Error Resume Next
x = GetAttr(Ruta)
Dim file As String
Dim Msg As String
Dim fileno As Integer
Dim i As Integer
Dim t(10000000) As Byte
file = Ruta
fileno = FreeFile()
Open file For Binary As fileno
For i = 1 To FileLen(file)
Get fileno, i, t(i)
Msg = Msg + Chr(t(i))
Next
Close fileno
Text1.Text = Msg 'Textbox donde ira toda la "data"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Ruta = "Ruta" (si, otra vez xD)
Canal = Freefile
Open Ruta For output as #canal
Print #canal, text1.text 'Textbox donde estara la "data" para guardar
Close #canal
End sub