a.dbf结构是一样的，如何用程序自动搜索aaa文件夹下的子文件夹（如上面的zjk,td,dh,tr等）下的a.dbf库记录都合并到aaa\a.dbf里

[xwt799023]

a.dbf结构是一样的，如何用程序自动搜索aaa文件夹下的子文件夹（如上面的zjk,td,dh,tr等）下的a.dbf库记录都合并到aaa目录下的a.dbf(aaa\a.dbf)里
aaa\zjk\a.dbf ,
aaa\td\a.dbf,
aaa\dh\a.dbf,
aaa\tr\a.dbf,

aaa\a.dbf合并后的库存放目录

[WWWWA]

dddd.PRG是个单独的PRG文件，你生成没有？

[xwt799023]

傲，那没有，怎么生成呀，我还不会呢，见笑了

[WWWWA]

modi comm ddd
复制
PROCEDURE MyProc1
LPARAMETERS Folder
fso=CREATEOBJECT("Scripting.FileSystemObject")
objFolder = fso.GetFolder(Folder)
*k = k + objFolder.Files.Count
For Each objFile In objFolder.Files
IF RIGHT(objFile.NAME,3)='DBF'
FF = FF + ' FROM "R:\TEMP\'+objFolder.NAME+'\'+objFile.NAME+'" UNION ALL SELECT * '
ENDIF
Next
For Each objFolder In objFolder.SubFolders
DO MyProc1 WITH objFolder
NEXT
ENDPROC

然后存盘

[xwt799023]

运行到&FF1 时报一个错command is missing required clause

[WWWWA]

上传你的表单、DBF到www.access911.net/csdn
，用WINRAR压缩

[xwt799023]

上传了
行 文件名 体积 日期 上传人 描述
1 vfp.rar 6.07 KB 2009-12-17 9:45:00 未知

[xwt799023]

老兄，你有msn号吗？可否提供一下，多谢

[xwt799023]

版主，是运行不了吧

[WWWWA]

测试通过
CLICK：
SET PROCEDURE TO R:\TEMP\vfp\form\ddd
PUBLIC FF AS Character
FF=""
DO MyProc1 WITH "r:\"
FF1='SELECT *'+LEFT(FF,LEN(FF)-19)+' into curs dd'
_CLIPTEXT =FF1
&FF1
brow

DDD：
PROCEDURE MyProc1
LPARAMETERS Folder
fso=CREATEOBJECT("Scripting.FileSystemObject")
objFolder = fso.GetFolder(Folder)
For Each objFile In objFolder.Files
IF RIGHT(UPPER(objFile.NAME),3)='DBF'
FF = FF + ' FROM "'+objFolder.path+'\'+objFile.NAME+'" UNION ALL SELECT * '
ENDIF
Next
For Each objFolder In objFolder.SubFolders
DO MyProc1 WITH objFolder
NEXT
ENDPROC

呵呵，纠正了一个错误

[WWWWA]

[Quote=引用 24 楼 xwt799023 的回复:]
版主，是运行不了吧
[/Quote]
NO，是有一个问题，要用objFolder.path，非objFolder.name

[xwt799023]

可以运行了，能查出来，但没有存到目录下的文件里？？下面该如何做呢？多谢～～

[WWWWA]

当前目录？
FF1='SELECT *'+LEFT(FF,LEN(FF)-19)+' into dbf '+SYS(5)+SYS(2003)+ '\dd '

[xwt799023]

我想存到d:\temp\2009srtz.dbf里

[WWWWA]

[Quote=引用 29 楼 xwt799023 的回复:]
我想存到d:\temp\2009srtz.dbf里
[/Quote]
是绝对目录即将路径写死？

[xwt799023]

不写死也行，关键是要存在名字为2009srtz.dbf，而运行你说的存成了.dbf了，并没有存在2009srtz.dbf名

[WWWWA]

wait wind SYS(5)+SYS(2003)
结果是什么

[xwt799023]

是c:\dtgj 要不把结存入到c:\dtgj\dbf\下的2009srtz.dbf里也行，如何做呢

[WWWWA]

下班了，下午再看看，你也可以测试一下
是存在DD。DBF中了
你可以修改一下

FF1='SELECT *'+LEFT(FF,LEN(FF)-19)+' into curs dd
use d:\temp\2009srtz.dbf
zap
appe from dbf('dd')

or

sele dd
copy to d:\temp\2009srtz.dbf

[xwt799023]

好的，多谢

[xuzuning]

USE aaa\a.dbf
p = 'aaa\'
ADIR(ar, p + '*.*', 'D')
FOR i=1 TO ALEN(ar, 1)
IF 'D' $ ar[i, 5]
ADIR(tmp, p + ar[i,1] + '\a.dbf')
FOR j=1 TO ALEN(tmp, 1)
APPEND FROM (p + ar[i,1] + '\a.dbf')
NEXT
ENDIF
NEXT