如何打开我的电脑??

Question

如何在vb中用shell命令打开我的电脑 这个文件夹??

Answer 1

shell("explorer c:\")
满意了吧？

Answer 2

如果还不满意的话，就
shell("explorer /select,c:\")

Answer 3

最后的终极
Call Shell("Explorer /e,/select, C:\", vbNormalFocus)

Answer 4

只能象这样：Shell ("explorer /select,c:\")

Answer 5

如果还不满意的话，就
shell("explorer /select,c:\")高手高手，的确打开了，那么打开其他文件夹怎么做？比如网络邻居，回收站等等
谢谢

Answer 6

/select是选择的路径的意思
在shell("explorer/select,c:\")中，是指打开c:盘的上一级目录，也可以换成d：的
打开回收站则是用回收站的可执行方式recycle

Answer 7

另一个方法：
首先在工程中加入对Microsoft Internet Controls的引用:'打开网上邻居
Dim aa As New InternetExplorer
aa.Navigate "file:///::%7B208D2C60-3AEA-1069-A2D7-08002B30309D%7D"
aa.Visible = True'打开回收站
Dim bb As New InternetExplorer
bb.Navigate "file:///::%7B645FF040-5081-101B-9F08-00AA002F954E%7D"
bb.Visible = True'打开我的电脑
Dim cc As New InternetExplorer
cc.Navigate "file:///::%7B20D04FE0-3AEA-1069-A2D8-08002B30309D%7D"
cc.Visible = True
你可以完全控制你所打开的窗口，你要关闭掉上面所打开的窗口， 只需 这样：
aa.quit
bb.quit
cc.quit

Answer 8

如果一定要用shell来实现的话：
'打开回收站:
Shell "explorer /e,::{645FF040-5081-101B-9F08-00AA002F954E}", vbNormalFocus'打开网上邻居:
Shell "explorer /e,::{208D2C60-3AEA-1069-A2D7-08002B30309D}"'打开控制面板:
Shell "explorer /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}", vbNormalFocus'打开计划任务:
Shell "explorer /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", vbNormalFocus'打开打印机:
Shell "explorer /e,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}", vbNormalFocus

Answer 9

这些CID都可以从注册表里搜到的。一般是用这类CID做简单的加密文件夹。