VB判断文件及目录的存在性

最新推荐文章于 2025-05-15 14:19:13 发布

miaozk2006

最新推荐文章于 2025-05-15 14:19:13 发布

阅读量787

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/miaozk2006/article/details/82416239

本文提供了两种使用VB进行文件及目录存在性判断的方法。第一种方法利用了Dir函数，而第二种方法通过API调用来实现更复杂的文件系统交互。此外，还提供了一系列与VB文件操作相关的资源和技术文章参考。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法一：

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枚举文件与目录