currupipi999 respondió:
Te dejo aquí una función que te servirá para hacer lo que quieraes. Private Function ArchivoEstaAbierto(ByVal Ruta As String) As Boolean On Error GoTo HayErrores Dim f As Integer f = FreeFile Open Ruta For Append As f Close f ArchivoEstaAbierto =...