vba 怎么判定文件夹下是否有文件

Public Sub 文件确定()
Dim filepath As String
filepath = "H:\谷歌下载\"
Dim a As String
a = Dir(filepath & "*.*")
If Len(a) = 0 Then
MsgBox "当前路径下没有文件", vbInformation
Else
MsgBox "确实有文件啊!", vbInformation
End If
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3exfe7f72r7veejyje.html