程序缺少参数

行雲

一个文件复制的程序。可便捷复制含多级文件夹子目录的文件群。

刚开始还能用，后来不知怎么的又不行了，程序报缺少参数，请大神帮忙改改，谢谢大家

[ pre]
(defun c:anz514562 (/ file path wssh)
  (setq file (qf_getFolder))  ;读取源文件夹
  (setq path "c:\\windows\\assembly\\GAC_MSIL\\cscompmgd\\Yanglingcun")
  (vl-load-com)
  (if (setq wssh (vlax-get-or-create-object "WScript.Shell"))
    (progn
      (vlax-invoke-method
wssh
'Run
(strcat "cmd.exe /c md " path)
0
:vlax-true
      )
      (vlax-invoke-method
wssh
'Run
(strcat "cmd.exe /c copy " File " " path)
0
:vlax-true
      )
      (vlax-release-object wssh)
    )
    (alert "")
  )
)
(defun qf_getFolder (/ WinShell shFolder path catchit)
  (vl-load-com)
  (setq winshell (vlax-create-object "Shell.Application"))
  (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
  (setq
    catchit (vl-catch-all-apply
       '(lambda ()
   (setq shFolder (vlax-get-property shFolder 'self))
   (setq path (vlax-get-property shFolder 'path))
        )
     )
  )
  (if (vl-catch-all-error-p catchit)
    nil
    path
  )
)
[ /pre]

HLCAD

c:\\windows目录下是受保护的，建议在其它盘符下建目录

longer1000

确实是难得好帖啊，顶先