740
社区成员
发帖
与我相关
我的任务
分享
string docpath, docname[], ls_list
integer i, li_cnt, li_rtn, li_filenum
li_rtn = GetFileOpenName("Select File", docpath, docname[], "DOC", + "Text Files (*.TXT),*.TXT," + "Doc Files (*.DOC),*.DOC," &
+ "All Files (*.*), *.*", "C:\Program Files\Sybase", 18)
IF li_rtn < 1 THEN return
li_cnt = Upperbound(docname)
for i=1 to li_cnt
ls_list += string(docpath)+"\"+(string(docname[i]))+"~r~n"
next
messagebox('', ls_list)