auto_update.prg

来自「太平洋保险保单统计系统」· PRG 代码 · 共 21 行

search_path='D:\TOOLS_CD' &&需扫描的盘符
USE
CREATE CURSOR auto_update(main_path c(250), file_size n(12),file_modi_date d,file_modi_time c(10),file_property c(6))

APPEND BLANK
REPL main_path WITH search_path
DO WHILE !EOF()
	m_re=RECNO()
	search_path=ALLT(main_path)+'\'
	num=ADIR(search_file,(search_path+'*.*'),'AHRSD')		&&num=文件数量，内容在数组里
	IF num<>0
		FOR I=3 TO num
			search_file(I,1)=search_path+search_file(I,1)
		ENDFOR
		APPEND FROM ARRAY search_file FOR ALLT(main_path)<>'.' AND ALLT(main_path)<>'..' &&AND 'D' $ file_property
	ENDIF
	GO m_re
	SKIP
ENDD
*USE