Bueno, como veo que le interesa a la gente como abrir y guardar textos pos yo me ofrezco para ayudaros... tambien veo problemas con el control Text Box.. a si esque ire poniendo cosas sobre este control tambien.. de momento solo lo de Abiri ya ire ampliando.
Necesitas:
1 Formulario (frmMain)
2 TextBox (txtFile, txtRuta)
2 Botones (cmdGuardar, cmdAbrir)
Codigo:
En el codigo del boton cmdAbrir
Private Sub cmdAbrir_Click()
'Abriremos el archivo que se indique en el textbox txtRuta
'Problema! debes poner una variable por linea!!!
Dim arc As String
Open txtRuta.Text For Input As #1
Input #1, arc 'pon aqui tantas variables como lineas alla en el archivo...
txtFile.Text = arc
MsgBox "Archivo " & txtRuta.Text & " Abierto correctamente", vbInformation, "Textos"
End Sub
En el boton cmdGuardar
Private Sub cmdGuardar_Click()
'Guardaremos el texto en el archivo que se indique en txtRuta
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
Dim canalLibre As Integer
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open txtRuta.Text For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, txtFile.Text
Close #canalLibre
MsgBox "Archivo guardado correctamente en " & txtRuta.Text, vbOKOnly + vbInformation, "Textos"
'Ya esta!
End Sub
El textbox txtFile debeis ponerle la propiedad multiline a True
txtFile.multiline= true
y si quereis dejarlo mas wapo warrear en la propiedad scrolls
txtFile.scrollbars = 1
0 > Ninguno
1 > Vertical
2 > Horizontal
3 > Ambos
Bueno espero que os ayude, acepto sugerencias para mejorarlo, que seguro que tiene muchos bugs, aunque ya lo probe y funciona!
Podeis bajaros en el ejemplo de:
http://www.alwarstudios.buildtolearn.net/web/Descargas/Abrir%20y%20Guardar%20Textos.zip
alwar, has trabajado con archivos binarios? de ser asi que aplicaciones le has dado..
Gracias!
Pues.. e intentado trabajar con archivos binarios, pero no se como hacerlo, queria intentar pasar archivos con winsock mediante los archivos binarios, pero sigo sin saber manejar lo de los binarios.
Alwar:
Busca aca, quisas encuentres lo del winsock.
http://www.planetsourcecode.com/vb/
Saludos
pruf!!! ay mazo codigo, ya encontre lo que queria pero no consigo entenderlo... habra que hecharle oras o buscar un manual..
Muchas gracias por el link M@rT1n te lo agradezco
Saludos!
aquí te dejo mi tuto para enviar archivos por winsockets. espero que te ayude
http://lympex.sosvulnerable.net/resources/textos/programacion/envio_archivos_vb.htm
Magnifico Lympex!! ::)