如题所述
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
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
温馨提示:答案为网友推荐,仅供参考