open "c:\aa.txt" for output as #1 write #1,"" close #1
Open strTargetFile for out As #filenum
嗬嗬,抱歉,output,楼上的正解
不好意思,我是说用二进制打开的 Dim iFilenumber As Integer iFilenumber = FreeFile() Open "c:\bb.txt" For Binary As iFilenumber Put #iFilenumber, , "abc" Close iFilenumber 这样如果原来存在文件数据是 dddddddddddddddddddd 那么这样操作后数据是 abcddddddddddddddddd 我要把后面的数据去掉
open "c:\aa.txt" for output as #1 write #1,"" close #1
这样不行呀,我要用二进制方式打开文件的 open "c:\aa.txt" for output as #1这样子的话write 写进文本,里面多了""这两个字符的
write #1,""
close #1
Dim iFilenumber As Integer
iFilenumber = FreeFile()
Open "c:\bb.txt" For Binary As iFilenumber
Put #iFilenumber, , "abc"
Close iFilenumber
这样如果原来存在文件数据是 dddddddddddddddddddd
那么这样操作后数据是 abcddddddddddddddddd
我要把后面的数据去掉
write #1,""
close #1
open "c:\aa.txt" for output as #1这样子的话write 写进文本,里面多了""这两个字符的
应该可以清空文件
你试试!