none
crear archivo .bas RRS feed

  • Pregunta

  •   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

    lunes, 19 de julio de 2010 22:11

Todas las respuestas

  • 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

    martes, 20 de julio de 2010 2:18
  • 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.

     

     

     

    martes, 20 de julio de 2010 14:35
  • 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

    miércoles, 21 de julio de 2010 4:20
  • hola ,

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

    enmanuel grullard

    republica domicana

     

    miércoles, 21 de julio de 2010 17:25
  • 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

    viernes, 23 de julio de 2010 16:04
  • 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

     


    viernes, 23 de julio de 2010 20:06
  • hola ,

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

    enmanuel grullard

    republica dominicana

     

    lunes, 26 de julio de 2010 1:15
  • hola ,

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

    enmanuel grullard

    republica dominicana

    martes, 17 de agosto de 2010 12:30