VB编写个程序 监视某个文件夹,当这个文件夹出现大于XXXX字节的文件就弹出对话框
const MAX_SIZE = xxxx
Dim filestr = "x:\xxx\xxx\xxx.xxx"
Private Sub Timer1_Timer()
if len(dir(filestr) = 0 then exit sub //文件不存在
if FileLen(filestr) > MAX_SIZE then msgbox "文件超过预定大小!",,"-_-"
End Sub
Dim filestr = "x:\xxx\xxx\xxx.xxx"
Private Sub Timer1_Timer()
if len(dir(filestr) = 0 then exit sub //文件不存在
if FileLen(filestr) > MAX_SIZE then msgbox "文件超过预定大小!",,"-_-"
End Sub
温馨提示:答案为网友推荐,仅供参考