分类:
2009-04-06 11:08:00
file-exists?2 删除文件 好像不支持 delete-file,暂时用系统命令吧。因为自己一般会在 Windows 下安装 MinGW,所以有 rm 工具。这样写的话,可以在 Linux 下同样有效。
system (string-append "rm -f "完整的 del.scm 如下)
; (define outV_seg1 "seg1oVR.srp") (if (file-exists? outV_seg1) (system (string-append "rm -f " outV_seg1)) (file-exists? outV_seg1) )