我编的有什么错？

Kevin02003 2003-11-27 11:52:16

下面的程序是我编的拷贝文件的函数，可是令我遗憾的是，拷贝过去文件的内容和大小都不对！哪位大侠帮我挑一挑毛病？

Private Function CopyFile(fFrom As String, fTo As String) As Boolean
Dim Buf As String, Buf2 As String, FL As Long, I As Long, R As Integer, C As Long

On Error GoTo Copy_File_err
Open fFrom For Binary Access Read As #1
Open fTo For Binary Access Write As #2
FL = LOF(1)
I = Int(FL / 1024)
R = FL Mod 1024
Buf = String(1024, " ")
For C = 1 To I
Get #1, , Buf
Put #2, , Buf
Next C
Buf2 = String(R, " ")
Get #1, , Buf2
Put #2, , Buf2
Close #1
Close #2
CopyFile = True
Exit Function
Copy_File_err:
Close #1
Close #2
MsgBox "文件操作失败！请检查文件是否被占用。", vbOKOnly, "错误"
CopyFile = False
End Function

...全文

56 30 打赏收藏转发到动态举报

写回复

用AI写文章

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

pigpag 2003-11-29

打赏
举报

//哇赛，这么多招啊！我太感动了！和同行们交流真是有好处啊！
主要是因为问题简单，才会有这么多招儿的:)

IT服务 2003-11-28

打赏
举报

你查一下msdn里有filesystemobject这些东西.

rainstormmaster 2003-11-28

打赏
举报

也可以调用api函数CopyFile：
声明：
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
返回值：
Long，非零表示成功，零表示失败。会设置GetLastError
参数：
lpExistingFileName - String，源文件名

lpNewFileName -- String，目标文件名

bFailIfExists -- Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写

该函数比较简单，我就不写例子了

IT服务 2003-11-28

打赏
举报

Dim FSO As Object
Dim Folder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\INID_share\KAIINUPD")

xDotNet 2003-11-28

打赏
举报

Dim file() As Byte
......
用 byte 会不会好一点呢？

照上面的看-->还是用 filecopy 方便一点！

IT服务 2003-11-28

打赏
举报

可以把文件从一个地方move到另一个地方.

rainstormmaster 2003-11-28

打赏
举报

Private Function CopyFile(fFrom As String, fTo As String) As Boolean
Dim Buf() As Byte, FL As Long
FL = filelen(fFrom)
redim buff(FL-1)
On Error GoTo Copy_File_err
Open fFrom For Binary Access Read As #1
Open fTo For Binary Access Write As #2
Get #1, , Buf
Put #2, , Buf
Close #2
Close #1
CopyFile = True
Exit Function
Copy_File_err:
Close #1
Close #2
MsgBox "文件操作失败！请检查文件是否被占用。", vbOKOnly, "错误"
CopyFile = False
End Function

IT服务 2003-11-28

打赏
举报

还可以用name 命令呢.

Kevin02003 2003-11-28

打赏
举报

我做了修改，哎！还是不行！原来是568字节变成了1591字节！

Private Function CopyFile(fFrom As String, fTo As String) As Boolean
Dim Buf(0 To 1023) As Byte, FL As Long, I As Long, R As Integer, C As Long

On Error GoTo Copy_File_err
Open fFrom For Binary Access Read As #1
Open fTo For Binary Access Write As #2
FL = LOF(1)
I = Int(FL / 1024)
R = FL Mod 1024
For C = 1 To I
Get #1, 1024, Buf
Put #2, 1024, Buf
Next C
Get #1, R, Buf
Put #2, R, Buf
Close #1
Close #2
CopyFile = True
Exit Function
Copy_File_err:
Close #1
Close #2
MsgBox "文件操作失败！请检查文件是否被占用。", vbOKOnly, "错误"
CopyFile = False
End Function