VFP程序获取某一目录下的所有文件夹名，并保存到dbf表里的代码怎么写？

n=adir(x,"C:\windows\*.*","D")—— 获取C:\windows文件夹下的所有目录名

for i=1 to n

insert into aa(dirname) values(x(i,1))

next i

参考资料

百度知道.百度[引用时间2018-4-5]

2 因为在VFP中，我们可以使用各种编程语言（如FoxPro、SQL等）编写代码，以实现各种功能，所以存在代码是很常见的。

3 如果存在代码，我们需要考虑代码的质量和效率，以及对程序性能的影响等因素，同时也需要注意代码的可读性和可维护性。

此外，我们还需要了解VFP中代码的语法和规范，以避免出现错误或不必要的麻烦。

打开data目录下的dyzm.dbf表

删除dyzm表中所有记录

从data目录下的dyk1.dbf表中拷贝数据到dyzm表

打开工作表1

将总记录数赋值给a

记录指针指向首记录

给j赋值1

（开始循环）

将字段ZKZH左右空格去除后赋值给fzkzh

将j转换为字符型后去除左右空格，然后赋值给i

将kch左右空格去除后赋值给fkch

将kcmc左右空格去除后赋值给fkcmc

将cj左右空格去除后赋值给fcj

将xf左右空格去除后赋值给fxf

选择工作表2

将工作表2的ZKZH字段值等于fzkzh的所有记录的几个字段用对应值替换掉

选择工作表1

记录指针下移1个记录

将j值加1

（结束循环）

打开工作表2

将变量a转换为字符型后去除左右空格，将对应值替换掉tgms字段

关闭当前工作表