分类:
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)
)