如何获取连接计算机所有磁盘的所有活动分区

kkkpep

不要借助 dsptw ，不少情况下运行异常
不要用WMI，大部分PE都不支持

kkkpep

回复 2# guowenfu

可否给讲解一下？

guowenfu

[code]Func _LogicalDiskinfo()
Func _LogicalDiskinfo()
        Local $Disk = DriveGetDrive("FIXED")
        Local $Diskinfo[1][4]
        $Diskinfo[0][0] = 0
        If Not @error Then

                For $i = 1 To $Disk[0]
                        $Diskinfo[0][0] += 1
                        ReDim $Diskinfo[UBound($Diskinfo) + 1][4]
                        $Diskinfo[$i][0] += $Diskinfo[0][0]
                        $Diskinfo[$i][1] = StringTrimRight(DriveSpaceFree($Disk[$i]), 5)
                        $Diskinfo[$i][2] = StringTrimRight(DriveSpaceTotal($Disk[$i]), 5)
                        $Diskinfo[$i][3] = StringTrimRight(DriveSpaceFree($Disk[$i]) / DriveSpaceTotal($Disk[$i]) * 100, 10) & "%"
                Next
        EndIf
        Return $Diskinfo
EndFunc   ;==>_LogicalDiskinfo