同意娄山说的：内存的速度远比硬盘快先把文件内容全部读取到内存里，然后再写入到硬盘，这样的速度比边读边写快很多的。如果你是VB的话，可以使用拷贝文件的API函数，那样省事！【VB声明】Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long【说明】复制文件。与vb的filecopy命令相似 【返回值】Long，非零表示成功，零表示失败。会设置GetLastError 【参数表】lpExistingFileName -String，源文件名lpNewFileName --String，目标文件名bFailIfExists --Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写使用的时候先在开头声明以下，然后直接调用就可以了：Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As LongPrivate Sub Form_Load()
If CopyFile("C:\1.txt", "D:\2.txt", 0) = 0 Then
MsgBox "拷贝文件失败"
Else
MsgBox "拷贝文件成功"
End IfEnd Sub
|
