繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
- ASP.NET
- 如何在ASP.NET中使用SmtpMail发送邮件
- 在VB.NET中利用Split和Replace函数计算字数
- Attribute应用:简化ANF自定义控件初始化过程
- ASP.NET 2.0移动开发入门之使用样式
- ASP.NET 2.0中使用OWC生成图表
- ASP.NET 2.0中控件的简单异步回调
- 一个无法捕获ADO.NET Dataset的内存错误
- 深入解读ADO.NET2.0的十大最新特性
- .Net平台下的分布式缓存设计
- ASP.NET全局异常处理浅析
- ASP.NET 2.0中文验证码的实现
- 浅析.NET平台编程语言的未来走向
- .net 框架程序设计收藏
- 使用ASP.NET MVC Futures 中的异步Action
- 详解.NET中的XmlReader与XmlWriter
- 关于.NET中的Server push技术
- asp.net页面执行机制
- 对比JSP和ASP.NET的存储过程
- .NET 4.0不会包含System.Shell.CommandLine
- ASP.NET十个有效性能优化的方法
ASP.NET 中的 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 106 ::
收藏到网摘: 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
