【VBA】Shell32.shell常用系统命令

Sub pub_shell(ByVal str As String)
    Dim shl As New Shell32.Shell   

　　Select Case str        

　　Case "资源管理器"           

　　　　shl.Explore ("D:\")         

　　Case "运行"           

　　　　shl.FileRun         

　　Case "查找文件"           

　　　　shl.FindFiles         

　　Case "查找计算机"           

　　　　shl.FindComputer         

　　Case "查找打印机"           

　　　　shl.FindPrinter         

　　Case "层叠窗口"           

　　　　shl.CascadeWindows         

　　Case "水平平铺"           

　　　　shl.TileHorizontally         

　　Case "垂直平铺"           

　　　　shl.TileVertically         

　　Case "全部最小化"           

　　　　shl.MinimizeAll         

　　Case "控制面板"           

　　　　shl.ControlPanelItem "main.cpl"         

　　Case "设置时间"           

　　　　shl.SetTime         

　　Case "关闭计算机"           

　　　　shl.ShutdownWindows         

　　Case "显示桌面"           

　　　　shl.ToggleDesktop         

　　Case "Win+Tab组合键效果"           

　　　　shl.WindowSwitcher
    End Select       

　　Set shl = Nothing  End Sub

转载于:https://www.cnblogs.com/zzllrr/archive/2011/04/06/2006938.html