繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
- ASP.NET
- Internet Explorer 编程简述（二）在IE中编辑OLE嵌入文档
- 移动窗体
- .NET 2.0获取数据库连接统计数据
- VB.NET 拖动无边框的窗体
- 利用WH_CBT Hook将非模态对话框显示为模态对话框
- Aspect#应用 - 权限验证
- VB 从零开始编外挂(一)
- 【错误解决】Unable to find script library 'WebUIValidation.js'
- VB 从零开始编外挂(四)
- DTD指南(3)-DTD-Elements(元素)
- 知识库文章MDL9745154-File:Microsoft Visual Basic 运行时库
- .net手机软件开发（六）OBEX应用：文件传输部分
- 在winform中使用WebBrowser控件时怎样去除IE的滚动条
- WINZIP及WINRAR命令!!!!!
- 智能客户端相关Application Block结构功能分析(二)
- 如何在VB中操作EXCEL（一段代码，两个可以使用的过程）
- 在C#中用最简洁有效的代码执行存储过程并返回数据
- .Net的Collection类的一些使用说明
- ASP.NET实现数据图表c
- 用asp.net画饼图
ASP.NET 中的 怎样得到一个系统盘的全名，不是字符，是全名，如：本地磁盘(C:)？
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 57 ::
收藏到网摘: 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
