Sub copyBinFile(srFile As String, dsFile As String)
Dim sa() As Byte
Open srFile For Binary As #3
ReDim sa(LOF(3))
Get #3, , sa
Close #3
Open dsFile For Binary Access Write As #4
Put #4, , sa
Close #4
End Sub
上面的VB6.0代码用C#写出来,谢谢了...
上面的代码是将一个文件以字节的方式复制到另外一个路径下。
Dim sa() As Byte
Open srFile For Binary As #3
ReDim sa(LOF(3))
Get #3, , sa
Close #3
Open dsFile For Binary Access Write As #4
Put #4, , sa
Close #4
End Sub
上面的VB6.0代码用C#写出来,谢谢了...
上面的代码是将一个文件以字节的方式复制到另外一个路径下。
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/
使用字节读取的吗?
public void copyBinFile(string FormPath,string ToPath)
{
FileStream FromFile = new FileStream(FromPath,FileMode.Open,FileAccess.Read);
FileStream ToFile = new FileStream(ToPath,FileMode.Create,FileAccess.Write);
byte[] buffer = new byte[FromFile.Length];
FromFile.Read(buffer,0,(int)FromFile.Length);
FromFile.Flush();
ToFile.Write(buffer,0,(int)FromFile.Length);
ToFile.Flush();
FromFile.Close();
ToFile.Close();
}
//这样可以吗