镇场诗：吾心为他人，此智不私藏。学术有小成，愿帮大家忙。
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Private Sub Command1_Click()
Shell "explorer d:\dws",1
End Sub

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 技术第一，勿要不明理而盲目复制。希望各位可以观看代码得到启发。 这些代码是经过实践检验的，可以用的。在做小程序的时候，网络上热爱分享知识的人给与了我很大的帮助。在网络上许多代码有错误，不能正确解决问题。 我在网络上查资料的时候，受了很多苦。现在通过我的博客，把我查找到的，经过校验的代码分享给大家。希望大家的自学路能够平坦一些。 代码的原网址，我也找不到了，如果你发现了原代码的网址请发给我，我会加上的。 注：如果我侵犯了您的权益，请告知。看到您的告知后，我将及时作出处理。