哪位高手会的帮一下拉!

string ls_path
string ls_file_name,ls_excel_path
int li_value
ls_path = GetCurrentDirectory()

sle_1.text=''
li_value=getfileopenname("打开文件",ls_excel_path,ls_file_name,"xls","EXCEL文件(*.xls),*.xls")

if li_value=1 then
    sle_1.text=ls_excel_path

end if

ChangeDirectory(ls_path)
return
这是一个最简单的例子 可以参考一下！