在线等，怎么打开一个文件并清除原有内容？？？

Question

Private Sub CmdClear_Click()
open file for output as #1
'怎么清除其内容End Sub

Answer 1

哎，这么简单。先删除再新建不就得了。
if dir(file)<>"" then kill file
open file for output as #1

Answer 2

Private Sub CmdClear_Click()
Open "c:\11.txt" For Output As #1
   Write #1,
Close #1
End Sub

Answer 3

Open "c:\11.txt" For Output As #1
   Write #1,
Close #1

Answer 4

Private Sub Command1_Click()
Open "c:\*.txt" For Output As #1
  Print #1,
Close #1
End Sub

Answer 5

用Print #1 写入空数据,可以将原数据覆盖..文件打开方式为Output

Answer 6

Private Sub Command1_Click()
Open "c:\*.txt" For Output As #1
  Print #1,
Close #1
End Sub同意楼上的，这样完全可以解决问题