如何自动将指定路径窗口关闭

Question

就是当我打开指定路径下的文件夹时,程序能自动把窗口关闭,防止用户浏览这一目录!

Answer 1

不断地判断标题如果当前窗口标题或地址栏里有你设定的关键字,就关闭它,类似以前美萍的做法.标题的判断,使用SendMessage发送Wm_GetText消息;关闭窗口,同样用它发送一个wm_Close消息试下.....很久没用过了,你确认一下吧.

Answer 2

不用发送消息，太复杂！
判断DirListBox控件中的项，如果出现你指定的目录项，就执行你的意旨。在一个Timer事件中判断。.............dir ChoiseDir as string
ChoiseDir=Dir1.List(Dir1.ListIndex)‘选择的目录项
if InStr(ChoiseDir,"最高机密")>0 then UnLoad ME.............

Answer 3

建议你看看这个：
http://www.blogcn.com/user53/lms1986/blog/54679176.html

Answer 4

用shellwindows可以轻松取得　资源浏览器和IE的对象
Private Sub Form_Load()
On Error Resume Next
Dim sw As New ShellWindows
Dim i As Integer
For i = 0 To sw.Count
Debug.Print sw.Item(i).LocationURL
Next i
End Sub