用VB6.0如何区分文件和文件夹，并判断他们是否存在

来源：百度知道 编辑：UC知道 时间：2024/06/30 10:08:22
判断文件和文件夹是否存在用Dir函数判断。
比如有下面的文件和文件夹
C:\DAT\aa.txt
C:\DAT\SS\A.txt
D:\ACCESS\DAT
.
.
也就是说既有文件又有文件夹如何区分，如何验证他们是否存在。
只是要能区分文件夹和txt文件，和验证文件夹和txt文件是否存在就行了

Private Sub Command1_Click()
On Error Resume Next
x = InputBox("输入地址")
If Dir(x) <> "" Or Dir(x, vbDirectory) <> "" Then
If (GetAttr(x) And vbDirectory) = vbDirectory Then
MsgBox "是文件夹"
Else
MsgBox "是文件"
End If
End If
End Sub

Option Explicit

Private Sub Form_Load()
    CheckFileOrDir "c:\windows" 'Windows目录
    CheckFileOrDir "c:\boot.ini" '隐藏的boot.ini
    CheckFileOrDir "c:\111" '不存在的文件或者目录,除非你去建立
End Sub

Private Sub CheckFileOrDir(ByVal strPath As String)
    If Len(Dir(strPath, vbSystem + vbHidden + vbReadOnly + vbDirectory)) > 0 Then
        Debug.Print GetAttr(strPath)