getfile()函数类型问题 — 编程爱好者社区

主题：getfile()函数类型问题

wbh06 [专家分：0] 发布于 2009-04-09 13:21:00

请问各位专家，GETFILE（）函数中如何去掉那个all file(*.*)类型，比如说，我只想打开.prg类型文件.

本帖地址： http://bbs.pfan.cn/post/297703.html

回复列表（共2个回复）

沙发

homayzh [专家分：7040] 发布于 2009-04-09 14:20:00

应当不是可，不过有办法
cFileName = "d.txt"
DO whil UPPER(JUSTEXT(cFileName))<>"PRG"
    cFileName = GETFILE('prg')
    IF UPPER(JUSTEXT(cFileName))<>"PRG"
        WAIT WINDOW '必须选择PRG文件' NOWAIT
    ENDIF
ENDDO
?cFileName

板凳

qjbzjp [专家分：8830] 发布于 2009-04-09 14:24:00

GETFILE("PRG文件:prg")
再用JUSTEXT()检查选择的文件是否正确。

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：getfile()函数类型问题

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：getfile()函数类型问题

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）