心如止水-复制并重命名

/*
作者：河许人
时间：2018年8月27日
脚本说明：
在正在编辑的Excel中按下热键
将该文件复制到D盘根目录下，替换一个叫“模板.xlxs”的文件，原来的那个删除到回收站
*/
!a::
    oExcel :=   ComObjActive("Excel.Application")
	dir.= oExcel.workbooks(1).FullName
	MsgBox,当前文件路径: %dir%
	FileCopy, %dir% , D:模板.xlsx , 1
	if(ErrorLevel=0)
	{
		MsgBox,转移成功
	}
	else
	{
		MsgBox,转移失败
	}
return