Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 07, 2008, 09:44:46
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Programación Basica  |  Tema: Ayuda urgente porfavor contesten 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Ayuda urgente porfavor contesten  (Leído 940 veces)
slope
Visitante
« en: Diciembre 25, 2003, 01:11:51 »
hola, consegui abrir una lista.ctt y que el contenido se me abriera en un list box, el codigo utlilizado fue el siguiente:
Private Sub Command6_Click()
Dim sNomArxiu As String
Dim s As String, sNom As String
 
    CMDialog1.Filter = "Ficheros messenger|*.ctt"
    CMDialog1.ShowOpen
    sNomArxiu = CMDialog1.FileName
    If sNomArxiu <> "" Then
        Open sNomArxiu For Input As #1
        While Not EOF(1)
            Line Input #1, s
            sNom = NomContacte(s)
            If sNom <> "" Then
                contactes_msn.AddItem sNom
            End If
        Wend
        Close #1
    End If
End Sub
Pues, ahora me gustaria saber que es lo que tengo que hacer para que el contenido del listbox pueda ser guardado en un fichero.ctt, es decir que cuando se pulse el boton guardar el contenido del listbox se guardara en un archivo.ctt, espero que me contesteis pronto porfavor es urgente, bye.
En línea
Shadow
Visitante
« Respuesta #1 en: Diciembre 25, 2003, 11:54:52 »
En línea
slope
Visitante
« Respuesta #2 en: Diciembre 26, 2003, 07:26:44 »
muchas gracias, pero me da un error, en la variable
AP = App.Path
y asi seguidamente, pero, no se que hacer para seguir, voy a seguir mirando pero si puedes contestame.
En línea
Shadow
Visitante
« Respuesta #3 en: Diciembre 26, 2003, 07:20:25 »
En línea
slope
Visitante
« Respuesta #4 en: Diciembre 27, 2003, 06:26:58 »
Muchas gracias por contestar tan pronto, pero como de costumbre tengo otra duda con tu codigo, me funciona bien pero hay una parte: Set A = fs.CreateTextFile("C:\Contactos.ctt", True) entonces, aqui tu especificas la C: y el nombre de el archivo, pero lo que yo quiero es que cada usuario elija el nombre y el directorio donde lo quiera guardar, que tengo que hacer para que me funcione esto?HuhHuh

PD: EL codigo funciona bien pero es solo esa parte, muchas gracias por contestar.
En línea
Shadow
Visitante
« Respuesta #5 en: Diciembre 28, 2003, 01:58:05 »
« Última modificación: Diciembre 28, 2003, 08:49:58 por Shadow » En línea
Shadow
Visitante
« Respuesta #6 en: Diciembre 28, 2003, 08:46:58 »
« Última modificación: Diciembre 29, 2003, 08:33:58 por Shadow » En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Programación Basica  |  Tema: Ayuda urgente porfavor contesten « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC