[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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


谢谢!

回复 2# idwma


   牛逼Plus,感谢!

TOP

本帖最后由 idwma 于 2021-7-7 20:02 编辑

<!-- ::
@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>
1

评分人数

TOP

返回列表