Dear people,
I used the code since last year. But today now I really had a problem with
it. Please help me.

The code begin with:-
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
Private Const MAX_PATH As Long = 260

Type BrowseInfo
   hOwner As Long
   pidlRoot As Long
   pszDisplayName As String
   lpszINSTRUCTIONS As String
   ulFlags As Long
   lpfn As Long
   lParam As Long
   iImage As Long
End Type

Type SHFILEOPSTRUCT
   hwnd As Long
   wFunc As Long
   pFrom As String
   pTo As String
   fFlags As Integer
   fAnyOperationsAborted As Boolean
   hNameMappings As Long
   lpszProgressTitle As String
End Type

Declare Function SHGetPathFromIDListA Lib "shell32.dll" ( _
   ByVal pidl As Long, _
   ByVal pszBuffer As String) As Long

Declare Function SHBrowseForFolderA Lib "shell32.dll" ( _
   lpBrowseInfo As BrowseInfo) As Long

Function BrowseFolder(Optional Caption As String = "") As String

   Dim BrowseInfo As BrowseInfo
   Dim FolderName As String
   Dim ID As Long
   Dim Res As Long

   With BrowseInfo
       .hOwner = 0
       .pidlRoot = 0
       .pszDisplayName = String$(MAX_PATH, vbNullChar)
       .lpszINSTRUCTIONS = Caption
       .ulFlags = BIF_RETURNONLYFSDIRS
       .lpfn = 0
   End With

   FolderName = String$(MAX_PATH, vbNullChar)

   ID = SHBrowseForFolderA(BrowseInfo)

   If ID Then
       Res = SHGetPathFromIDListA(ID, FolderName)
       If Res Then
           BrowseFolder = Left$(FolderName, InStr(FolderName, _
               vbNullChar) - 1)
       End If
       End If
End Function

'The following code should bring the popup folder browser:-
Sub OpenMyBrowser()
Dim FName, SUBDIR, ROOTDIR As String
FName = BrowseFolder("Testing")
If FName = "" Then
End
Else
End If
'procceed next code here
End Sub

I have test the code using different operating system and works fine!
But not in my computer.  I'm using WindowsXP sp2 and Office2003.

Thanks in advance.
Jaemun.