如何打开我的电脑

Question

首先：
工程-->引用-->Windows Script Host Object Model-->确定然后试下面的代码
Private Sub Command1_Click()
    Dim Wshshell As IWshShell_Class
    Set Wshshell = CreateObject("WScript.Shell")
    MsgBox Wshshell.SpecialFolders("DeskTop")
End Sub

Answer 1

知道了路径会打开吗？用以下命令：
Shell "Explorer " & Wshshell.SpecialFolders("DeskTop"), 4 'vbMaximizedFocus

Answer 2

好像有一个Rundll32.exe 的一个函数（需要用Shell 引用),不过我忘记了：（