'══代══码══开══始════
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团队
'══代══码══结══束════
温馨提示:答案为网友推荐,仅供参考