VBA简单入门25：Dir函数获取文件信息，判断文件是否存在

1、Dir函数判断文件是否存在

a = Dir("c:S.xlsx")

If a = "" Then

MsgBox "不存在"

Else

MsgBox "存在"

End If

如果文件存在，a返回文件名称123.xlsx，否则返回空白。

根据Dir函数，介绍一些比较有用的自定义函数。

---

2、判断文件是否存在，fname参数需写完整路径（包含文件名称）。

Private Function FileExists(fname) As Boolean

' 如果文件存在返回TRUE

Dim x As String

x = Dir(fname)

If x <> "" Then FileExists = True _

Else FileExists = False

End Function

---

3、从路径中返回文件名称

Private Function FileNameOnly(pname) As String

' 返回文件名称

Dim temp As Variant

Length = Len(pname)

temp = Split(pname, Application.PathSeparator)

FileNameOnly = temp(UBound(temp))

End Function

---

4、判断路径是否存在，返回True

Private Function PathExists(pname) As Boolean

' 返回路径，如果路径存在

If Dir(pname, vbDirectory) = "" Then

PathExists = False

Else

PathExists = (GetAttr(pname) And vbDirectory) = vbDirectory

End If

End Function

---

5、判断工作簿是否打开

Private Function WorkbookIsOpen(wbname) As Boolean

' 如果打开返回True

Dim x As Workbook

On Error Resume Next

Set x = Workbooks(wbname)

If Err = 0 Then WorkbookIsOpen = True _

Else WorkbookIsOpen = False

End Function

---