如何探测一个文件夹里是否存入或放入了新文件?

Question

请教高手:如何用VB程序来探测某一个文件夹里是否存入或放入了新文件呢(我的意思是:这个文件夹是空文件夹,什么也没有).这个程序该如何写呢?
请高手指点一下.谢了.

Answer 1

Private Sub Command1_Click()
   MsgBox IIf(Dir("c:\test\*.*") <> "", "文件夹内有文件", "文件夹内没有文件")
End Sub

Answer 2

Private Sub Command1_Click() 
    if dir("x:\AAA\BBB\*.*",vbHidden+vbReadOnly+vbSystem)<>"" then
        Msgbox "文件夹下有文件。", vbOKOnly, "轻枫温馨提示："
    else
        Msgbox "文件夹下没有文件。", vbOKOnly, "轻枫温馨提示："
    end if
End Sub其中X表示盘符,AAA\BBB表示路径胤城耍下锯:) 个人认为这样比cbm666 前辈的稍微好点.可以判断是否有隐藏文件.

Answer 3

呵呵, 楼上的不错啊, 俺太懒了,哈哈....另种方法:(就算隐藏的文件它所在的文件夹大小还是大于0的)(除非来个空的.txt 呵呵,那又误判了,不过正常来说除非无聊才会故意这样试,因此这方法正常来说还是可行的)Private Sub Command1_Click()
   Dim fs, f, s
   Set fs = CreateObject("scripting.filesystemobject")
   Set f = fs.getfolder("c:\test")
   MsgBox IIf(f.Size > 0, "文件夹内有文件", "文件夹内没有文件")
End Sub

Answer 4

定期地检测是一个办法,但实时性太低,且无法主动控制.想搞得完美,就得用APIHOOK或者IFS,嘿嘿~~~不过我也只是说说胡话....这两种技术我都还没掌握呢