VB 判断文件或文件夹是否存在

最新推荐文章于 2024-05-30 08:54:23 发布

weixin_30377461

最新推荐文章于 2024-05-30 08:54:23 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/yqyongqing/archive/2012/10/13/2722446.html

本文介绍在VB中使用dir函数和FSO对象的object.FileExists方法来判断文件或文件夹是否存在，提供了函数CheckName实现此功能，包括对文件名长度、是否包含:的判断以及对文件或文件夹的判断。

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

有时候需要判断文件或者文件夹是否存在，VB下使用dir函数或者使用FSO对象的object.FileExists(filespec) 方法。

Public Function CheckName(ByVal tempName As String, Optional IsFolder As Boolean = False) As Boolean
    
    '#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
    '函 数 名： CheckFileName
    '函数功能： 判断文件或文件夹是否存在，只对正常文件（文件夹）进行判断（不含隐藏及其他属性）。
    '函数参数： Lvw ，
    '返 回 值：
    '创建日期： 2012年10月12日
    '修改日期： 2012年10月13日11:17:41
    '#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~
    
    On Error GoTo hErr
    
    Dim t As Boolean
    
    '判断长度是否为空
    If Len(tempName) = 0 Then
    
        Exit Function
    End If
    
    '判断是否含有 ":"
    If InStr(1, tempName, ":", vbBinaryCompare) = 0 Then
    
        Exit Function
    End If
    
    '文件判断或文件夹判断？
    If IsFolder = True Then
    
        If Len(Dir(tempName, vbDirectory)) > 0 Then
        
            t = True
        Else
        
            t = False
        End If
    Else
    
        If Len(Dir(tempName)) > 0 Then
        
            t = True
        Else
        
            t = False
        End If
    End If
    
    CheckName = t
    
    Exit Function
    
hErr:
    CheckName = False
End Function