zz怎样得到一个系统盘的全名

最新推荐文章于 2025-10-31 10:11:51 发布

转载最新推荐文章于 2025-10-31 10:11:51 发布 · 1.3k 阅读

文章标签：

#数据备份 #each #command #windows #磁盘 #c

技术专栏收录该内容

40 篇文章

订阅专栏

博客给出一段代码，用于在Windows环境下遍历磁盘项目。代码通过创建Shell.Application对象，遍历控制面板中的项目，找到“我的电脑”后进一步遍历其下的磁盘项目，并将项目名称输出，如3.5软盘 (A:)、WINDOWS98 (C:)等。

http://blog.youkuaiyun.com/VBDN/archive/2005/03/27/331975.aspx

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
    Next
End Sub

输出结果如下：

控制面板
3.5 软盘 (A:)
WINDOWS98 (C:)
程序 (D:)
本地磁盘 (E:)
数据备份 (F:)
光盘 (G:)