Short QnD way to determine if it's a file or a folder

[jmsrickland]

Put a DirListBox on your Form then in the code:

  '
  '
On Error Resume Next

Dir1.Path = ItemName
           
If Err.Number = 76 Then
  ' It's a file
Else
  ' It's a directory
End If
  '
  '

[Bonnie West]

Here's an alternate method that doesn't require a control:

    On Error GoTo 1
    If (GetAttr(PathName) And vbDirectory) <> vbDirectory Then
        'It's a file
    Else
        'It's a directory
1   End If 'If GetAttr raised an error, PathName doesn't exist
    On Error GoTo 0

[jmsrickland]

Even better, Bonnie.

Question:

Is this a good way to determine file or folder or should one use an API to do this

[Bonnie West]

Question:

Is this a good way to determine file or folder or should one use an API to do this

It's the quickest and simplest built-in way that I know of. You'd only want to directly call the underlying API (GetFileAttributes) if you need a Unicode-aware solution and/or require the fastest method.

[fafalone]

Does PathIsDirectory use GetFileAttributes?

[Bonnie West]

Does PathIsDirectory use GetFileAttributes?

API Monitor detected that PathIsDirectory does indeed call GetFileAttributes.