crear archivo .bas

Question

  Open app.path & "\NewMod.bas" For Binary As #1
    Put #1, , dato
  Close #1

A ver si alguien me puede hechar una mano , me gustaria saber como crear un nuevo modulo ".bas" , he probado con este codigo pero me dice que la entrada de datos a sobrepasado el final del archivo

 

gracias

Answer 1

Te sugiero buscar un curso de VB6 los encuentras en linea pues un modulo se crea desde la aplicacion VB y en su caso se usa desde VB o se genera un archivo exe desde mismo VB una vez que haz hecho una aplicacion

aver si te gusta

http://www.elguille.info/vb/cursos_vb/basico/indice.htm

Saludos

Answer 2

gasgdl gracias por responder, se que los modulos se pueden crear desde la aplicacion ,pero he visto programas que los añaden desde codigo, el codigo que he puesto crea el modulo pero da error al abrirlo.

 

 

 

Answer 3

Ok, es correcto, entonces no abras el archivo de salida como "binary" sino como texto, esto es:

 

    Open "Datos.bas" For Output As #1
        Print #1, "dato" + variable1
    Close #1

Claro esta asegurandote que todas las sentencias dentro del archivo de texto "Datos.bas" sean validas para VB

 

saludos

Answer 4

hola ,

Buenas tardes , fue  posible tu solucion con la informacacion que te proporcionaron ?

enmanuel grullard

republica domicana

 

Answer 5

Probe con el codigo que me dio gasgdl y todavia no consigo crear el archivo sin que me de error al abrir

Open "Datos.bas" For Output As #1
        Print #1, "dato" + variable1(string)
    Close #1

 

gracias la ayuda

Answer 6

saludo,

prueba con esto

Dim FSO As FileSystemObject
Dim TS As TextStream
Dim StrTemp As String

Set FSO = New FileSystemObject

If FSO.FileExists(App.Path & "\config.bas") Then
'El archivo existe y se lee la informacion que contenga.
Set TS = FSO.OpenTextFile(App.Path & "\config.bas")
If TS.AtEndOfStream Then
LeerArchivo = False
End If
StrTemp = TS.ReadLine
If StrTemp = "[Nothing]" Then
ElseIf FSO.FileExists(StrTemp) Then
Else
End If
Else
FSO.CreateTextFile (App.Path & "\config.bas")
Set TS = FSO.OpenTextFile(App.Path & "\config.bas", ForWriting)
TS.WriteLine "[Nothing]"
End If

espero que te pueda ayudar

Enmanuel Grullard

Republica Dominicana

 

Answer 7

hola ,

amigo todavia nos has podido ver la informacion que te facilite  o no te fue de utilidad ?

enmanuel grullard

republica dominicana

 

Answer 8

hola ,

amigo todavia nos has podido ver la informacion que te facilite  o no te fue de utilidad ?

enmanuel grullard

republica dominicana