zz怎样得到一个系统盘的全名
2005-03-28 07:43
591 查看
http://blog.csdn.net/VBDN/archive/2005/03/27/331975.aspx
Private Sub Command1_Click()
Dim ShellApp, oPanel, FolderItem1, FolderItem2, oItem
Set ShellApp = CreateObject("Shell.Application")
Set oPanel = ShellApp.NameSpace(0)
Set FolderItem2 = Nothing
For Each FolderItem1 In oPanel.Items
If FolderItem1.Name = "我的电脑" Then
Set FolderItem2 = FolderItem1.Getfolder: Exit For
End If
Debug.Print FolderItem1.Name
Next
If FolderItem2 Is Nothing Then
MsgBox "找不到项目!"
Exit Sub
End If
Set oItem = Nothing
For Each oItem In FolderItem2.Items
Debug.Print oItem.Name
Next
End Sub
输出结果如下:
控制面板
3.5 软盘 (A:)
WINDOWS98 (C:)
程序 (D:)
本地磁盘 (E:)
数据备份 (F:)
光盘 (G:)
Private Sub Command1_Click()
Dim ShellApp, oPanel, FolderItem1, FolderItem2, oItem
Set ShellApp = CreateObject("Shell.Application")
Set oPanel = ShellApp.NameSpace(0)
Set FolderItem2 = Nothing
For Each FolderItem1 In oPanel.Items
If FolderItem1.Name = "我的电脑" Then
Set FolderItem2 = FolderItem1.Getfolder: Exit For
End If
Debug.Print FolderItem1.Name
Next
If FolderItem2 Is Nothing Then
MsgBox "找不到项目!"
Exit Sub
End If
Set oItem = Nothing
For Each oItem In FolderItem2.Items
Debug.Print oItem.Name
Next
End Sub
输出结果如下:
控制面板
3.5 软盘 (A:)
WINDOWS98 (C:)
程序 (D:)
本地磁盘 (E:)
数据备份 (F:)
光盘 (G:)
相关文章推荐
- 怎样得到一个系统盘的全名,不是字符,是全名,如:本地磁盘(C:)?
- 一个困扰很久的问题得到解决,ubuntu下面怎样让nautilus忘记曾经记住的密码
- C#中一个窗体怎样对另外一个窗体操作,使窗体上的数据得到刷新?
- 树莓派进阶之路 (032) -字符问题(2) - 用c语言怎样得到一个汉字的GB2312编码(转)
- 怎样得到一个int变量的高位字节和低位字节
- 怎样在xp下利用tomcat部署一个java web项目 (ZZ)
- 怎样得到一个进程的全路径
- 在GNU Linux中怎样得到一个进程当前的流量
- 怎样在aspx.cs文件中得到引用的ascx控件上的一个textbox的值
- 怎样得到数据库中某一个表的某一个字段在设计时候的数据类型
- 怎样得到一个类中的所定义的变量的变量名
- 用c语言怎样得到一个汉字的GB2312编码
- 一个怎样得到treeView值的小例子
- 怎样让Webform 和Winform MD5加密得到同一个MD5值【整理】
- 怎样让Webform 和Winform MD5加密得到同一个MD5值【整理】
- 怎样得到一个方法的caller对象
- 怎样判断一个网站是不是模板建站
- 怎样做一个优秀的(懒惰的)系统管理员
- 怎样才能在同一个连接上同时实现Send&Recv啊..???
- 如何用CFileDialog得到一个文件夹的路径?