繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
- ASP.NET
- ASP.NET Tips1---合并多个字段值
- 如何 动态编译自己写的代码
- 用.NET设计一个新的课程
- .NET策略是如何创建起来的
- C＃事件机制归纳上
- IL系列文章之四ArrayinIL续
- C＃事件机制归纳下
- 我的ASP.net学习历程调用类库函库的简单加密方法
- vb 常量声明
- XMLWebServices底层结构
- 快速高效创建你的子窗口
- 深度和广度优先分油问题（C＃实现）
- 水晶报表中子报表的数据绑定问题
- 用C#编写获取远程IP,MAC的方法
- 利用"委托"实现对象实例按"多字段嵌套"排序
- .NET数值类型的精度
- 接受改变：从VB程序员到VB.Net程序员
- 掌握 C#
- 自定义 StringTable 的自动完成功能 (C# API : SHAutoComplete)
- 自己写的一个图表控件
ASP.NET 中的 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 201 ::
收藏到网摘: n/a
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 NextEnd Sub
输出结果如下：
控制面板3.5 软盘 (A:)WINDOWS98 (C:)程序 (D:)本地磁盘 (E:)数据备份 (F:)光盘 (G:)
评论 (0) All
