如何通过VB6获取磁盘编号 比如 c:盘，返回 1:1 E盘 返回1:3

baidu_35732800 2016-08-21 10:35:08
GHOST的，把第2个磁盘的第2分区镜像，还原至第一个磁盘的第1个分区

如何通过VB6获取磁盘编号

比如 c:盘，返回 1:1 E盘 返回1:3

找到了下面的代码 使用时发现 C盘 会返回1:1 D盘1:2 但E盘 之后 还会 提示 1:2

求高手帮我看看 多谢

Public DL_R As String

Public DL_PN As String

Public DL_PD As String

Private Sub Get_PN(DL As String)

WQL = "Associators of {win32_LogicalDisk='" & DL & "'} where resultClass = Win32_DiskPartition"

Set Pattions = GetObject("winmgmts:").ExecQuery(WQL)

For Each Pat In Pattions

DL_PN = Pat.Name

DL_PD = Pat.DiskIndex

DL_R = CInt(DL_PD + 1) & ":" & CInt(Right(DL_PN, 1) + 1 + 1)

Next

End Sub



Private Sub Command1_Click()

Label1.Caption = DL_R

End Sub



Private Sub Drive1_Change()

Get_PN (Left(Drive1.Drive, 2))

Label1.Caption = DL_R

End Sub



Private Sub Form_Load()

Get_PN (Left(Drive1.Drive, 2))

Label1.Caption = DL_R

End Sub
...全文
431 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
一如既往哈 2016-08-21
  • 打赏
  • 举报
 回复
直接找wmi呀，看来你没找对。看看这样是不是你要的，仅供参考： 


Sub ListDrivesAndPartions()
    Dim wmiServices, wmiDiskDrives, wmiDiskDrive
    Dim strEscapedDeviceID, wmiDiskPartitions, wmiDiskPartition
    Dim wmiLogicalDisks, wmiLogicalDisk
    Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//.")
    Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID FROM Win32_DiskDrive")
    For Each wmiDiskDrive In wmiDiskDrives
        Debug.Print wmiDiskDrive.Caption & " (" & wmiDiskDrive.DeviceID & ")"
        strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
        Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" _
        & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        For Each wmiDiskPartition In wmiDiskPartitions
            Debug.Print vbTab & wmiDiskPartition.DeviceID
            Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" _
            & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            For Each wmiLogicalDisk In wmiLogicalDisks
                Debug.Print vbTab & vbTab & wmiLogicalDisk.DeviceID
            Next
        Next
    Next
End Sub
''
..
舉杯邀明月 2016-08-21
  • 打赏
  • 举报
 回复
DL_R = CInt(DL_PD + 1) & ":" & CInt(Right(DL_PN, 1) + 1 + 1) 你这样写的，哪有可能得到　1:1这个结果？ 假设如你所说，C盘1:1，D盘1:2，E盘及之后的都是1:3， 那么说明你的这块磁盘分区为： 　C为第1个主分区，D为第2个主分区， 　然后划分了一个扩展分区，再划分逻辑分区E、F、…………
baidu_35732800 2016-08-21
  • 打赏
  • 举报
 回复
有高手帮忙 看一下 多谢了
baidu_35732800 2016-08-21
  • 打赏
  • 举报
 回复
引用 6 楼 Chen8013 的回复:
[quote=引用 5 楼 baidu_35732800 的回复:] [quote=引用 3 楼 Topc008 的回复:] 直接找wmi呀，看来你没找对。看看这样是不是你要的，仅供参考： 


Sub ListDrivesAndPartions()
    Dim wmiServices, wmiDiskDrives, wmiDiskDrive
    Dim strEscapedDeviceID, wmiDiskPartitions, wmiDiskPartition
    Dim wmiLogicalDisks, wmiLogicalDisk
    Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//.")
    Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID FROM Win32_DiskDrive")
    For Each wmiDiskDrive In wmiDiskDrives
        Debug.Print wmiDiskDrive.Caption & " (" & wmiDiskDrive.DeviceID & ")"
        strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
        Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" _
        & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        For Each wmiDiskPartition In wmiDiskPartitions
            Debug.Print vbTab & wmiDiskPartition.DeviceID
            Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" _
            & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            For Each wmiLogicalDisk In wmiLogicalDisks
                Debug.Print vbTab & vbTab & wmiLogicalDisk.DeviceID
            Next
        Next
    Next
End Sub
''
..
多谢哥们！我测试了 得到的不是我想要的结果 不过真心感谢您[/quote] 要我说，这就是“正确结果”了。 自己在启动程序时，把这个“信息树”处理一下。 然后，直接按“逻辑驱动器号”在这个处理结果中查就是了。 [/quote] 好吧 我研究研究 多谢！嘻嘻！
舉杯邀明月 2016-08-21
  • 打赏
  • 举报
 回复
引用 5 楼 baidu_35732800 的回复:
[quote=引用 3 楼 Topc008 的回复:] 直接找wmi呀，看来你没找对。看看这样是不是你要的，仅供参考： 


Sub ListDrivesAndPartions()
    Dim wmiServices, wmiDiskDrives, wmiDiskDrive
    Dim strEscapedDeviceID, wmiDiskPartitions, wmiDiskPartition
    Dim wmiLogicalDisks, wmiLogicalDisk
    Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//.")
    Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID FROM Win32_DiskDrive")
    For Each wmiDiskDrive In wmiDiskDrives
        Debug.Print wmiDiskDrive.Caption & " (" & wmiDiskDrive.DeviceID & ")"
        strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
        Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" _
        & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        For Each wmiDiskPartition In wmiDiskPartitions
            Debug.Print vbTab & wmiDiskPartition.DeviceID
            Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" _
            & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            For Each wmiLogicalDisk In wmiLogicalDisks
                Debug.Print vbTab & vbTab & wmiLogicalDisk.DeviceID
            Next
        Next
    Next
End Sub
''
..
多谢哥们！我测试了 得到的不是我想要的结果 不过真心感谢您[/quote] 要我说，这就是“正确结果”了。 自己在启动程序时，把这个“信息树”处理一下。 然后，直接按“逻辑驱动器号”在这个处理结果中查就是了。
baidu_35732800 2016-08-21
  • 打赏
  • 举报
 回复
引用 3 楼 Topc008 的回复:
直接找wmi呀，看来你没找对。看看这样是不是你要的，仅供参考： 


Sub ListDrivesAndPartions()
    Dim wmiServices, wmiDiskDrives, wmiDiskDrive
    Dim strEscapedDeviceID, wmiDiskPartitions, wmiDiskPartition
    Dim wmiLogicalDisks, wmiLogicalDisk
    Set wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//.")
    Set wmiDiskDrives = wmiServices.ExecQuery("SELECT Caption, DeviceID FROM Win32_DiskDrive")
    For Each wmiDiskDrive In wmiDiskDrives
        Debug.Print wmiDiskDrive.Caption & " (" & wmiDiskDrive.DeviceID & ")"
        strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)
        Set wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" _
        & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
        For Each wmiDiskPartition In wmiDiskPartitions
            Debug.Print vbTab & wmiDiskPartition.DeviceID
            Set wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" _
            & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
            For Each wmiLogicalDisk In wmiLogicalDisks
                Debug.Print vbTab & vbTab & wmiLogicalDisk.DeviceID
            Next
        Next
    Next
End Sub
''
..
多谢哥们！我测试了 得到的不是我想要的结果 不过真心感谢您
baidu_35732800 2016-08-21
  • 打赏
  • 举报
 回复
引用 2 楼 Chen8013 的回复:
DL_R = CInt(DL_PD + 1) & ":" & CInt(Right(DL_PN, 1) + 1 + 1) 你这样写的，哪有可能得到　1:1这个结果？ 假设如你所说，C盘1:1，D盘1:2，E盘及之后的都是1:3， 那么说明你的这块磁盘分区为： 　C为第1个主分区，D为第2个主分区， 　然后划分了一个扩展分区，再划分逻辑分区E、F、…………
引用 2 楼 Chen8013 的回复:
DL_R = CInt(DL_PD + 1) & ":" & CInt(Right(DL_PN, 1) + 1 + 1) 你这样写的，哪有可能得到　1:1这个结果？ 假设如你所说，C盘1:1，D盘1:2，E盘及之后的都是1:3， 那么说明你的这块磁盘分区为： 　C为第1个主分区，D为第2个主分区， 　然后划分了一个扩展分区，再划分逻辑分区E、F、…………
多谢@Chen8013 我再研究研究 如果您方便也帮我看看！
极简C语言入门课程
2、讲师从1996的接触C语言，经历见证过很多的开发语言，从辉煌到衰落过程，比如：以前Foxpro、VB、delphi不知有多火，但现在很少有用了，只能在一些老项目还在使用。反观C语言基本上一直占据编程语言排行榜的前5名...
VB操作EXCEL表的常用方法
VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： ...
谈vb目录文件操作的三种方法
        对于程序,无论大到一个操作系统,小到一个单一功能的应用软件来说,很多时候,我们都要将一些数据记录和存储到磁盘中.可见,对目录和文件的操作是多么的重要.下面我们就和大家一起学习一下vb中可以应用的三种方法:1、使用现成的控件2、使用visualbasic中提供的方法3、使用windows提供的应用程序编程接口（api）。下面我们具体看看这些方法。            第一部分  
如何优化VB程序
如何去优化你的VB程序帮助 1、如何去优化你的VB程序Visual Basic 作为一种高级编程语言，它也有着不可避免的缺点---开发出的应用程序运行速度慢。如果我们能够程序做一些优化，那么情况将会大大改善。要优化程序运行的实际速度，常用的方法有三种：1.尽量避免使用 Variant 变量。由于VB不能确定 Variant 变量的具体类型，所以它会给该类型变量分配16个字节的空间，而且在用变量
VB程序破解
VB程序的破解思路总结、编译方式vs破解工具 比较 把一个简单的VB计时器程序研究透了，对于VB破解应有较大帮助，如有错误欢迎指出。 VB程序也是一个非常有趣的东西，你去看VB的主程序，是用Microsoft Visual C++ 5.0编写的，也就是说，其实里面调用的各种命令和控件，都是一段VC++的代码。还有VB运行时必须的“库”(虚拟机)：msvbvm50, msvbvm60,
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章