扫描文件夹内的dbf文件 — 编程爱好者社区

主题：扫描文件夹内的dbf文件

zhengxinhai [专家分：30] 发布于 2008-09-14 11:44:00

ADIR(aDir0,"d:\czmx\*.dbf")
FOR i=1 TO ALEN(aDir0,1)
xlsnamehbl=aDir0[1,i]
IF MESSAGEBOX("你需要《"+xlsnamehbl+"》吗？",36)=7 出错
LOOP
ENDIF
?"处理文件 d:\czmx\"+xlsnamehbl
*-----------------------
*------------------------
ENDFOR

若d:\czmx下有三个dbf文件,分别为a.dbf,b.dbf,c.dbf ,用以上程序ALEN(aDir0,1)=2,
扫描到第二个文件,提示错误.
请朋友们给改一改,用什么代码能扫描文件夹内的所有dbf文件.

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

回复列表（共8个回复）

沙发

moz [专家分：37620] 发布于 2008-09-14 11:52:00

FOR i=1 TO ADIR(aDir0,"d:\czmx\*.dbf")

板凳

zhengxinhai [专家分：30] 发布于 2008-09-14 20:47:00

moz老师还是不行,请您试试

3 楼

moz [专家分：37620] 发布于 2008-09-14 20:57:00

FOR Ti=1 TO ADIR(aDir0,"d:\czmx\*.dbf")
    xlsnamehbl=aDir0[color=ff00ff](Ti,1)[/color]
    IF MESSAGEBOX("你需要《"+xlsnamehbl+"》吗？",36)=7   &&出错
       LOOP
    ENDIF

    ?"处理文件 d:\czmx\"+xlsnamehbl
    *-----------------------
    *------------------------

ENDFOR

4 楼

zhengxinhai [专家分：30] 发布于 2008-09-14 21:35:00

若d:\czmx下有多个dbf文件,分别为a.dbf,b.dbf,c.dbf 等,moz老师只能扫描两个文件，因为ADIR(aDir0,"d:\czmx123\*.dbf")始终等于2

5 楼

cbl518 [专家分：57140] 发布于 2008-09-14 21:50:00

FOR Ti=1 TO ADIR(aDir0,"d:\czmx\*.dbf")
    xlsnamehbl=aDir0(Ti,1)
    IF MESSAGEBOX("你需要《"+xlsnamehbl+"》吗？",36)=7
       ?"放弃了：处理文件 d:\czmx\"+xlsnamehbl
       LOOP
    ENDIF

    ?"处理文件 d:\czmx\"+xlsnamehbl
    *-----------------------
    *------------------------

ENDFOR

6 楼

cbl518 [专家分：57140] 发布于 2008-09-14 21:50:00

3 楼的代码没错！

7 楼

zhengxinhai [专家分：30] 发布于 2008-09-14 22:07:00

对不起,看错文件类型了.

8 楼

moz [专家分：37620] 发布于 2008-09-14 22:13:00

一楼代码没错
二楼不能不行
三楼代码没错
四楼没有检查
五楼代码没错
六楼意见没错
七楼鉴定完毕

我来回复

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

主题：扫描文件夹内的dbf文件

回复列表（共8个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：扫描文件夹内的dbf文件

回复列表 （共8个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共8个回复）