[pregunta] Objeto List

[aldo1982]

WENAS KERIA SAVER COMO HACER PARA KE LOS ELEMENTOS KE ESTANEN UN OBJETO LIST SE IMPRIMAN EN UN ARCHIVO DE TEXTO,
POR EJEMPLO

EN UN LISTBOX TENGO 3 ELEMENTOS (ALDO,TOMAS,FEDERICO)

Y YO KIERO KE EN UN ARCHIVO DE TEXTO ME MUESTRE:

ALDO
TOMAS
FEDERICO

BUE KIZAS ES MEDIO TONTA LA PREGUNTA PERO TRATE DE HACERLO SOLITO Y NO PUDE YO HACIA ALGO ASI:



Open "\wintec.txt" For Append As #1
Print #1, 'ACA NO SE KE MIER#@&% PONER
Close #1
Open "\wintec.txt" For Append As #1
Print #1, "----------- ----------- ------------"
Close #1

BUE SI ME AYUDAN DESDE YA MUCHAS GRACIAS...SALU2

[jorevale]

A ver.

Si en lugar de ser un listbox, fuera un combobox, yo haría un ciclo while en el que me llevara a una variable el valor almacenado en ComboBox.ListIndex desde 0 hasta n, y luego lo imprimiría. Supongo que con el listbox se pueda hacer algo parecido.

Espero te sirva

[David]

Pues se hace así:

Código:

 Open "C:/MyFile.txt" For Append As #1 
For Writting = 0 To List1.ListCount - 1
	   Print #1, List1.List(Writting)
	   Print #1, "-----------------------------"
Next Writting
Close #1

[aldo1982]

GRACIAS, ES JUYSTO LO KE NECESITAVA

[aldo1982]

Iniciado por David el Grande

Pues se hace así:

Código:

 Open "C:/MyFile.txt" For Append As #1 
For Writting = 0 To List1.ListCount - 1
	   Print #1, List1.List(Writting)
	   Print #1, "-----------------------------"
Next Writting
Close #1

PERDON LA MOLESTIA PEROME DA EL SIGUIENTE ERROR: "NOMBRE O NUMERO DE ARCHIVO INCORRRECTO"

ACA TE DEJO EL CODIGO A VE SI ME PUEDES AYUDAR...SALU2
Open "c:\db\BANCO_DE_PROVEEDORES.aldo" For Output As #1
For Writting = 0 To List1.ListCount - 1
Print #1, "=========================================="
Print #1, " CUENTA CORRIENTE "
Print #1, "=========================================="
Print #1, List1.List(Writting)
Print #1, "-----------------------------"
Close #1

Next Writting
Dim abrite As String
abrite = Shell("c:\windows\notepad.exe c:\db\BANCO_DE_PROVEEDORES.aldo", vbMaximizedFocus)

[aldo1982]

Perdon Ahi Ya Me Anduvo A La Perfeccion Mi Error Era Ke Ponia El Close #1 Antes Delnext Writting, Ahora Yalo Corregi Y Me Anda...gracias Nuevamente.

Pd: Eso Me Pasa Por Atolondrado