Detectar un Programa

[culd]

Iniciado por kikaki

Si queiro que me indique si una base .mdb que esta en la carpeta que vas a copiar se esta utilizando

Código vb:

Public Function ARCHIVO_Abierto(ByVal Ruta As String) As Boolean
On Error GoTo HayErrores
 
Dim f As Integer
   f = FreeFile
   Open Ruta For Append As f
   Close f
   ARCHIVO_Abierto = False
   Exit Function
HayErrores:
   If Err.Number = 70 Then
      ARCHIVO_Abierto = True
   Else
      Err.Raise Err.Number
   End If
End Function