Red de conocimiento informático - Problemas con los teléfonos móviles - Ayuda de expertos en Vb

Ayuda de expertos en Vb

Formulario de código:

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