Browse for a folder

[Hank]

I need to let my users Browse to a Folder, not to a specific file
I am trying Terry Kreft's function below.

In the Declaration Section:
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long

Private Const BIF_RETURNONLYFSDIRS = &H1

In the Code:
Public Function BrowseFolder(szDialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim 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) <---- FAILS HERE
Else
BrowseFolder = vbNullString
End If

End Function
It always fails when trying to assign the result to the Function Name
At that time X = 1, wpos = 0, dwList = 145182352, and szPath has 512
blanks
It appears that nothing was returned from SHGetPathFromIDList
The error message is: Invalid procedure call or argument, because wpos
is 0

Thanks,
Hank Reed

[Hank]

I forgot to say Access 2000 - sorry its Monday (No excuse)
Hank

[Matthias Klaey]

"Hank" <ha********@aol.com> wrote:

I need to let my users Browse to a Folder, not to a specific file
I am trying Terry Kreft's function below.

In the Declaration Section:
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long

Private Const BIF_RETURNONLYFSDIRS = &H1

In the Code:
Public Function BrowseFolder(szDialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim 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) <---- FAILS HERE
Else
BrowseFolder = vbNullString
End If

End Function
It always fails when trying to assign the result to the Function Name
At that time X = 1, wpos = 0, dwList = 145182352, and szPath has 512
blanks
It appears that nothing was returned from SHGetPathFromIDList
The error message is: Invalid procedure call or argument, because wpos
is 0

Thanks,
Hank Reed

The variable szPath is not declared, thus it is implicitely declared
as variant, and then you get this error. Just put

Dim szPath As String

into your functtion, then it will work.

And *always* put

Option Explicit

at the top of the module!

HH
Matthias Kläy
--
www.kcc.ch

[Hank]

Matthias

I can't belive I missed that. I always Dim everything.
Although I would have thought that the default Variant would have
worked.

Thanks a bunch,
Hank Reed

Matthias Klaey wrote:

"Hank" <ha********@aol.com> wrote:

I need to let my users Browse to a Folder, not to a specific file
I am trying Terry Kreft's function below.

In the Declaration Section:
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As Long

Private Const BIF_RETURNONLYFSDIRS = &H1

In the Code:
Public Function BrowseFolder(szDialogTitle As String) As String

Dim X As Long, bi As BROWSEINFO, dwIList As Long
Dim 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) <---- FAILS HERE
Else
BrowseFolder = vbNullString
End If

End Function
It always fails when trying to assign the result to the Function Name
At that time X = 1, wpos = 0, dwList = 145182352, and szPath has 512
blanks
It appears that nothing was returned from SHGetPathFromIDList
The error message is: Invalid procedure call or argument, because wpos
is 0

Thanks,
Hank Reed

The variable szPath is not declared, thus it is implicitely declared
as variant, and then you get this error. Just put

Dim szPath As String

into your functtion, then it will work.

And *always* put

Option Explicit

at the top of the module!

HH
Matthias Kläy
--
www.kcc.ch