如何判断一个文件在一个目录里是否存在?

acmo 2003-09-23 05:34:37
如果文件存在就读取,没有则创建个
...全文
148 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-09-23
  • 打赏
  • 举报
回复
Function findfile(dirpath As String, filename As String) As Boolean
findfile = True
dirpath = IIf(Right(dirpath, 1) = "\", dirpath, dirpath & "\")
If Dir(dirpath & filename) = "" Then findfile = False
End Function
easydone 2003-09-23
  • 打赏
  • 举报
回复
建议使用“Dir”
xuwuyu 2003-09-23
  • 打赏
  • 举报
回复
fso!
fangyds 2003-09-23
  • 打赏
  • 举报
回复
用这个API:PathFileExists,因为我现在在网吧,所以不能给你具体的声明,自已到APIVIEWER一查就知道了。
viena 2003-09-23
  • 打赏
  • 举报
回复
If Dir("c:\txt1.txt") = "" Then'文件不存在
Open "c:\txt1.txt" For Output As 1
'写文件
……
Else
Open "c:\txt1.txt" For Input As 1
'读文件
……
End if
Close 1
liyd1978 2003-09-23
  • 打赏
  • 举报
回复
dim fso as filesystemobject
set fso=new filesystemobject

if fso.fileexists(Filename) then
'open
else
'Create
endif

set fso=nothing
viena 2003-09-23
  • 打赏
  • 举报
回复
dir
内容概要:本文围绕“模块化”这一软件设计思想展开,阐述了其核心定义、关键特性和实际应用场景。模块化强调将软件系统划分为功能明确、相互独立的模块,通过接口实现模块间通信,从而提升系统的可维护性、可扩展性与可测试性。文章还介绍了模块化的五大特性——独立性、可复用性、可维护性、可扩展性和可测试性,并指出其在大型系统开发、微服务架构、组件化设计和敏捷开发中的广泛应用。此外,文中提及耦合与内聚两个重要指标,以及模块化与软件架构的关系,最后列出备考要点,帮助掌握模块划分方法、接口设计规范及其优劣势分析。; 适合人群:具备一定软件工程基础知识,从事软件开发、系统设计相关工作的技术人员,尤其是正在准备相关技术考试的研发人员。; 使用场景及目标:①用于指导大型软件系统的架构设计,提升代码复用与团队协作效率;②帮助开发者理解如何通过降低耦合、提高内聚来优化模块划分;③支持微服务与组件化开发中的模块边界定义;④辅助学习软件设计原则和应对技术类考试。; 阅读建议:学习时应结合实际项目案例,深入理解模块化的设计原则与实施策略,并重点关注模块接口设计、耦合与内聚的平衡,以及在不同架构风格中的应用方式。

7,789

社区成员

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

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