[Resolvido]Exportar conteudo de Listbox para txt

Algum amigo tem um exemplo de como fazer?
É que minha list box pega arquivos de uma pasta, e eu queria imprimir essa lista de arquivos.

Obrigado e aguardo retorno

Não seria melhor um relatório? Você pode imprimir sem exportar.

Um Pitaco

Se essa ListBox estiver ligada a uma qry você exporte através da consulta

Não esta ligada, ela pega uma pasta especifica e preenche com os arquivos (ficheiros) contidos nela.

Amigo Top, teste assim:

Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8

Dim fso As Object
Dim ts As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\teste.txt", FOR_WRITING, True)

For i = 0 To NomeListBox.ListCount - 1
ts.WriteLine NomeListBox.Column(0, i)
Next

PERFEITO.

Muito Obrigado Amigo Vieira, e obrigado ao Criquio pela pronto atendimento.

Resolvido

Abração e bom trabalho