【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 阅读全文
posted @ 2011-04-06 16:20 zzllrr 阅读(835) 评论(0) 推荐(0) 编辑