我使用如下代码进行复制文件夹及所有字文件夹和文件操作,运行时没有报错,但是没有复制文件,请问问题在哪里呢?
'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
'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
解决方案 »
- Excel中有VBA代码,一保存,就显示“该部件的许可信息没有找到”,如何解决?急!
- 能帮我写个小程序吗?
- 急用啊,以下c语言接口如何转成VB,我的有错吗
- 程序中需要处理很多表格,该用什么控件好呢?
- 请问如何在vb里面处理较大的数字?
- VB中用WebBrowser控件浏览网站,当鼠标一段时间不动的时候WebBrowser的当前页面转换到另一个页面,急急!!!
- 如何实现对z4m打印机编程
- 用vb编写可缩放移动矩形
- 关于vb中日期计算问题
- 有谁写过autorun.exe?不需要运行库的,越精简越好
- 安装VFP6.0的时候出现安装程序错误,找不到安装向导,要怎么弄啊??要考试了,急!!
- matcom4.5转换function成VB可调用的dll的问题
试试,注意空格,以及使用字符串连接技巧把源和目标换掉,比如
Shell "C:\WINDOWS\system32\xcopy.exe " & s & " & Target
2)用FileCopy 来复制档案