龙空技术网

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

套路Excel 903

前言:

而今各位老铁们对“vbnet dir”大体比较重视,同学们都需要学习一些“vbnet dir”的相关内容。那么小编在网摘上收集了一些关于“vbnet dir””的相关文章,希望咱们能喜欢,小伙伴们一起来了解一下吧!

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

a = Dir("c:\123.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

标签: #vbnet dir