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]

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

在VFP中如何编写主程序？在编写主程序时应注意什么事项？

解析:

设置运行环境

Set Talk Off &&关闭命令显示

Set Escape Off &&禁止运行的程序在按 Esc 键后被中断

Set Exclusive Off &&数据库表以共享方式打开

Set Deleted On &&过滤掉已带删除标记的记录

Set Safety Off &&指定在改写已有的文件时不显示对话框

Set Date Ansi &&设定日期的年份为 4 位数

Set Century On &&指定日期表达式的显示格式为YYMMDD

SET MARK TO [-] &&指定日期的分隔符为"-"

SET SECONDS ON &&日期时间表达式的显示秒钟部分

SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式

Set Optimize ON &&启用或废止 Rushmore 优化。

Set ENGINEBEHAVIOR 70

Set DECIMALS TO 8 &&指定小数点位数,默认为2位

Clear &&清除主窗口

Clear All &&清除变量

开始进行程序的事务处理 *** 作

Public pcSys

pcSys=Sys(5)+Sys(2003)

Set Default To pcSys

Set Path To Class,Form,Poto,Menu,Prg,Report

DO form frmbegin &&运行启动画面表单frmBegin,名称自己改,

READ events

DO form frmlogin &&运行主界面表单frmlogin,名称自己改,

READ events

保存,名称自己安,然后设置为主文件

传回被执行程式的档案名称。您可以用 SYS(16) 函数来修复此错误。

SYS(16 [, nProgramLevel])

参数

nProgramLevel

指出从第几层向後获取的程式名称。这个值可以从 1 伸展到程式被巢状的深度。有关程式巢状层次的详细内容，请参阅「Visual FoxPro 系统功能」中的 [DO 所能呼叫的最大数目]。

如果 nProgramLevel 是 0 或 1，则 SYS(16) 函数传回主程式的名称 (该程式最先被执行)。如果省略 nProgramLevel 则传回目前执行的程式名称。如果 nProgramLevel 超过程式的巢状深度则传回空字串。

传回值

字元

说明

SYS(16) 函数除传回的程式名称带有一个路径以外，与 PROGRAM( ) 函数相似。当执行的程式是一个应用程式 (app) 的一部分，SYS(16) 函数只传回该程式的名称，也就是不包括路径。如果被呼叫自一个可执行档案 (exe)，则 SYS(16) 函数传回该可执行档案的名称；然而 PROGRAM( ) 函数仅仅传回该程式的名称。如果一个程序或函数被执行，则 SYS(16) 函数在程序名称或函数名称之後传回包含该程序或函数的档案名称。

SAVE TO FileName [ALL LIKE Skeleton | ALL EXCEPT Skeleton]

将当前内存变量和数组保存到一个内存变量文件中。

注意：对象类型的变量不能保存到内存变量文件中。SAVE TO 命令不支持保存大于 65,000 个元素的数组。

要从内存变量文件中恢复内存变量和数组，可使用 RESTORE FROM 命令。

常见表中记录添加的命令如下:

1．记录的追加

命令：APPEND [BLANK]

例子：向当前数据表尾部追加记录。

APPEND

例子：向当前数据表尾部追加一条空记录。

APPEND BLANK

2．记录的插入

命令：INSERT [BLANK][BEFORE]

例子：在当前记录后插入一条空记录。

INSERT BLANK

例子：在第3条记录前插入一条记录。

GO 3

INSERT BEFORE

3．用复制方法建新表记录

命令：COPY TO 新表名 [范围][FIELDS 字段表][FOR 条件]

例子：把当前表中“应发合计”大于1000元的记录复制到新数据表GZ2中。

COPY TO A:GZ2 FOR 应发合计>1000

4．从其他表取数据

命令：APPEND FROM 表名 [FOR 条件]

例子：把GZ1表中“应发合计”大于1000的记录复制到当前的表后面。

APPEND FROM GZ1 FOR 应发合计>1000

以上就是关于VFP程序获取某一目录下的所有文件夹名，并保存到dbf表里的代码怎么写全部的内容，包括:VFP程序获取某一目录下的所有文件夹名，并保存到dbf表里的代码怎么写、VFP的主程序如何编写、vfp 程序问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！