copiar texto de un listbox a un archivo

[oscarleon]

tiene que ser lo mas facil del mundo pero no lo he conseguido( soy novatisimo) y aunque me he tirado toda la noche de ayer buscando no he encontrado nada.

lo unico que quiero es que me liste todos los archivos del directorio que yo quiera en un listbox (eso ya lo he conseguido) pero luego que me los copie a un archivo de texto al disco duro solo el listado no los ficheros fisicos.

tiene que ser facilisimo pero no lo consigo haber si me podeis echar una mano.

gracias

[jc_moty]

A decir verdad no es tan dificil lo que queres hacer, aqui esta la solucion:

Código:

Dim i, nFich, Cont As Integer
Dim cDato, listaFicheros As String
' Tomamos los items del List y los ponemos en una variable
For i = 0 To List1.ListCount - 1
    listaFicheros = listaFicheros & List1.List(i) & vbCrLf
Next i

nFich = FreeFile
' Creamos un TXT
Open "c:\lista.txt" For Binary As #nFich
Seek #nFich, 1
cDato = String(1, " ")
For Cont = 1 To Len(listaFicheros)
    ' Tomamos cada caracter de la variable que contiene los items del list
    cDato = Mid(listaFicheros, Cont, 1)
    ' Ponemos el caracter en en el Fichero que hemos creado
    Put #nFich, Cont, cDato
Next

Espero te sirva
Saludos

[oscarleon]

muchas gracias , si me ha valido.

gracias