Detectar un Programa

[kikaki]

Detectar un programa antes deCopiar una Carpeta a otra unidad

--------------------------------------------------------------------------------
Hola chicos ojala puedan ayudarme ..

Tengo un programa que copia una carpeta de c:\\.... a M:\\ eso ya me quedo claro
pero ahora lo que necesito es que antes de que se haga la copia detecte si esta un programa en este caso acces abierto y me mande un msgbox que diga cierre todas las aplicaciones

MEayudan????????

[culd]

Vos solo queres saber si un programa (en este caso el access, osea el .exe) esta en ejecucion (sin importar que base este usando)...

ó vos queres que te diga si una base .mdb que esta en la carpeta que vas a copiar esta siendo utilizada, osea por ende esta abierta...

[kikaki]

Iniciado por culd

Vos solo queres saber si un programa (en este caso el access, osea el .exe) esta en ejecucion (sin importar que base este usando)...

ó vos queres que te diga si una base .mdb que esta en la carpeta que vas a copiar esta siendo utilizada, osea por ende esta abierta...

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

[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