Question

VB判断文件夹是否打开

让程序每隔100毫秒判断一次 F:\123\ 这个文件夹是否打开。如果打开则关闭它，并提示MsgBox "Close"这样的程序应该怎么写？

Answer 1

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
Private Sub Command1_Click()
On Error Resume Next
Dim hwnd As Long
hwnd = FindWindow("CabinetWClass", "文件夹名") '获得文件夹窗口句柄
If hwnd <> 0 Then
PostMessage hwnd, WM_CLOSE, 0&, 0&
MsgBox "Close"
End If
End Sub