不罗嗦,直接上代码:
MAIN
DEFINE DirName STRING
DEFINE FType STRING
DEFINE FExt STRING
DEFINE WTitle STRING
DEFINE myFile STRING
LET DirName="C:\\Temp"
LET FType="Excel File"
LET FExt="*.xls"
LET WTitle="Open a Excel File For Import"
CALL ui.interface.frontcall("standard","openfile",[DirName,FType,Fext,WTitle],myFile)
IF myFile IS NOT NULL THEN
display "you select file is : ",myFile
ELSE
display "Has been canceled by user!"
END IF
END MAIN
说明:可以接上篇,当要选择客户端的excel文件,来导入tiptop时用。