繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
- ASP.NET
- 灵活正确的实现.NET插件机制
- 在Asp.net中为图像加入版权信息
- 重构Session确实让代码简洁干净了不少
- JSP与ASP.Net之间的Session值共享
- 如何获取当前程序文件的路径 Current Path
- 在.NET框架应用程序中发送电子邮件
- asp.net开发wap程序必备：识别来访手机品牌型号
- ASP.NET 2.0中使用自定义provider
- asp.net开发wap必备：更好的匹配手机设备
- 用ashx动态生成文件
- ASP.NET中17种正则表达式
- 提高ASP.Net应用程序性能的十大方法
- 一个通过web.Mail发送邮件的类
- 在DataGrid里面根据日期的不同显示new图标
- Asp.Net细节性问题精萃
- 自定义控件中使用枚举类型的属性（原创）
- .NET开发 正则表达式中的 Bug
- .Net学习:IronPython分析Lambda表达式
- ASP.NET中的Response对象的方法
- 在ASP.NET 2.0中数据绑定的实现方法
ASP.NET 中的 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 89 ::
收藏到网摘: 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
