Ver Mensaje Individual
  #5 (permalink)  
Antiguo 17/08/2005, 06:38
Avatar de aldo1982
aldo1982
 
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses
Puntos: 6
Cita:
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)
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA