怎么判断文件夹里是否有文件?(50分)

M

malpensa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #1

我想做的是,一直监听着一个文件夹,如果里面有东西了,就做一件事

if 文件夹里有东西 then
动作1
else
继续监听 ;

但怎么判定文件夹里有没有东西呢? 是任何类型的文件
请各位指教!

 

M

myid0602

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #2

var
sr: TSearchRec;
FileAttrs: Integer;
begin
FileAttrs := $3f;
if FindFirst('文件夹/*.*', FileAttrs, sr) = 0 then //文件夹里有东西
动作1
else
继续监听 ;

 

冰

冰月自游

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #3

我想问一个VB.NET 的问题，我做了一个图书馆管理系统，，在里边添加的文件夹，下次在用的时候就看不的到了，必须菜单里选择，才可以看到，看到的还是隐藏的文件，我的 文件为什么会隐藏呢？