我使用如下代码进行复制文件夹及所有字文件夹和文件操作,运行时没有报错,但是没有复制文件,请问问题在哪里呢?
  
'1、获取tomcat安装目录
    strTomcatPath = w.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Apache Software Foundation\Tomcat\6.0\InstallPath")
    'MsgBox strTomcatPath
  '2、copy webgis到tomcat指定目录下
    strWebGisPath = strTomcatPath & "\webapps\ROOT\"
    strWebGisPath = Chr(34) & strWebGisPath & Chr(34)
    strPram = "D:\temp\webgis\ " & strWebGisPath
    MsgBox strPram
    'open  explore find
    ShellExecute Me.hwnd, "open", "C:\WINDOWS\system32\xcopy.exe", strPram, 0, 0