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

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

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

'*************************************************************************
'**函数名：cmdTest_Click
'**输入：Index(Integer)-
'**输出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作者：叶帆
'**日期：2006-08-2910:55:19
'**修改人：
'**日期：
'**版本：V1.0.0
'*************************************************************************
PrivateSubcmdTest_Click(IndexAsInteger)
OnErrorGoToToExit'打开错误陷阱
'------------------------------------------------
SelectCaseIndex
'------------------------------------------------
Case0:'查找电脑
MsShell.FindComputer
Case1:'文件运行
MsShell.FileRun
Case2:'查找文件夹
MsgBoxMsShell.BrowseForFolder(Me.hWnd,"查找文件夹",0).Title
Case3:'层叠窗口
MsShell.CascadeWindows
Case4:'查找文件
MsShell.FindFiles
Case5:'Windows帮助
MsShell.Help
Case6:'窗口最小化
MsShell.MinimizeAll
Case7:'恢复最小化
MsShell.UndoMinimizeALL
Case8:'打开文件
MsShell.Open("c:windows otepad.exe")
Case9:'设置时间
MsShell.SetTime
Case10:'关闭计算机
MsShell.ShutdownWindows
Case11:'水平窗口
MsShell.TileHorizontally
Case12:'垂直窗口
MsShell.TileVertically
Case13:'路径名称
MsgBoxMsShell.NameSpace("c:windowssystem32").Title
EndSelect

'------------------------------------------------
ExitSub
'----------------
ToExit:
MsgBoxErr.Description
EndSub