zz怎样得到一个系统盘的全名
来源:互联网 发布:淘宝店铺首页怎么全屏 编辑:程序博客网 时间:2024/05/01 13:11
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:)
- zz怎样得到一个系统盘的全名
- 怎样得到一个系统盘的全名,不是字符,是全名,如:本地磁盘(C:)?
- 从IField得到对应的类型全名
- 怎样得到一个进程的全路径
- 用c语言怎样得到一个汉字的GB2312编码
- 用c语言怎样得到一个汉字的GB2312编码
- 一个清理系统盘垃圾文件的方法
- 怎样得到别人的支持
- 得到tnsnames.ora文件的位置 zz
- 怎样只用一个XT2晶振得到精确的高频----msp430f5529单片机
- 怎样得到一个int变量的高位字节和低位字节
- [zz] 我是怎样诱骗漂亮女孩的【完整版】
- 怎样合并空闲空间到C盘(系统盘)来扩大C盘的容量?
- C#中一个窗体怎样对另外一个窗体操作,使窗体上的数据得到刷新?
- 怎样得到某年某月的最大天数
- linux下怎样得到文件的大小
- 怎样得到某一目录下面的子目录
- 怎样得到CRichEditCtrl的行高?
- 近日关注:系统性能提升之道--内存镜像表
- accenture internship 面试
- wxWindows 最简单的Hello World程序
- 《java编程思想》要点-第一章 对象导论
- 四大图像库的使用感受:OpenCV/FreeImage/CImg/CxImage
- zz怎样得到一个系统盘的全名
- Google排名优化专栏—PageRank是否已成昔日骄子
- 如何提高网站的Google PR值
- 一生中必看的30个故事
- 使用rman复制数据库
- How to embed a True Type font( 转载 )
- 非COM环境下的接口编程--问题,技巧,应用
- vb入门教程-第一章HELLO WORLD
- 使用一个入侵测系统+主动防火墙-->Snort+Guardian (ZT)