| Copyright &
. All Rights Reserved .如何将共享服务器的共享目录中的某个文件拷贝到本地
[问题点数：40分，结帖人xjq2003]
如何将共享服务器的共享目录中的某个文件拷贝到本地
[问题点数：40分，结帖人xjq2003]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
2010年10月 Delphi大版内专家分月排行榜第三2010年4月 Delphi大版内专家分月排行榜第三
2013年2月 Delphi大版内专家分月排行榜第二2013年1月 Delphi大版内专家分月排行榜第二
2013年7月 Delphi大版内专家分月排行榜第三2012年10月 Delphi大版内专家分月排行榜第三2012年9月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。以下试题来自：
单项选择题把当前盘当前目录中文件（主）名以W开头、第四个字符为A的所有文件复制到B盘当前目标中，应使用的DOS命令是（）
A、COPYW＊A.＊B：
B、COPYW？？A＊.＊B：
C、COPYW＊？A.＊B：
D、DISKCOPYA：B：
为您推荐的考试题库
您可能感兴趣的试卷
你可能感兴趣的试题
A、COPYW＊A.＊B：
B、COPYW？？A＊.＊B：
C、COPYW＊？A.＊B：
D、DISKCOPYA：B：
A、一次只能删除一个读写文件
B、一次可以删除一个或多个读写文件
C、可以删除隐含文件
D、可以删除只读文件
A、DIRB5.PRG
B、TYPEC：\B5.PRG
C、DIRC：\B5.PRG
D、TYPEC：\B＊.PRG
A、外部命令
B、内部命令
C、系统命令
D、配置命令查看: 12861|回复: 16
复制当前路径的所有文件到指定文件夹【三种方法】
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: 芐雨
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 07&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 芐雨 于
23:02 编辑
如何复制当前路径的所有文件到指定文件夹
方法一：FileCopy&&
可在VBA中直接引用，单个文件的copy。所以本例中用循环+复制完成。
FileCopy&&源文件名,目标文件名& && && &【两个参数都是必选的,且都包含路径。】
注：如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。所以用了 ActiveWorkbook.SaveCopyAs +完整路径
Sub 复制当前路径的所有文件到指定文件夹_FileCopy()
& & t = Timer
& & Dim 当前路径 As String, 目标路径 As String
& & Dim fs
& & On Error Resume Next
& & 当前路径 = ThisWorkbook.Path & &\&
& & 目标路径 = &C:\汇总数据\&& &'目标目录
& & fs = Dir(当前路径 & &*&)& & '如果只复制xls则把 &*& 改成 &*.xls&)
& & Do While fs && &&
& && &&&FileCopy 当前路径 & fs, 目标路径 & fs
& && &&&fs = Dir
& & Loop
& & ActiveWorkbook.SaveCopyAs 目标路径 & ThisWorkbook.Name
& & '*******如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误******
& & MsgBox Format(Timer - t, &0.0000&)
End Sub复制代码
方法二：CopyFile
需调用FileSystemObject，多个文件可使用通配符。
object.CopyFile source, destination[, overwrite]CopyFile 方法语法有如下几部分：部分描述object必需的。object始终是一个 FileSystemObject 的名字。source必需的。指明一个或多个要被复制文件的字符串文件说明，它可以包括通配符。destination必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串，不允许有通配符。overwrite选项的。Boolean 值，它表示存在的文件是否被覆盖。如果是 True，文件将被覆盖；如果是 False，它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置，不论 overwrite 值如何，CopyFile 都将失败。
Sub 复制当前路径的所有文件到指定文件夹_CopyFile()
& & t = Timer
& & Dim Fso As Object
& & Dim 当前路径 As String, 目标路径 As String
& & 当前路径 = ThisWorkbook.Path & &\*.*&& &'如果只复制xls则把 &*.*& 改成 &*.xls&
& & 目标路径 = &C:\汇总数据\&& && && && &&&'目标路径
& & Set Fso = CreateObject(&Scripting.FileSystemObject&)
& & Fso.CopyFile 当前路径, 目标路径
& & Set Fso = Nothing
& & MsgBox Format(Timer - t, &0.0000&)
End Sub
复制代码
方法三：XCopy
批处理，shell调用
文中用了 shell&&Environ(&ComSpec&)
其中：Environ(&ComSpec&) 可以获得下列文字&c:\windows\system32\cmd.exe&
XCOPY source [destination]
source指定要复制的文件。destination指定新文件的位置和/或名称。指定要复制文件也可带通配符。还包含很多参数。XCOPY是COPY的扩展，可以把指定的目录连文件和目录结构一并拷贝，但不能拷贝系统文件。
代码：
Sub 复制当前路径的所有文件到指定文件夹_XCOPY()
& & t = Timer
& & Dim 当前路径 As String, 目标路径 As String
& & 当前路径 = ThisWorkbook.Path & &\*.*&&&'如果只复制xls则把 &*.*& 改成 &*.xls&
& & 目标路径 = &C:\汇总数据\&& && && && &&&'目标路径
& & Shell Environ(&comspec&) & & /c xcopy & & 当前路径 & & & & 目标路径, vbHide
& & MsgBox Format(Timer - t, &0.0000&)
End Sub
复制代码
三种方法速度对比
附件中有文件101个，每个约20K左右
FileCopy：约0.3秒
CopyFile：约0.06秒
XCopy:& &&&约0.007秒
使用批处理，超快。
(1.36 MB, 下载次数: 261)
19:10 上传
点击文件名下载附件
魅力值 +16
感谢帮助:)
感谢帮助:)
谢谢补充:)
技法娴熟:)
学office，哪能不关注全网最大的Office类微博（新浪）
高级三, 积分 2545, 距离下一级还需 505 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
下雨怎么会得那么多哈？羡慕嫉妒恨哈！
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 50, 距离下一级还需 200 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢分享！& &
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 40, 距离下一级还需 10 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
看看什么资料学习
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 46, 距离下一级还需 4 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
这招有用！
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 21, 距离下一级还需 29 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢分享！& &
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 215, 距离下一级还需 35 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 48, 距离下一级还需 2 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
建议在文章前端增加一段该代码运用的工作情景，物尽其用
学office，哪能不关注全网最大的Office类微博（新浪）
高级二, 积分 2079, 距离下一级还需 371 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 chenlifeng 于
00:13 编辑
第三种方法，在模版文件如： Doc = &C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\Normal.dotm& 在使用时，无法复制到指定公交车？！
第二种方法可以。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 10, 距离下一级还需 40 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
第三种方法无法复制数据,另外想请教版主的是,如果是提取文件夹下面还有子文件夹的,如果修改才能把所有包含的子文件夹的文件都提取到指定目录,如果重名的话在名字前面添加路径
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by如何拷贝文件到当前目录_百度知道
如何拷贝文件到当前目录
提问者采纳
意味着 *.wps con&#47copy &#47:\v 拷贝以后加以校验/-y 加以提示.97 当当前目录下的97子目录下文件全部拷到当前目录copy ,对所有文件 (yes或no提问 )/B 按二进制进行显示copy w1;98 将父目录下的98子目录下的所有文件全拷到当前子目录copy .&#92.\b 可以将wps文件在屏幕上显示.,而不必进入wps状态copy ,对所有文件加以覆盖&#47.* 文件copy nul a.abc 将a;y 不加提示; 将当前目录下的所有文件拷到c盘根目录
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}