求如何创建bat批处理文件在预定日期执行动作

solidbullet

我想实现到某一时刻实现某动作，但是不知道如何创建批处理文件。

(defun c:cpuid (/ str)
   (setq str
   "Set objSWbemObject = GetObject(\"winmgmts:Win32_Processor.DeviceID='cpu0'\")
   ret = objSWbemObject.ProcessorId"）
   (if (not *wsc)(setq *wsc (vlax-create-object "ScriptControl")))
   (vlax-put *wsc 'language "vbs")
   (vlax-invoke *wsc 'ExecuteStatement str)
   (setq id (vlax-invoke *wsc 'eval "ret"))
)

既然可以把vbs移植进来，肯定可以实现批处理的移植。bat跟lisp结合起来不是更好吗，网上很多批处理高速查找所有盘并找到

某文件，如果程序里面写上时间函数，然后到时间后让批处理运行把我想删除的文件自动删除掉。

(vlax-get-or-create-object "excel.application")  为什么(vlax-get-or-create-object "notepad.application") 不可以？

sepday

在程序开头加个时间判断即可

solidbullet

我的意思是在lisp 代码里面如何创建del.bat文件.　时间函数已经写好了！

比如我向在2008.11.31号执行系统清理功能！

BAT代码如下：

del /f /s /q %systemdrive%\*.chk
del /f /s /q %systemdrive%\*.old
del /f /s /q %systemdrive%\recycled\*.*
del /f /s /q %windir%\*.bak
del /f /s /q %windir%\prefetch\*.*
rd /s /q %windir%\temp & md %windir%\temp
del /f /q %userprofile%\cookies\*.*
del /f /q %userprofile%\recent\*.*
del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"
del /f /s /q "%userprofile%\Local Settings\Temp\*.*"
del /f /s /q "%userprofile%\recent\*.*"
echo 清除系统LJ完成！
echo. & pause