#include <Array.au3>
#Include <WinAPIEx.au3>
_GetPartSecInfo()
Func _GetPartSecInfo()
Local Const $N=3
Local $a_PartSecInfo[1][$N],$p=1
Local $i,$Drive,$a_DriveInfo
For $i=65 To 90
$Drive=''
$Drive=Chr($i) & ':'
If DriveStatus($Drive)='READY' And _
(DriveGetType($Drive)='Fixed' Or _
DriveGetType($Drive)='Removable' Or _
DriveGetType($Drive)='Network') Then
$a_DriveInfo=''
$a_DriveInfo=_WinAPI_GetDriveNumber($Drive)
If IsArray($a_DriveInfo) Then
ReDim $a_PartSecInfo[$p+1][$N]
$a_PartSecInfo[$p][1]=$Drive
$a_PartSecInfo[$p][2]=($a_DriveInfo[1]+1) & ':' & $a_DriveInfo[2]
$p+=1
EndIf
EndIf
Next
_ArrayDisplay($a_PartSecInfo,'$a_PartSecInfo')
Return $a_PartSecInfo
EndFunc
|