如何用VBS来检测指定文件夹下有否有新文件产生

Question

我想用VBS即时来检查在指定文件夹下是否有新文件产生，并输出文件名该如何编写？

用BAT也可以

Answer 1

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
Set d = CreateObject("Scripting.Dictionary")
dir="C:\123"
'这里C:\123，代表要监视的文件夹，自己修改
do
set fs=fso.getfolder(dir).files
for each f in fs
if not d.Exists(f.name) then
ws.popup "发现新文件"&vblf&f.name,10
d.add f.name,f.name
end if
next
wscript.sleep 1000
loop
'Coded By escortmnm from VBS团队
'══代══码══结══束════