02/01/2010, 14:22
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 8 meses Puntos: 29 | |
| Respuesta: Acceso Directo: Diferenciar entre Archivo/Carpeta
Esto es lo mejor tengo:
Código vb:
Ver originalFunction 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
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |