检查此目录下文件是否存在,如果不存在则创建该文件,怎么写?

蛋高8 2003-10-15 09:24:47
例如一个叫ini的文件
...全文
41 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
蛋高8 2003-10-16
  • 打赏
  • 举报
回复
真的啊!太感谢了!!!
chenziteng 2003-10-15
  • 打赏
  • 举报
回复
以非Input模式打开文件时,如果文件不存在都会自动创建啊,比如
Open "C:\ASDF.TXT" For Output As #1
蛋高8 2003-10-15
  • 打赏
  • 举报
回复
。。。代表什么?我编译不过去,出错!
xiaobird1 2003-10-15
  • 打赏
  • 举报
回复
Sorry,应该是fso.FileExists
xiaobird1 2003-10-15
  • 打赏
  • 举报
回复
'先要引用Micorsoft Scripting Runtime
Public fso As New FileSystemObject
。。。
If Not fso.FolderExists(App.Path & "\1.txt") Then
fso.OpenTextFile App.Path & "\1.txt",ForWriting ,True
End If

7,762

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧