OPENILE
Publicado por Alberto (1 intervención) el 04/03/2007 20:04:47
hola hace unos dìas pregunte sobre este tema pero me sigue sin funcionar a ver si alguièn me puede echar una mano.
El caso es que quiero guardar unos datos en n txt para una programita para poked pc
con Smart Devive. Pero me da un probela al probarlo me dice print no decarado y freeline tampoco.Me sale subrayado en azul open file.
Bueno si alguien me puede echar una mano lo agrdecere.
Un saludo
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fic
Dim nombre As String = "10"
fic = FreeFile()
FileOpen(1, "C:\fichero.txt", OpenMode.Output)
Print(fic, nombre)
Close()
End Sub
End Class
El caso es que quiero guardar unos datos en n txt para una programita para poked pc
con Smart Devive. Pero me da un probela al probarlo me dice print no decarado y freeline tampoco.Me sale subrayado en azul open file.
Bueno si alguien me puede echar una mano lo agrdecere.
Un saludo
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fic
Dim nombre As String = "10"
fic = FreeFile()
FileOpen(1, "C:\fichero.txt", OpenMode.Output)
Print(fic, nombre)
Close()
End Sub
End Class
Valora esta pregunta
0