PB怎样获取文件路径？用什么函数？谢谢！！

messagebox('错误','无法取得程序运行路径')haltelseif ll_apphandler<0 then//编译模式

ls_apppath=ls_appname

ls_strtmp=reverse(ls_apppath)

li_pos=pos(ls_strtmp,'\',1)

ls_strtmp=mid(ls_strtmp,li_pos+1)

ls_apppath=reverse(ls_strtmp)

else //PB环境下运行

ls_apppath='D:\ScaleWinInterface'//据实际情况改变

ls_appname=ls_apppath+'\main.exe'//同上lb_c=falseend ifend if其中声明PUBLIC FUNCTION uLong GetModuleFileName(ulong hModule,ref string lpFileName,ulong nSize) LIBRARY "kernel32.dll" ALIAS FOR "GetModuleFileNameA"

这样ls_apppath即为执行程序的路径。

ls_appname为路径（包括文件名）

以上是得到当前运行程序的路径，如果要得到其他文件的路径，如果知道这个文件名，也就知道它的路径了，不必再找，如果想查找符合某个文件名的所有文件的路径，就要做目录遍历了。这个可以到网站找例子。

用dropdownlistbox的dirlist函数

long ll_count,ll_row

string ls_file,is_file[],is_folder[]

ddlb_1.dirList("D:\tonny")

ll_count= ddlb_1.totalitems()

for ll_row=1 to ll_count

ls_file =ddlb_1.getitem(ll_row)

if isdirectory(ls_file) then

is_folder[upperbound(is_folder)+1]=ls_file

else

is_file[upperbound(is_file)+1]=ls_file

end if

end for

---