Acceso Directo: Diferenciar entre Archivo/Carpeta

[seba123neo]

Código vb:

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long
 
Private Sub Form_Load()
    MsgBox CStr(CBool(PathIsDirectory("c:\windows")))
End Sub