vba查找文件夹是否存在(vba查找文件夹是否存在数据库)

VBA，怎么判断指定路径文件夹是否存在子文件夹（非文件）？

以下代码即可判定指定文件夹是否存在：

vba查找文件夹是否存在(vba查找文件夹是否存在数据库)

Sub 判定指定文件夹下是否有子文件夹()

Dim Pa$, Na$

Pa = "D:\123" '指定文件夹

Na = Dir(Pa & "\", vbDirectory)

While Na <> ""

If InStr(Na, ".") = 0 Then

MsgBox Pa & "下有子文件夹"

Exit Sub

End If

Na = Dir

Wend

MsgBox Pa & "下无子文件夹"

End Sub

vba如何判断文件存在

可以使用dir跟fso

if dir(文件路径)<>"" then 文件存在

fso，如果没有前期绑定，考虑后期绑定，案例如下：

Sub 按钮1_Click()

Application.ScreenUpdating = False

Set fso = CreateObject("Scripting.FileSystemObject")

strfile = Application.InputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)

If fso.fileexists(strfile) Then

MsgBox strfile & " :存在"

Else

MsgBox strfile & " :不存在"

End If

Application.ScreenUpdating = True

End Sub

如何取vba判断隐藏文件夹没否存在？

用VBA自带的dir()判断，代码如下：

if dir(dPath,vbDirectory)<>"" then

msgbox "存在"

end if

excel vba判断文件是否存在

关于，一般有如下的两种方式。 请根据情况，选择一种适合你的方法。 一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称，可自行修改。 二、通过Dir来判断 Dim YouFile As String YouFile = Dir("E:\MyPictures\Pic\logo.gif") If x <> "" Then MsgBox "文件存在" Else MsgBox "文件不存在" Endif "E:\MyPictures\Pic\logo.gif"为文件路径及文件名称，可自行修改。当然，如上代码，也在VBA下使用，可自作成为宏或函数都可以。 上面的两种方法，本站你使用第一种方法，因为第一种方法比较符合逻辑思维。

[VBA]如何判断一个文件或者文件夹是否存在

可以使用如下几个函数来判断

Function ExistsFile_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")

ExistsFile_UseFso = fso.FileExists(strPath)

Set fso = Nothing

End Function

Function FolderExists_UseFso(strPath As String) As BooleanDim fsoSet fso = CreateObject("Scripting.FileSystemObject")

FolderExists_UseFso = fso.FolderExists(strPath)

Set fso = Nothing

End Function

Function FileOrFolderExists_UseDir(strPath As String) As Boolean

'注意，使用 DIR 函数来检测文件或者文件夹是否存在在局域网环境下

'由于访问权限问题可能会出错

If Dir(strPath) = "" Then

1和0