怎么样打开一个已存在的文件,把原来文件的内容清空

解决方案 »

  1.   

    open "c:\aa.txt" for output as #1
    write #1,""
    close #1
      

  2.   

    Open strTargetFile for out As #filenum
      

  3.   

    嗬嗬,抱歉,output,楼上的正解
      

  4.   

    不好意思,我是说用二进制打开的
            Dim iFilenumber As Integer
            iFilenumber = FreeFile()
            Open "c:\bb.txt" For Binary As iFilenumber
            Put #iFilenumber, , "abc"
            Close iFilenumber
    这样如果原来存在文件数据是 dddddddddddddddddddd
    那么这样操作后数据是       abcddddddddddddddddd
    我要把后面的数据去掉
      

  5.   

    open "c:\aa.txt" for output as #1
    write #1,""
    close #1
      

  6.   

    这样不行呀,我要用二进制方式打开文件的
    open "c:\aa.txt" for output as #1这样子的话write 写进文本,里面多了""这两个字符的
      

  7.   

    Open "c:\a.txt" for out As #1
    应该可以清空文件
    你试试!