微软核心模块shell32.dll的应用

没有想到shell32.dll还隐藏着很多实用的功能函数，比如打开文件夹，查找电脑，最小化所有窗体等等，这个shell32.dll既是一个标准的COM，还是一个可以作为普通的DLL进行函数引用。

' *************************************************************************
' **模块名：frmDemo
' **说明：YFsoft版权所有2006-2007(C)
' **创建人：叶帆
' **日期：2006-08-2910:55:17
' **修改人：
' **日期：
' **描述：微软核心模块shell32.dll的应用
' **版本：V1.0.0
' *************************************************************************
Option Explicit
Dim MsShell As New Shell

' *************************************************************************
' **函数名：cmdTest_Click
' **输入：Index(Integer)-
' **输出：无
' **功能描述：
' **全局变量：
' **调用模块：
' **作者：叶帆
' **日期：2006-08-2910: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

' ------------------------------------------------
ExitSub
' ----------------
ToExit:
MsgBox Err.Description
EndSub