Tengo un .bat para borrar un archivo, al darle doble clic funciona perfectamente pero al llamarlo no

Tengo un .bat para borrar un archivo, al darle doble clic funciona perfectamente pero al llamarlo no desde Access 2010 mediante:

Ruta = CurrentProject.Path _
& "\" & "directorio.bat"
stAppName = Ruta
Call Shell(stAppName, 1)
Shell Ruta, vbNormalFocus

Usé dos cogido distintos para ver si servía y no sirvió.

El .bat es:

@echo off
%~dp0
del /F /QUE "LibreriasDLLOCX.accdb"
echo "Esta es una copia ilegal de TEJAM."
pause

El problema es que al darle doble clic funciona perfectamente y me borra el archivo, pero al llamarlo mediante código NO HACE NADA NI BORRA EL ARCHIVO.

Me urge hacer este borrado. De antemano gracias.