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

谢谢！！！

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

直接 open一下就知道了嘛。。。。。。



by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909
Blog: http://yzfy.programfan.com

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url] [url=http://blog.programfan.com/article.asp?id=24801]请不要写出非int声明的main函数[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

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

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

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

用DIR 检查文件是否存在，不存在就用MkDir创建一个

Dim s as string
s=dir("c:\text.txt")
If Len(s)>0 Then
表达式
Else
open "c:\text.txt" for output As #1

[CODE]If Not CreateObject("Scripting.FileSystemObject").FileExists("C:\Text.txt") Then CreateObject("Scripting.FileSystemObject").CreateTextFile("C:\Text.txt")[/CODE]

没测试可行，也许要改改。

dir 可以

Private Sub Command1_Click()
If Dir("c:text.text") = "" Then
MsgBox "文件不存在"
Else MsgBox "文件存在"
End If
End Sub

[此贴子已经被作者于2007-10-4 21:05:20编辑过]

使用者可不管你文件存在不存在，只要你在文件不存在的时候创建一下而已。

谢谢，搞定

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