こんにちは。
SHBrowseForFolderA は次のようにすれば使えます。

次のメンバを持つ構造体 BrowseInfo を作成します。

Long hWndOwner
Long pIDLRoot
Long pszDisplayName
Long lpszTitle
Long ulFlags
Long lpfnCallback
Long lParam
Long iImage

次の外部関数を定義します。

FUNCTION Long SHBrowseForFolder(REF BrowseInfo lpbi) &
　　　　LIBRARY \"SHELL32.DLL\" ALIAS FOR \"SHBrowseForFolderA\"
FUNCTION Long SHGetPathFromIDList(Long lpIDList, REF String sPath) &
　　　　LIBRARY \"SHELL32.DLL\" ALIAS FOR \"SHGetPathFromIDListA\"
SUBROUTINE CoTaskMemFree(Long hMem) &
　　　　LIBRARY \"OLE32.DLL\"
FUNCTION Long lstrcat(REF String dst, String src) &
　　　　LIBRARY \"KERNEL32.DLL\" ALIAS FOR \"lstrcatA\"

次のスクリプトで、[フォルダの参照]ダイアログを表示できます。

//定数宣言
CONSTANT Long CSIDL_DESKTOP = 0        //デスクトップがルート項目
CONSTANT Long BIF_RETURNONLYFSDIRS = 1 //フォルダ以外選択できない

//変数宣言
BrowseInfo udtBI
Long lpIDList
String PathName
String lpszTitle

//BrowseInfo 構造体情報設定
udtBI.hWndOwner = Handle(ウィンドウ)   //ダイアログの親となるウィンドウ
udtBI.pIDLRoot = CSIDL_DESKTOP
lpszTitle = \"フォルダを選択してください\"
udtBI.lpszTitle = lstrcat(lpszTitle,\"\")
udtBI.ulFlags = BIF_RETURNONLYFSDIRS

//[フォルダの参照]ダイアログを開く
lpIDList = SHBrowseForFolder(udtBI)

IF lpIDList > 0 THEN
　　//選択したフォルダのパスを取得
　　PathName = Space(256)
　　SHGetPathFromIDList(lpIDList, PathName)
　　//割り当てられたメモリを開放
　　CoTaskMemFree(lpIDList)
　　MessageBox(\"\", PathName)
ELSE
　　MessageBox(\"\", \"キャンセル\")
END IF

コールバック関数は、初期フォルダを指定するとき必要になります。
よって、PowerBuilder では初期フォルダの指定は不可能だと思います。