VB如何使用Open语句打开文件后将其清空?
我用Open 语句打开一个.txt文件,然后想判断其大小,如果超过设定的值就将文件清空,但不删除文件,本人菜鸟,求各位大神赐教!
[解决办法]
- VB code
If FileLen("c:\123.txt") > 2 Then Call Kill("c:\123.txt") Open "c:\123.txt" For Output As #1 Write #1, Close #1 End If
发布时间: 2012-04-16 16:20:04 作者: rapoo
VB如何使用Open语句打开文件后将其清空?
我用Open 语句打开一个.txt文件,然后想判断其大小,如果超过设定的值就将文件清空,但不删除文件,本人菜鸟,求各位大神赐教!
[解决办法]
If FileLen("c:\123.txt") > 2 Then Call Kill("c:\123.txt") Open "c:\123.txt" For Output As #1 Write #1, Close #1 End If