在c:新建文件夹ttt.ttt和文件tt.tt
Private Sub Command1_Click()
CheckAttr "c:\ttt.ttt"
End Sub
Private Sub Command2_Click()
CheckAttr "c:\tt.tt"
End Sub
Public Function CheckAttr(strName As String)
If Dir(strName, vbNormal) <> "" Then
MsgBox strName & " 是文件"
ElseIf Dir(strName, vbDirectory) <> "" Then
MsgBox strName & " 是文件夹"
End If
End Function