熟悉文件操作的高手请进来坐一下。

Open strFileName For Output As #1 
Print #1,""
Close #1

解决方案 »

  1.   


      1、把这个文件删掉，再建一个空的，不就“清空”了么？
      2、Name 语句 重新命名一个文件、目录、或文件夹。
    Dim OldName, NewName
    OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
    Name OldName As NewName   ' 更改文件名。 
    OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
    Name OldName As NewName   ' 更改文件名，并移动文件。
      

  2.   

    Open strFileName For Output As #1 
    Print #1,""
    Close #1
      

  3.   

    Open strFileName For Output As #1
    close #1
    这个文件就已经清空了
    文件复制就用Name语句就行