Estimados amigos:
Tengo una aplicación que genera unos archivos txt en una carpeta especifica con informacion de ciertos movimientos realizados, todo funcionaba bien, pero un cliente me reporto el siguiente error:
Error 55 File already open
He estado investigando pero no encuentro nada que me aclare 100% el problema...ojalá que ustedes me puedan guiar para dar con la solución
Adjunto un ejemplo muy similar (casi identico) al que ocupo en la aplicación.
Cita:
Private Sub Ingresar()
Dim n As Integer
Dim directorio As String
Dim archivoTxt As String
Dim fileIn as String
directorio = "C:\Respaldo"
fileIn = "archivo.txt"
If Dir(directorio, vbDirectory) = "" Then MkDir directorio
n = FreeFile
archivoTxt = directorio & "\" & fileIn
Open archivoTxt For Append As #n
Print #n, "Hola"
Close #n
End Sub
Gracias por vuestra ayuda
ecerpa
