没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。
' ************************************************************************* ' **模 块 名：frmDemo ' **说 明：YFsoft 版权所有2006 - 2007(C) ' **创 建 人：叶帆 ' **日 期：2006-08-29 10:55:17 ' **修 改 人： ' **日 期： ' **描 述：微软核心模块shell32.dll的应用 ' **版 本：V1.0.0 ' ************************************************************************* Option Explicit Dim MsShell As New Shell ' ************************************************************************* ' **函 数 名：cmdTest_Click ' **输 入：Index(Integer) - ' **输 出：无 ' **功能描述： ' **全局变量： ' **调用模块： ' **作 者：叶帆 ' **日 期：2006-08-29 10:55:19 ' **修 改 人： ' **日 期： ' **版 本：V1.0.0 ' ************************************************************************* Private Sub cmdTest_Click(Index As Integer ) On Error GoTo ToExit ' 打开错误陷阱 ' ------------------------------------------------ Select Case Index ' ------------------------------------------------ Case 0 : ' 查找电脑 MsShell.FindComputer Case 1 : ' 文件运行 MsShell.FileRun Case 2 : ' 查找文件夹 MsgBox MsShell.BrowseForFolder( Me .hWnd, " 查找文件夹 " , 0 ).Title Case 3 : ' 层叠窗口 MsShell.CascadeWindows Case 4 : ' 查找文件 MsShell.FindFiles Case 5 : ' Windows帮助 MsShell.Help Case 6 : ' 窗口最小化 MsShell.MinimizeAll Case 7 : ' 恢复最小化 MsShell.UndoMinimizeALL Case 8 : ' 打开文件 MsShell.Open ( " c:windows otepad.exe " ) Case 9 : ' 设置时间 MsShell.SetTime Case 10 : ' 关闭计算机 MsShell.ShutdownWindows Case 11 : ' 水平窗口 MsShell.TileHorizontally Case 12 : ' 垂直窗口 MsShell.TileVertically Case 13 : ' 路径名称 MsgBox MsShell.NameSpace( " c:windowssystem32 " ).Title End Select ' ------------------------------------------------ Exit Sub ' ---------------- ToExit: MsgBox Err.Description End Sub
