Hola,quisiera saber como filtro solo carpetas por mas que busco no encuentro nada,me refiero a ejemplo:
If Right$(LCase$(Data.Files(i)), 4) = ".exe" Then
Filter = "Archivo (*.exe)|*.exe"
En vez de un archivo una carpeta.
Modo de uso
Modulo
Código: Seleccionar todo
Private Sub PushButton1_Click()
Dim Dir As String
Dir = Buscar_Carpeta("Seleccione una carpeta")
File1.Path = Dir
End SubModulo
Código: Seleccionar todo
Option Explicit
' Funcción que abre el cuadro de dialogo y retorna la ruta
'******************************************************************
Function Buscar_Carpeta(Optional Titulo As String, _
Optional Path_Inicial As Variant) As String
On Local Error GoTo errFunction
Dim objShell As Object
Dim objFolder As Object
Dim o_Carpeta As Object
' Nuevo objeto Shell.Application
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
'Abre el cuadro de diálogo para seleccionar
Set objFolder = objShell.BrowseForFolder( _
0, _
Titulo, _
0, _
Path_Inicial)
' Devuelve solo el nombre de carpeta
Set o_Carpeta = objFolder.Self
' Devuelve la ruta completa seleccionada en el diálogo
Buscar_Carpeta = o_Carpeta.Path
Exit Function
'Error
errFunction:
MsgBox Err.Description, vbCritical
Buscar_Carpeta = vbNullString
End Function
Indetectable.Net
