如果你不想用先Kill的方法,可以: Dim intFileNum As Integer Dim byt(3) As Byte
byt(0) = 0 byt(1) = 1 byt(2) = 2 byt(3) = 3
intFileNum = FreeFile Open FileName For OutPut As #intFileNum Close #intFileNum Open FileName For Binary Access Write As #intFileNum Put #intFileNum, , byt Close #intFileNum
Dim intFileNum As Integer
Dim byt(3) As Byte
byt(0) = 0
byt(1) = 1
byt(2) = 2
byt(3) = 3
intFileNum = FreeFile
Open FileName For OutPut As #intFileNum
Close #intFileNum
Open FileName For Binary Access Write As #intFileNum
Put #intFileNum, , byt
Close #intFileNum
就是保存时提示文件已经存在,然后选择覆盖
====================================================================
那只是系统提示,需要你编程序处理!