[文件操作] 批处理复制文件如何检查是否有任意excel文件打开？

opelwang

请教，若复制一个指定文件，到指定目录下，若存在，强制复盖。
如：复制：D:\测试组\项目A\重点项目.xls
        到：Y:\数据共享\生产中心\生产一部\重点项目.xls
若目标文件已存在，则复盖。

复制前，需做出一个判断，检查是否有任意excel文件打开(或检查EXCEL.EXE进程是否存在)
若无，则直接进行复制操作。
若有，则弹窗提示(有是/否按个按钮)
  发现有excel文件打开，是否强制关闭。
按：是(Y)，强制关闭所有Excel文件，然后进行复制操作。
按：否(N)，退出程序。

谢谢！

opelwang

回复 2# idwma


   牛逼Plus，感谢！

idwma

<!-- ::
@echo off&setlocal enabledelayedexpansion
set "d=Y:\数据共享\生产中心\生产一部\重点项目.xls"
set "s=D:\测试组\项目A\重点项目.xls"
(tasklist /fi "imagename eq excel.exe" |find /i "excel.exe" >nul) && (for /f "delims=" %%i in ('mshta.exe "%~f0"') do set "f=%%i") || copy /y "%s%" "%d%"
if "!f!" == "1" taskkill /f /fi "imagename eq excel.exe" && copy /y "%s%" "%d%"
pause
goto :EOF
-->
<TITLE>发现有excel文件打开，是否强制关闭</TITLE>
<SCRIPT language="JavaScript">
window.resizeTo(550,110);
function closeHTA(reply){
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.GetStandardStream(1).WriteLine(reply);
window.close();
}
</SCRIPT>
<button onclick="closeHTA(1);">是(Y)，强制关闭所有Excel文件，然后进行复制操作。</button>
<button onclick="closeHTA(2);">否(N)，退出程序。</button>