'*************************************************************************
'**模 块 名：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

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/yefanqiu/archive/2006/08/29/1136417.aspx