Browser con access
Hola;
Estoy intentando hacer un buscador de ficheros para insertarlo en una aplicación access, encontré uno por internet pero al ejecutarlo en algunas máquinas me da el siguiente error:
Cuando ejecuto la función me sale un error con Space$-Lef$ no sabe el programa a qué hace función hace referencia
y el codigo empleado es;
Function BrowseFolder(szDialogTit le As String) As String
Dim x As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If x Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = ""
End If
End Function
¿Sabrías indicarme el porque u otra forma de hacer un buscador de ficheros y que el usuario pueda elegir uno..?
Gracias...
Estoy intentando hacer un buscador de ficheros para insertarlo en una aplicación access, encontré uno por internet pero al ejecutarlo en algunas máquinas me da el siguiente error:
Cuando ejecuto la función me sale un error con Space$-Lef$ no sabe el programa a qué hace función hace referencia
y el codigo empleado es;
Function BrowseFolder(szDialogTit le As String) As String
Dim x As Long, bi As BROWSEINFO, dwIList As Long
Dim szPath As String, wPos As Integer
With bi
.hOwner = hWndAccessApp
.lpszTitle = szDialogTitle
.ulFlags = BIF_RETURNONLYFSDIRS
End With
dwIList = SHBrowseForFolder(bi)
szPath = Space$(512)
x = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
If x Then
wPos = InStr(szPath, Chr(0))
BrowseFolder = Left$(szPath, wPos - 1)
Else
BrowseFolder = ""
End If
End Function
¿Sabrías indicarme el porque u otra forma de hacer un buscador de ficheros y que el usuario pueda elegir uno..?
Gracias...
