简单的文件替换(各种格式)

Dim TempFile As Long
Dim SaveBytes() As Byte
Dim LoadBytes() As Byte
TempFile = FreeFile
Open filepath1 For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
'SaveBytes = StrConv(LoadBytes, vbFromUnicode)标准
SaveBytes = LoadBytes
TempFile = FreeFile
Open filepath For Binary As #TempFile
Put #TempFile, , SaveBytes
Close TempFile
MsgBox ("文件替换成功")

 

drive dir file 各2个 一个按钮 就OK啦

各种格式的文件 写进各种格式的空文件 可 1写2 2写3 依此类推 只要最后把文件后缀改成原文件的就好了

缺点就是不支持大文件 今天试了下写个2.8G的 不行

此问仅写给刚学VB的入门级别的