启动时判断c 盘有没一个text.txt 文件，如果有就...........
没有就自动建一个 text.txt 要怎么写？

谢谢！！！

[此贴子已经被作者于2007-10-5 9:22:34编辑过]

Dim filexpm As String
filexpm = "c:\text.txt"
If findxpm.FileExists(filexpm) Then

用这个可以判断文件存在后干什么

可是我不知道怎么写如果不存的话怎么建立一个

谢谢，搞定

Dim s As String
s = Dir("c:\text.txt")
If Len(s) > 0 Then
Else
Open "c:\text.txt" For Output As #1
Close #1 '加上这句，不然文件在程序执行期间无法修改
End If