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为路径(包括文件搜高高名)
以上是得到当前运行程序的路径,如果要得到其他文件的路径,如果知道这个文件名,也就知道它的路径了,不必再找,如果想查找符合某个文件名的所有文件的路径,就要做目录遍历了。这个可以到网站找例子。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)