求一个文件备份程序
本帖最后由 半听可乐 于 2012-12-5 20:39 编辑在论坛里面找了半天没找到能用的，只好发悬赏了，币不多了，充值却忘记了密码（希望谁能在此提醒我怎么操作，嘻嘻~~）~~~废话不多说，看正题------
希望程序使用步骤如下：
1.输入命令
2.打开有默认选择路径的对话框（如D:\项目\图纸），选择要备份的文件（要备份的文件能连同路径写到程序里更好！直接省去“2”这一步骤）
3.在指定路径建立一个名为“工作备份+月份.日期”的文件夹，将指定的需要备份的文件复制到该文件夹，备份完成！
4.打开刚建立的文件夹（用于检查是否备份成功）
相信这样的程序对于习惯用U盘备份图纸的同行作用很大，希望能引来高手的关注，拜谢！
以下是论坛里搜到的相关链接，希望对出手相助的大侠有用
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78135
本帖最后由 jdlfjk 于 2012-12-5 19:11 编辑
(defun C:Backup (/ BackupList File BackupFolder Date BackupPath wssh)
(setq BackupList '("D:\\1.txt"
"D:\\2.txt"
) ;括号内输入需要备份的文件的完整路径，下一行输入备份的目录，程序自动创建以时间命名的子目录
BackupFolder "D:\\"
Date (substr (rtos (getvar "cdate") 2 4) 5 4)
BackupPath (strcat BackupFolder Date)
)
(vl-load-com)
(if (setq wssh (vlax-get-or-create-object "WScript.Shell"))
(progn
(vlax-invoke-method
wssh
'Run
(strcat "cmd.exe /c md " BackupPath)
0
:vlax-true
)
(foreach File BackupList
(vlax-invoke-method
wssh
'Run
(strcat "cmd.exe /c copy " File " " BackupPath)
0
:vlax-true
)
)
(vlax-invoke-method
wssh
'Run
(strcat "cmd.exe /c explorer " BackupPath)
0
:vlax-true
)
(vlax-release-object wssh)
)
(alert "")
)
(princ)
)
看看怎样！ 竟然无人问津…
本帖最后由 半听可乐 于 2012-12-5 20:31 编辑
jdlfjk 发表于 2012-12-5 19:08 http://bbs.mjtd.com/static/image/common/back.gif
(defun C:Backup (/ BackupList File BackupFolder Date BackupPath wssh)
(setq BackupL ...
效果非常好！感谢感谢！
本着精益求精的态度，让程序能让更多人方便的使用，提高悬赏，以求程序能更上一层楼：
1.最好能增加时间后缀注解，让编程盲能自己小小DIY一下，比如我希望后缀是“月.日_时_分”，却不知怎么改……
2.想在一堆需要备份的文件中增加文件夹内容，怎么弄？即单个文件和文件夹都需要备份
3.能不能把几个常用备份目录一同写进程序，然后运行程序时提示备份到哪里，通过数字键选择去向？（提示去向时希望命令行出现的不是完整路径，而是自定义缩写）
4.需要备份的文件以及备份目录（去向）能不能通过鼠标点选，然后把各种路径自动记录进程序？
-----------------------------------------------------------------------------------------------------------------------
本社区ID为 “phoenixdjq” 的朋友帮我写过一个类似的程序，里面有些内容希望对你有用 http://bbs.mjtd.com/thread-99284-1-1.html
有请！
页:
[1]