Acceso Directo: Diferenciar entre Archivo/Carpeta

[culd]

Estoy usando Windows Script Host para crear ó ver la ruta de un acceso directo... El tema es que no puedo diferenciar si un acceso directo es un archivo o carpeta...

Podria mirar la ruta de destino y ver si tiene extension, pero un archivo puede no tener extension...

Aparte podria verificar si esa ruta, existe como carpeta... Pero si esta borrada creeria que seria un archivo...

En fin como puedo determinar realmente el destino del acceso directo de que tipo es...

Código vb:

Set WshShell = CreateObject("WScript.Shell")
Set vlnk = WshShell.CreateShortcut(Ruta)
vlnk.TargetPath 'esta seria la ruta
Set vlnk = Nothing
Set wshell = Nothing
 

[pkj]

Esto es lo mejor tengo:

Código vb:

Function EsCarpeta(ByVal Nombre As String) As Boolean
  On Local Error GoTo ErrorEsCarpeta
  If (GetAttr(Nombre) And vbDirectory) = vbDirectory Then
    EsCarpeta = True
  End If
  Exit Function
ErrorEsCarpeta:
  Err.Clear
End Function
 

Saludos

[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
 

[erbuson]

Hola:

Imagino que si no tiene extensión no será un archivo sino una carpeta, ya que no es muy 'lógico' que digamos un acceso directo a un archivo sin extensión ya que ¿ Para que sirve ?

Un acceso directo en mi opinión, generalmente debe poder abrirte el archivo o ser un ejecutable. ¿ Tienes alguna aplicación que te abra un archivo sin extensión ?

Bueno, no es por poner pegas, no deja de ser un comentario y es simplemente por no reinventar la rueda. De todos modos, conste que una carpeta puede tener extensión aunque no sea habitual.

Saludos