繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
- ASP.NET
- 使用CodeDom来生成.cs文件
- 在.NET中定义结构设计标准
- c#v2.0 扩展特性 翻译2
- .NET框架下的自动内存管理
- 在设计期跟踪代码 .NET
- VB新發現
- 原来Smart Client 是这样的
- flash内嵌于C#程序中的应用
- 解读.NET Framework中的COM+与MTS
- 获取Sql服务器列表 C#
- .Net Framework Beta 2 初步介绍
- DLL的应用。
- 编译自己的资源文件编辑器reseditor.exe
- .NET 2.0 基础类库中的范型：其他范型类
- .NET 2.0 基础类库中的范型：Functional Programming
- Lion.Web.UpLoadModule 1.1.2004.0720 大文件上传带进度显示组件DOTNET
- .NET编程规范
- web.config配置文件示例
- 编程实现QQ表情文件CFC格式
- 关于线程的参数、“返回值”、及线程的中止
ASP.NET 中的 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 204 ::
收藏到网摘: 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
