精华内容
下载资源
问答
  • '如果路径path是D:\vba\1.txt,程序会认为路径下不存在文件夹,则创建新的文件夹, '而如果1.txt这个文本文件在该目录下存在,报错,errorNumber>0,程序结束。 If Not CreateObject("Scripting....

    'path:1、D:\vba  2、D:\vba\ 两种格式都可以

    '如果路径存在,外层if结束

    '如果路径path是D:\vba\1.txt,程序会认为路径下不存在该文件夹,则创建新的文件夹,

    '而如果1.txt这个文本文件在该目录下存在,报错,errorNumber>0,程序结束。

    If Not CreateObject("Scripting.FileSystemObject").FolderExists(path) Then
            On Error Resume Next   '捕捉错误的内容并继续运行
            CreateObject("Scripting.FileSystemObject").CreateFolder (path)
            If Err.Number > 0 Then  
                MsgBox "errorMsg:" & Err.Description ' 弹框显示错误信息
                Err.Clear
                '处理强制结束
                End
            End If

    End If

    展开全文
  • 如何用VBA判断文件夹是否存在.doc如何用VBA判断文件夹是否存在.doc
  • '该方法适用于三种情况(格式): 1、D:\vba 2、D:\vba\ 3、D:\vba\1.txt '只要上述三种情况有一种存在,那么方法返回true Function IsFolderOrFileExists(ByVal strFileName As String) As Boolean If Dir...

    '该方法适用于三种情况(格式): 1、D:\vba   2、D:\vba\   3、D:\vba\1.txt

    '只要上述三种情况有一种存在,那么方法返回true

    Function IsFolderOrFileExists(ByVal strFileName As String) As Boolean
        If Dir(strFileName, 16) <> Empty Then
            IsFolderOrFileExists = True
        Else
            IsFolderOrFileExists = False
        End If
    End Function

     

    还有一种判断方式:

    '该方法适用于两种情况(格式): 1、D:\vba\   2、D:\vba\1.txt

    '只要上述两种情况有一种存在,那么方法返回true

    Function IsFileExists(ByVal strFileName As String) As Boolean
        Dim fso As Object
        Set fso = CreateObject("Scripting.FileSystemObject")
        If Len(Dir(strFileName)) > 0 Then
            IsFileExists = True
        Else
            IsFileExists = False
        End If

    End Function

     

    展开全文
  • 判断D盘下,名为 changeAfter_Files 的文件夹是否存在,如果不存在就新建一个名为 changeAfter_Files 的文件夹 Sub judgeFile() Dim resFolder resFolder = Dir("D:\changeAfter_Files", vbDirectory) '判断路径为...

    判断D盘下,名为 changeAfter_Files 的文件夹是否存在,如果不存在就新建一个名为 changeAfter_Files 的文件夹

    Sub judgeFile()
        Dim resFolder
        resFolder = Dir("D:\changeAfter_Files", vbDirectory)   '判断路径为"D:\changeAfter_Files"的文件夹是否存在
        '如果不存在,就新建一个
        If resFolder = "" Then
            MkDir ("D:\changeAfter_Files")
        End If
    End Sub
    
    展开全文
  • VBA判断文件或文件夹是否存在

    千次阅读 2018-12-11 22:34:19
    一、判断文件或文件夹是否存在 Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True ...
     
    一、判断文件或文件夹是否存在
    Function FileFolderExists(strFullPath As String) As Boolean
        On Error GoTo EarlyExit
        If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
        EarlyExit:
        On Error GoTo 0
    End Function
    可判断文件或文件夹是否存在。假如D盘存在1.txt(文件)、新建文件夹(文件夹),则:
    msgbox FileFolderExists("D:\1.txt") 'true
    msgbox FileFolderExists("D:\1.txt\") 'false
    msgbox FileFolderExists("D:\新建文件夹") 'true
    msgbox FileFolderExists("D:\test") 'false
    
    二、判断文件夹是否存在
    引用于https://www.cnblogs.com/xwdreamer/p/3509701.html
    Function FileFolderExists(strFullPath As String) As Boolean
        Dim fso
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.folderExists(strFullPath) Then FileFolderExists = True
        Set fso = Nothing
    End Function
    

     

    展开全文
  • 某一个文件夹下存了许多文件,想知道某一文件是否存在,然后依据判断结果进行各样的操作。代码可以这么写: Sub test() Dim fileName As String fileName = ThisWorkbook.Path & "\机密文件.xlsx" If Len...
  • vba 创建文件夹 判断文件夹是否存在

    千次阅读 2014-05-16 13:15:52
    判断文件是否存在,用Dir;创建文件用MkDir 例1: Dim filepathname filepathname="C:\test" If Dir(filepathname,vbDirectory) = "" Then '如果文件不存在 MkDir filepathname End If 例2:...
  • VBA实现当文件夹存在时自动创建

    千次阅读 2019-09-19 16:26:26
    本文主要实现当文件夹存在时,自动创建文件夹的功能。 假设我们要实现的功能是在D盘根目录下创建vbatest文件夹,可以看到,当前文件夹是不存在的: 我们在vb代码编辑器里输入下面的代码: Sub dir() Dim myDir ...
  • 这是使用excel的vba来做的 判断文件/文件夹存在与否应该来讲没有什么难度的 不过个人觉得这个判断在一些文件的处理当中应该是会比较有用的
  • 判断文件夹是否存在: Public Sub TestFolderExistence() If FileFolderExists("c:/windows/") Then MsgBox "指定的文件夹存在!" Else MsgBox "指定的文件夹不存在!" End If End Sub 判断文件...
  • 用vb函数SHFileExists并检查文件是否存在;查找文件路径是否存在,只能调用api函数PathFileExists;
  • 有时我们需要用VBA代码判断某个文件夹或文件是否存在,以便进行后续操作。可以用下面的代码来实现这个功能: Public Function FileFolderExists(strFullPath As String) As Boolean On Error GoTo EarlyExit If Not ...
  • vba dir 判断文件是否存在

    千次阅读 2019-02-06 17:01:23
    我们主要使用VBA中的Dir方法来判断文件是否存在。 Dir函数返回的是文件名、目录名或文件夹名称。 这里还使用了Len方法判断Dir是否返回了结果。 如果Dir返回的值长度为0,则Dir没有返回文件名。 Sub Run() Dim ...
  • VBA自带的dir()判断,代码如下: 在 Microsoft Windows 中, Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件 Function IsFileExists(ByVal strFileName As String) As Boolean If Dir(strFileName, 16)...
  • void CWireLessDlg::CreatePakcetFile(){CString strFolderPath;strFolderPath = _T("D:\\无线通信板报文...PathIsDirectory(strFolderPath))//判断路径是否存在 CreateDirectory(strFolderPath,NULL);//新建文件...
  • file系统的 file 返回的就是绝对路径 只有file.name 才是所谓的文件名 Sub dd1() Dim fso As Object Dim fd1 As Object Dim f1 As Object ...Set fso = CreateObject("scripting.filesystemobject") ...
  • 在VB开发当中判断本地服务器上某个文件夹是否存在
  • Function IsFileExists(ByVal ...& X).Value = Range("B" & X).Value If IsFileExists("D:\vba\" & Range("G" & X).Value) = True Then Range("G" & X).Value = "YES" Else Range("G" & X).Value = "NO" End If End Sub
  • vba判断文件是否存在的两种方法

    千次阅读 2015-09-02 17:06:17
    VBA自带的dir()判断,代码如下: 在 Microsoft Windows 中, Dir 支持多字符 (*)和单字符 (?) 的通配符来指定多重文件 [vb] view plaincopy Function ...
  • Sub test() Dim Mypath, MyName Dim n As Integer n = 0 Dim MyStr() As String, wz As Integer Mypath = ThisWorkbook.Path & "\第三方2\" ' 指定路径。...MyName = Dir(Mypath, vbDirectory) ' ...
  • 前景提要之前我们在上一系列也是学了一些关于VBA创建文件夹的相关操作,我们是通过dir()方法来实现的,如果是简单的文件夹的创建的话,我们完全可以通过这个方法,但是在进行VBA代码执行的过程中,如果涉及文件夹的...
  • VBA 遍历所有文件夹内容

    千次阅读 2020-08-28 23:14:56
    今天讲讲VBA遍历所有文件夹,之前提到过,感觉这个很是实用,以为如果要批量导入的话,能遍历操作效率杠杠的 一、VBA遍历单个文件夹 下面的所有内容之前已经学过,再把代码贴一下,主要是通过Dir实现: ...
  • 学习资源:《Excel VBA从入门到进阶》第48集 by兰色幻想忘了之前老师有没有讲过Dir函数了,还是写一下吧,再开始正文吧:Dir函数:返回一个 String,它表示与指定路径下的文件、目录或文件夹的名称。语法:Dir ...
  • //判断这三个文件夹是否存在,不存要,就创建 if (!PathFileExists(strPathName)) { CreateDirectory(strPathName,NULL); } if (!PathFileExists(strPathName1)) { CreateDirectory(strPathName1,NULL); ...
  • VBA文件及文件夹操作

    2021-08-12 11:08:39
    VBA文件及文件夹操作1.VBA操作文件及文件夹on error resume next下测试A,在D:\下新建文件夹,命名为folder方法1:MkDir "D:\folder"方法2:Set abc =CreateObject("Scripting.FileSystemObject")abc.CreateFolder...
  • 文章目录一、调用目标文件夹的方法1、Application.FileDialog方法2、视窗浏览器界面选择目标文件夹二、仅列出所有文件三、仅列出目标文件夹中所有子文件夹名四、遍历目标文件夹内所有文件、以及所有子文件夹中的所有...
  • Dir函数常用来检查某个文件或文件夹是否存在,如果不存在,那么就返回空字符串(””)。我们到立即窗口: ?Dir("C:\", vbNormal) 函数Dir允许你在文件路径名中使用通配符——星号(*)代表多个字符,问号(?)代表...
  • 通常,我使用这段代码来检索VBA中文件夹的内容。 但这在共享点的情况下不起作用。 我能怎么做 ?Dim folder As folderDim f As FileDim fs As New FileSystemObjectSet folder = fs.GetFolder("//sharepoint.address...
  • 案列:现需要按条件汇总一个文件夹下的多个Excel文件中的某列数据到汇总表格中,文件夹中的所有Excel文件都是基于一个模板,只是数据不同。 所有的Excel文件结构: 库存组织:XXX 货主类型:XXX 货主:...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,254
精华内容 501
关键字:

vba判断文件夹是否存在