crear archivo plano

tiradofrank
11 de Febrero del 2004
buenas, yo tengo la informacion en un list, y quiero pasar esa informacion tal cual como esta a un archivo de formato txt en un disco de 3 1/2, como puedo hacer eso, yo tengo esta rutina elaborada, pro no me crea el disco:

'On Error GoTo err
Open "A:" + sso$ For Output As #1

Print #1, "E000000000" + Mid(Label1.Caption, 4, 2) + Mid(Label1.Caption, 7, 4) + Format(List1.ListCount + List1.ListCount, "00000") + Space(63)
For I = 0 To List1.ListCount - 1
List1.ListIndex = I
Print #1, List1.Text
Next I
'For I = 0 To List2.ListCount - 1
' List2.ListIndex = I
' Print #1, List2.Text
' Next I
Close #1
GoTo noerror
err:
MsgBox "Error Creando Archivo :" & theDir
noerror:

sdemingo
11 de Febrero del 2004
donde controlas el error, haz un msgbox de err.description para ver porque falla