怎样得到一个系统盘的全名,不是字符,是全名,如:本地磁盘(C:)?
2005-03-27 17:09
375 查看
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:)
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怎样得到一个系统盘的全名
- winsocket 解析本地IP ,为什么得到的不是一个IP
- 《将一个磁盘文件中的信息复制到另一个磁盘文件中(怎样向文件读写字符)》
- 如何从本地磁盘中读取一个文件,进行判断每个字符有多少个
- 输入一个字符,判断它是否为大写字母,如果是,将它转换成小写字母;如果不是,不转换。然后输出最后得到的字符.cpp
- 树莓派进阶之路 (032) -字符问题(2) - 用c语言怎样得到一个汉字的GB2312编码(转)
- 【数据恢复】一个磁盘怎样做到分区数多于4个
- SQL之得到一个字符串中某一个字符第n次出现的位置的函数
- 怎样处理一个溢出的磁盘
- MySQL怎样处理一个溢出的磁盘
- 在UTF-8字符集中,一个中文字并不是2字节
- 分享一个LINUX下备份ORACLE到本地磁盘的脚本EXP,保留7天
- 开发好一个软件功能模块不是光有激情、有干劲、有技术就可以得到成功的
- 计算机笔试题:写一个函数,检查字符是否是整数,如果是,返回其整数值。(或者:怎样只用4行代码编写出一个从字符串到长整型的函数)
- 1.实现一个函数,可以左旋字符串中的k个字符。 ABCD左旋一个字符得到BCDA ABCD左旋两个字符得到CDAB
- 得到PHP一个字符串的最后一个字符
- 怎样用JAVA打开一个已经写好的TXT文件? 是打开,不是读取啊!!!
- c# 如何得到一个字符的ASCII码
- pojg2744找一个最长的字符串x,使得对于已经给出的字符串中的任意一个y,x或者是y的子串,或者x中的字符反序之后得到的新字符串是y的子串。
- 传入一个时间戳,传入后,会与本地的时间进行对比,得到返回的字符串,有一小时前,一天前,等等