在vb中这样复制文件为啥不行？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 在vb中这样复制文件为啥不行？

标题：在vb中这样复制文件为啥不行？

只看楼主

ayld

等　级：新手上路
帖　子：87
专家分：0
注　册：2007-1-31
结帖率：100%

楼主

问题点数：0 回复次数：10

在vb中这样复制文件为啥不行？

FileCopy ThisWorkbook.Path & "\" & "wyh1225.xls", ThisWorkbook.Path & "\" & "sdf.xls"

搜索更多相关主题的帖子: 文件　

2008-07-10 19:58

flyue

来　自：江南西道
等　级：贵宾
威　望：19
帖　子：3465
专家分：1563
注　册：2006-6-20

第 2 楼

得分:0

记得有个API叫CopyFile专门用来拷贝文件的

天之道,损有余而补不足.人之道则不然,损不足以奉有余.孰能有余以奉天下,唯有道者.

2008-07-10 20:14

lhf391855540

等　级：新手上路
帖　子：175
专家分：0
注　册：2006-10-14

第 3 楼

得分:0

如果想要对一个已打开的文件使用 FileCopy 语句，会产生错误。

2008-07-10 20:35

水中无月

等　级：新手上路
帖　子：190
专家分：9
注　册：2008-6-17

第 4 楼

得分:0

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
这个是VB的定义

十里平湖霜满天,寸寸青丝愁华年,对月形单望相互,只羡鸳鸯不羡仙.

2008-07-10 20:37

lhf391855540

等　级：新手上路
帖　子：175
专家分：0
注　册：2006-10-14

第 5 楼

得分:0

FileCopy ThisWorkbook.Path & "\" & "wyh1225.xls", ThisWorkbook.Path & "\" & "sdf.xls"
这段代码试图对一个已经打开的文件使用FileCopy语句，所以注定是要失败的。FileCopy语句不能用于已经打开的文件。

2008-07-10 20:59

ayld

等　级：新手上路
帖　子：87
专家分：0
注　册：2007-1-31

第 6 楼

得分:0

[bo][un]水中无月[/un] 在 2008-7-10 20:37 的发言：[/bo]

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
这个是VB的定义

哪如何实现复制的功能？
请给vb的代码！

2008-07-10 22:09

ayld

等　级：新手上路
帖　子：87
专家分：0
注　册：2007-1-31

第 7 楼

得分:0

请给个完整的代码！

2008-07-10 22:56

ayld

等　级：新手上路
帖　子：87
专家分：0
注　册：2007-1-31

第 8 楼

得分:0