Ayuda de expertos en Vb
Private subform_Load()
cadena 1 = BrowseForFolder(" nada ", 0)
Conector final
Crear un módulo, tenga en cuenta que es un módulo, copie el código:
Función de declaración pública SHBrowseForFolder Lib " shell 32. dll "alias" SHBrowseForFolderA "(lpBrowseInfo As BROWSEINFO) es largo
Público función de declaración SHGetPathFromIDList Lib "shell 32. dll "Alias" SHGetPathFromIDListA "(ByVal pidl es Long, ByVal pszPath es String) es Long
Tipo público BROWSEINFO
Nota: el identificador de la ventana principal .
' PidlRoot As Long 'Nota: una lista de identificadores que apuntan a la carpeta de nivel superior para explorar se puede establecer en 0.
' PszDisplayName As String 'Nota: Devuelve la carpeta que seleccionó (con caracteres nulos).
Nota: Título del cuadro de diálogo (termina en vbNullChar)
"UlFlags As Long" Nota: Examinar indicadores (ver más abajo)
' Lpfn As Long 'Nota: La dirección de la función de devolución de llamada, que se puede establecer en NULL.
' LParam As Long 'Nota: Si hay una función de devolución de llamada, este elemento establece su valor.
' IImage As Long 'Nota: Búfer que contiene el índice de imágenes de la carpeta seleccionada.
Tipo de finalización
Constante pública BIF _ BROWSEFORCOMPUTER = amp H1000 'Nota: Permitir la navegación en la computadora.
Constante pública BIF_BROWSEFORPRINTER = & 'H2000' Nota: Permite explorar las carpetas de la impresora.
Constante pública BIF_browencludefiles =&H4000 'Nota: Permitir explorar archivos al mismo tiempo (requiere IE4).
PUBLIC BIF_DONTGOBELOWDOMAIN = & H2 NOTA: Obliga a los usuarios a permanecer en Mis sitios de red.
Construcción pública BIF _Edit Box = ampH10 'Nota: puede ingresar el nombre de la carpeta directamente en el cuadro de entrada (requiere IE4).
Constante pública BIF_RETURNFSANCESTORS = & 'H8' Nota: ¿Devolver ancestros del sistema de archivos?
Constante pública BIF_RETURNONLYFSDIRS = & "H1" Nota: Sólo se permite la navegación por el sistema de archivos.
Construcción Pública BIF_status text =&H4's Nota: Muestra la barra de estado
Construcción Pública BIF_use new ui=&'H40'Nota: Utilice la nueva interfaz (solo admite Win2000 y WinME).
Construcción pública BIF_Validation = amp' H20 'Nota: Si se ingresa un nombre de carpeta ilegal, se devolverá.
La función pública BrowseForFolder (el título opcional es una cadena, hWnd opcional es largo) es una cadena
Dim bi As BROWSEINFO
Dim pidl tiene la misma longitud
Mostrar carpeta como cadena
carpeta = String(255, vbNullChar)
Usar bi
. propietario = hWnd
. ulFlags = BIF_RETURNONLYFSDIRS o BIF_USENEWUI o BIF_editbox
. pidlRoot = 0
. lpsz Título = IIf(Título lt; gt》, título amp seleccione una carpeta. vbNullChar)
Finalizar con...
pidl = SHBrowseForFolder(bi)
Si SHGetPathFromIDList(ByVal pidl, carpeta ByVal) entonces
browsefolder = Left(carpeta, InStr(carpeta, vbNullChar) - 1)
Otro
BrowseForFolder = " "
Terminará si...
Finalizar función