VB 我想做这样的程序，如果某文件夹下出现一个文件，则执行关机

来源：百度知道 编辑：UC知道 时间：2024/06/17 01:53:17
RT，如果再深入点的话，可以某文件夹下出现N个文件，则执行关机或别的操作，比如执行播放音乐等
请大侠帮帮忙。。出现的那个文件的类型可以任意，也可以是JPG的··分不多，全给了··
不对噢，那个生成的文件不是由VB生成的，而是由其他的软件生成，所以不能用OPEN语句，我是想监测这个自动生成的文件

'Timer1.Enabled = true
'Timer1.Interval = 100

Timer1_timer()
_目录 = "C:\windows"
if dir( _目录 & "\" & "*.*" ) = empty then
text1.text = "无文件存在"
else
i = 2
while dir() = empty
i = i + 1
wend

_文件数 = 3

if i > _文件数 then
msgbox "文件数超过预定值！"
end if
end if

在窗体里面放置Timer1

Private Sub Timer1_Timer()
Err.Clear
On Error Resume Next
Open "E:\我的文件.txt" For Input As #1
Close #1
If Err.Number <> 53 Then
Shell "Shutdown.exe -s -t 20 -c ""即将关机！"""
End If
End Sub

----------------------------

Open语句可以检测文件是否存在

错误编号53表示文件未找到，如果是“未找到”，那就是文件不存在，否则就存在，当然，如果没有权限，会返回另一个结果，不是53，所以程序是对的

'1、在窗体上画驱动列表框（DriveListBox）、文件夹列表框（DirListBox）、文件列表框（FileListBox）、计时器（Timer）各一个；
'