方法一:
Function Exists(ByVal FilePath As String) As Boolean
If Dir(FilePath, 16) <> "" Then Exists = True
End Function
方法二:
'========================================
'声明作用:文件存在性判断
'========================================
Private Const OFS_MAXPATHNAME = 128
Private Const OF_EXIST = &H4000
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private typOfStruct As OFSTRUCT
Private Declare Function apiOpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
'========================================
'函数名称:Exists
'函数作用:文件、夹存在性判断
'========================================
Public Function Exists(ByVal sFilename As String) As Boolean
On Error Resume Next
If Len(sFilename) > 0 Then
apiOpenFile sFilename, typOfStruct, OF_EXIST
Exists = typOfStruct.nErrCode <> 2
End If
摘自:网络整理
相关文章参考:
※利用VB函数Dir()实现递归搜索目录
※VB获取windows各常用目录的函数(模块)
※怎样用VB获得Windows各类系统目录
※VB判断文件及目录的存在性
※谈vb目录文件操作的三种方法-1
※谈vb目录文件操作的三种方法-2
※VB 使用SendMessage枚举文件与目录
相关文章参考:
★VB查找替代字符串的函数
★VB换行气泡提示类
★VB/VBA通用路径选择对话框
★ASCII码表0-255完整版 附详细注释
★VB的KeyAscii
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB取得TextBox、RichTextBox光标所在的行和列(支持汉字)
★VB如何实现Undo(撤消)功能
★VB计算文本文件的行数
★VB获取快捷方式原文件路径
★微软 Small Basic 简体中文版 已经发布了
★VB操作Excel 非常详细 [网摘]
★VB如何判断文件正被占用/已被打开
★VB添加listbox 的水平卷动轴
★VB打开资源管理器并指定文件
★VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用
★VB中的指针技术
★Visual Basic编程常见问题及解答(1)
★Visual Basic编程常见问题及解答(2)
★Visual Basic编程常见问题及解答(3)
★VisualBasic变量、常数和数据类型及过程概述
★VB6的后期绑定和前期绑定
★VB用户控件制作讲解与实例
★VB制作OCX控件的步骤
★VB中FSO的调用的两种方法
★用VB操作EXCEL
★VB判断文件及目录的存在性
★VB网站(最新、经典源代码、技术文章、基础知识)
★VB得到指定文件夹下的文件列表
★用VB产生随机任意大小文件挤满硬盘
★VB文件的读写操作
★VB创建超链接 打开指定网站的几种方法
★VB 源码 删除重复行程序 函数
★VB 计算自己程序段所用时间
★VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编
★几行VB代码拿下注册表
★VB 在浏览器中打开指定网址
★VB窗口置顶
★vb在 ListBox 之中点击右键弹出菜单
评论