文件复制问题？

finsoft_001 2006-07-22 09:14:09

怎么才能通过一个按钮将D:\122 下所有 HTM 格式的文件复制到c:\htm文件夹下面？

...全文

156 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

WM_JAWIN 2006-07-22

打赏
举报

通过Shell调用,可以做到最简单
shell "cmd.exe /c copy D:\112\*.htm C:\htm",vbhide

fj182 2006-07-22

打赏
举报

Private Sub Command1_Click()

Dim strSource As String
Dim strDest As String
Dim strFileName As String

strSource = "d:\122\"
strDest = "c:\htm\"

strFileName = Dir(strSource & "*.htm")

Do While Len(strFileName) > 0

FileCopy strSource & strFileName, strDest & strFileName

strFileName = Dir()

Loop

End Sub

commons-fileupload-1.2.1.jar和commons-io-1.3.2.jar 案例上传： http://hi.baidu.com/lichao77821/blog

模仿DOS命令XCopy的功能

考虑到大家说太贵了，我把分值降低了花了大半天，汉化了这个软件的一部分，今后后继续更新力争汉化完全。使用方法：将所有汉化文件复制到PowerDesigner15的安装目录覆盖原来的文件，建议覆盖前做好原文件的备份。有问题到我的博客反应：http://www.buguw.com

在中国移动广西分公司主页上：http://www.gx.chinamobile.com 查询到你的话费清单：如话费清单格式。把它复制粘贴到一个文本文件中就可以了。注意：只要清单那部分然后建一个数据库，选择数据库文件和话费清单文件后点《处理》。这样就可以打开数据库进行操作了。