求一个文件备份程序

半听可乐

在论坛里面找了半天没找到能用的，只好发悬赏了，币不多了，充值却忘记了密码（希望谁能在此提醒我怎么操作，嘻嘻~~）~~~废话不多说，看正题------
希望程序使用步骤如下：
1.输入命令
2.打开有默认选择路径的对话框（如D:\项目\图纸），选择要备份的文件（要备份的文件能连同路径写到程序里更好！直接省去“2”这一步骤）
3.在指定路径建立一个名为“工作备份+月份.日期”的文件夹，将指定的需要备份的文件复制到该文件夹，备份完成！
4.打开刚建立的文件夹（用于检查是否备份成功）
相信这样的程序对于习惯用U盘备份图纸的同行作用很大，希望能引来高手的关注，拜谢！

以下是论坛里搜到的相关链接，希望对出手相助的大侠有用
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78135

jdlfjk

(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)
)
看看怎样！

半听可乐

竟然无人问津…

半听可乐

jdlfjk 发表于 2012-12-5 19:08
(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


有请！