Ayuda para generar un txt

[pradejon]

Hola , tengo una aplicación en la que creo facturas,albaranes...
A la hora de crear una factura tengo que crear un apunte en un fichero txt.
Lo tengo hecho de la siguiente manera:

Declaro el file al entrar al formulario

Dim file As Integer
file = FreeFile


Esto cada vez que cree una factura que haga un apunte nuevo:

Open App.path & "\contable.txt" For Append As #file
Print #file, "430000001" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") + bdcabfactura("iva") & " D"
Print #file, "477000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabfactura("iva") & " H"
Print #file, "700000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") + 1 & Right(Now, 2) & bdcabalb("preciopedido") & " H"
Close #file


El error que me sale es "Nombre o número de archivo incorrecto".

Muchas gracias