ficheros
Publicado por nelem (68 intervenciones) el 06/10/2005 09:25:29
Hola yo lo que intento es escribir lo que tengo en un textbox en un fichero para ello he usado:
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile()
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1.text
Close #canalLibre
pero el open me da error y no se porque.
Un saludo y muxas gracias
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile()
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1.text
Close #canalLibre
pero el open me da error y no se porque.
Un saludo y muxas gracias
Valora esta pregunta
0