怎样实现通过提供路径,打开对话框让用户更容易的选择路径下的文件夹?

怎样实现通过提供路径,打开对话框让用户更容易的选择路径下的文件夹?
[33 byte] By [yangbig007-超爆侠] at [2007-12-10]
# 1
调API!再给你发个例子,呵呵!看看
# 2
string filepath
filepath=space(100)
docname=filepath+"UserCompare\UserDefined.xml"
value = GetFileSaveName(parent.title,docname, named, "DOC","UserCompare Files (*.XML),*.XML")
大致思想;如上
qixin000-小齐 at 2007-10-24 > top of Msdn China Tech,PowerBuilder,非技术版...
# 3
发完1
# 4
string filepath
filepath=space(100)
docname=filepath+"UserCompare\UserDefined.xml"
value = GetFileSaveName(parent.title,docname, named, "DOC","UserCompare Files (*.XML),*.XML")
大致思想;如上
qixin000-小齐 at 2007-10-24 > top of Msdn China Tech,PowerBuilder,非技术版...
# 5
没有必要调api
qixin000-小齐 at 2007-10-24 > top of Msdn China Tech,PowerBuilder,非技术版...
# 6
不用API也可以 ,
string ls_path,ls_filename
if getfileopenname("选择路径",ls_path,ls_filename,'exe','*.exe')=1 then
if ls_filename='' then
else
//ls_path中为路径+文件名,ls_filename为文件名,从ls_path中即可取出路径
//到此系统会将路径转到该选择的路径
else
messagebox('','错误!')
end if

如果要改路径到一个指定目录可用
lb_1.dirlist(ls_driver+"\*.exe",0)
即可转到ls_driver制定的路径
lb_1可定义成隐含(visible=false),则对用户就透明了
summerking-晓夏 at 2007-10-24 > top of Msdn China Tech,PowerBuilder,非技术版...
# 7
只要保证docname是可变的;包含初始路径即可
qixin000-小齐 at 2007-10-25 > top of Msdn China Tech,PowerBuilder,非技术版...
# 8
是打开对话框,让用户选择路径的,不是选择文件呀!
yangbig007-超爆侠 at 2007-10-25 > top of Msdn China Tech,PowerBuilder,非技术版...
# 9
是选择文件夹用的!!
yangbig007-超爆侠 at 2007-10-25 > top of Msdn China Tech,PowerBuilder,非技术版...
# 10
你怎么不看看我给你MAIL呢?里面是标准的选择文件对话框!