首页 > 程序 > VBA > 正文

VBA代码大全011:如何用vba判断文件或文件夹是否存在?
2022-02-05 10:59:15   来源:   评论:0 点击:

VBA代码大全011:如何用vba判断文件或文件夹是否存在? - VBA - ExcelOffice【微信公众号:水星Excel】


之前我们说过,vba最经常用来干的就是批量处理文件。

在遍历文件或文件夹的过程中,有时候我们需要更新文件或者往文件夹中加入文件,这时候就会遇到需要事先判断文件或文件夹是否存在的情况。

在vba中处理文件或文件夹,最常用的两个方法一是用FileSystemObject对象遍历,二是用dir函数遍历。

​这里也分别介绍两种方法判断文件、文件夹是否存在​。

一、用FileSystemObject对象判断文件、文件夹是否存在

FileSystemObject对象 直接提供了两个方法FolderExists 和 FileExists

分别判断文件夹、文件是否存在,使用方法也很简单,直接将要判断的文件夹或文件路径传入即可。

代码如下:

Sub 判断文件夹_文件是否存在()
    'QQ:1722187970,微信:xycgenius,公众号:水星excel
    Dim sFlie As String
    '文件
    sFlie = "d:\abc.txt"
    Dim sFolder As String
    '文件夹
    sFolder = "d:\abc"
    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    With oFSO
        '如果存在指定的文件
        If .FileExists(sFlie) Then
        '操作代码
        End If
         '如果存在指定的文件
        If .FolderExists(sFolder) Then
        '操作代码
        End If
    End With
End Sub

二、用dir函数判断文件、文件夹是否存在

在vba中也可以使用内置函数dir快速地判断一个文件或文件夹是否存在。

 

dir函数的语法如下:

Dir[(pathname[, attributes])]

其中第一个参数pathname表示要判定的文件夹或者文件的路径,第二个参数为文件的属性。

如果返回值为空,则表示不存在该文件或者该文件夹。

比如要判断C盘根目录下是否有2.txt这个文件,可以使用如下的代码:

Sub 判断文件是否存在()
    Dim sResult As String
    Dim sPath As String
    sPath = "C:\2.txt"
    sResult = Dir(sPath)
    If Len(sResult) = 0 Then
        MsgBox sPath & "不存在"
    End If
End Sub

如果要判断文件夹是否存在,需要将dir函数的第二个参数设置为16(vbDirectory)。

比如,要判断是否有“c:\test” 这个路径,可以使用如下的代码:

Sub 判断文件夹是否存在()
    Dim sResult As String
    Dim sPath As String
    sPath = "C:\test"
    sResult = Dir(sPath, vbDirectory)
    If Len(sResult) = 0 Then
        MsgBox sPath & "不存在"
    End If
End Sub

上述两种方法都简单实用,大家可以根据各自的喜好选择。
来源链接:http://www.exceloffice.net/archives/960
 

相关热词搜索:

上一篇:Excel VBA内置函数简单汇总
下一篇:最后一页

分享到: 收藏
评论排行