请教:把一个文件先读入内存,再写成一个新的文件

Question

用 FileCopy 函数复制文件。

Answer 1

Function CopyFile(Src As String, Dst As String) As Single
    Static Buf As String
    Dim needsize, Fizesize As Single
    Dim Chunk, i2, i1 As Integer    Const BUFizesize = 1024    If Len(Dir(Dst)) Then
        Response = MsgBox(Dst + Chr(10) + Chr(10) + "目标文件以出现是否覆盖目标文件", vbYesNo + vbQuestion) 'prompt the user with a message box
        If Response = vbNo Then
            Exit Function
        Else
           Kill Dst
        End If
    End If
    i1 = FreeFile
    Open Src For Binary As i1
    i2 = FreeFile
    Open Dst For Binary As i2
    
    Fizesize = LOF(i1)
    needsize = Fizesize - LOF(i2)
    Do
        If needsize < BUFizesize Then
            Chunk = needsize
        Else
            Chunk = BUFizesize
        End If
      
        Buf = String(Chunk, " ")
        Get i1, , Buf
        Put i2, , Buf
        needsize = Fizesize - LOF(i2)
    Loop Until needsize = 0
    Close i1
    Close i2
    CopyFile = Fizesize
    copybar.Value = 0
    Exit Function

Answer 2

To BerryBC(Let Me 底B):你的方法只对TXT类型的文件有效,对DOC文件,生成的新文件显示为乱码
To James0001(James) :不能用copyfile()方法,因为我是想做一个类似FTP的功能,在本地读取一个文件,传给服务器,在服务器还原成一个相同的文件我自己也做了一些测试,但只能用于文本文件,而其它文件,如WORD/ZIP文件就不行请帮忙

Answer 3

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile
写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=LoadBytesTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 4

昨天刚作了一个Ftp类，你要不要？既然是要把文件复制到Ftp Server上可用以下函数API
InternetCloseHandle
InternetConnect
InternetOpen
FtpSetCurrentDirectory
FtpGetCurrentDirectory
FtpCreateDirectory
FtpRemoveDirectory
FtpDeleteFile
FtpRenameFile
FtpGetFile
FtpPutFile
InternetGetLastResponseInfo
FtpFindFirstFile
InternetFindNextFile

Answer 5

谢谢zyl910(910：分儿，我来了！) (L2002),搞定

Answer 6

大家快来帮我解决这一难题。
http://www.csdn.net/expert/topic/958/958179.xml?temp=.5596582