zoukankan      html  css  js  c++  java
  • vba判断文件是否存在的两种方法(转)

    方法1. 用VBA自带的dir()判断,代码如下:

    在 Microsoft Windows 中, Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件

    Function IsFileExists(ByVal strFileName As String) As Boolean
        If Dir(strFileName, 16) <> Empty Then
            IsFileExists = True
        Else
            IsFileExists = False
        End If
    End Function
     
    Sub Run()
        If IsFileExists("D:vbaabc.txt") = True Then
        ' 文件存在时的处理
            MsgBox "文件存在!"
        Else
        ' 文件不存在时的处理
            MsgBox "文件不存在!"
        End If
    End Sub

    方法2. 用Windows的文件系统函数进行判断,代码如下:

    Function IsFileExists(ByVal strFileName As String) As Boolean
        Dim objFileSystem As Object
     
        Set objFileSystem = CreateObject("Scripting.FileSystemObject")
        If objFileSystem.fileExists(strFileName) = True Then
            IsFileExists = True
        Else
            IsFileExists = False
        End If
    End Function
     
    Sub Run()
        If IsFileExists("D:vbaabc.txt") = True Then
        ' 文件存在时的处理
            MsgBox "文件存在!"
        Else
        ' 文件不存在时的处理
            MsgBox "文件不存在!"
        End If
    End Sub
  • 相关阅读:
    构建之法阅读笔记02
    学习进度
    构建之法阅读笔记01
    小学生的四则运算题
    构建之法----速读问题
    软件工程概论作业一
    分数 任意输入
    JAVA异常
    大道至简——第七、八章读后感
    super 要点
  • 原文地址:https://www.cnblogs.com/luoye00/p/10625247.html
Copyright © 2011-2022 走看看