男的穿女式牛仔裤:在VFP中如何历遍所有文件夹和文件
来源:百度文库 编辑:偶看新闻 时间:2024/04/28 14:14:26
在VFP中如何历遍所有文件夹和文件
在VFP中,能象一些杀毒软件那样,找遍磁盘的所有文件夹和文件吗?
答案是肯定的,而且很简单:
*利用VFP的Create Cursor -SQL命令建立有5个字段的临时库
*结合前面提到的ADIR()函数便可完成。
下面是具体代码:
dqml='C:' &&需扫描的盘符
use
Create Cursor mylsdbf (wjmc c(120),wjcd n(10),wjrq d,wjshj c(10),wjsx c(6))
xGS=1
xCD=0
append BLANK
REPL wjmc WITH dqml
do while !eof()
nRecn=Recn()
dqml=allt(wjmc)+''
x=adir(Mysz,(dqml+'*.*'),'rashd')
if x<>0
for I=3 to x
Mysz(I,1)=dqml+Mysz(I,1)
xGS=xGS+1
xCD=xCD+Mysz(I,2)
endf
append from array Mysz for allt(wjmc)<>'.' AND allt(wjmc)<>'..' and 'D'$wjsx
endi
go nRecn
skip
endd
use
在VFP中,能象一些杀毒软件那样,找遍磁盘的所有文件夹和文件吗?
答案是肯定的,而且很简单:
*利用VFP的Create Cursor -SQL命令建立有5个字段的临时库
*结合前面提到的ADIR()函数便可完成。
下面是具体代码:
dqml='C:' &&需扫描的盘符
use
Create Cursor mylsdbf (wjmc c(120),wjcd n(10),wjrq d,wjshj c(10),wjsx c(6))
xGS=1
xCD=0
append BLANK
REPL wjmc WITH dqml
do while !eof()
nRecn=Recn()
dqml=allt(wjmc)+''
x=adir(Mysz,(dqml+'*.*'),'rashd')
if x<>0
for I=3 to x
Mysz(I,1)=dqml+Mysz(I,1)
xGS=xGS+1
xCD=xCD+Mysz(I,2)
endf
append from array Mysz for allt(wjmc)<>'.' AND allt(wjmc)<>'..' and 'D'$wjsx
endi
go nRecn
skip
endd
use
谁只要如何搜索在D盘中第二个字符为e的所有文件夹和文件
VB中如何搜索网上邻居共享文件夹和文件
请问各位大虾所有的文件夹和文件都变成0是中了什么病毒?
如何给文件夹和文件设置密码?
如何给文件夹和文件加密?
为何在DOS操作系统中找不到C盘外其他盘的文件夹和文件?
电脑中图片和文件如何加密?
asp中 怎么来获取 文件夹和文件的大小
asp中 怎么来获取 文件夹和文件的大小
如何删掉卸载后剩余的文件夹和文件???????????
如何保护电脑上的文件夹和文件
怎么在DOS下查看隐藏的文件夹和文件
为什么在隐藏文件夹和文件没有可选的余地?
显示文件夹和文件缓慢
用什么dos命令能够一次全部删除文件夹以及其所有子文件夹和文件?
我有一些小软件和文件如何放在网上?
怎样查看隐藏的文件夹和文件?
怎样给文件夹和文件加密码???
文件夹和文件有什么区别?
怎样修改文件夹和文件的图标
怎样给文件夹和文件设置密码
文件夹和文件全都成了00000000是中了什么病毒?
C盘中有的文件夹和文件是0字节,这些是不是没有用?可以删吗?
如何取消windows xp 中所有文件夹中文件的自动排列?需要一劳永逸的方法。