Ist der Drive Letter noch frei?

1. offizieller Beitrag

    Hallo Zusammen!

    Ich möchte gerne alle Drives "A:" - "Z:" in einem Array speichern und entweder die Art des Drives hinter dem Buchstaben anzeigen lassen, oder dass der Letter noch Frei ist.
    Eine Möglichkeit, die warscheinlich noch besser wäre, ist, einfach die freien Letters als array abzuspeichern und die besetzten nicht.
    Ich komme leider nicht weiter:

    [autoit]

    Dim $UsedLetters = DriveGetDrive( "all" )
    Dim $Final[55]
    Dim $UsedLabels[55]
    If NOT @error Then
    For $i = 1 to 26
    If $UsedLetters[$i] = "" Then
    ;kp
    EndIf
    $UsedLabels[$i] = DriveGetType ($UsedLetters[$i])
    $Final[$i] = $UsedLetters[$i] & "\ * " & $UsedLabels[$i] ;Die Ausgabe (Z.B. "A:\ * Network")
    MsgBox(4096,"Drive " & $i, $Final[$i])
    Next
    EndIf

    [/autoit]
    • Offizieller Beitrag
    [autoit]

    #include <Array.au3>

    [/autoit][autoit][/autoit][autoit]

    Global $drives[26][2]

    [/autoit][autoit][/autoit][autoit]

    For $i = 65 To 90
    $drives[$i - 65][0] = Chr($i) & ':\'
    If FileExists(Chr($i) & ':\') Then
    $drives[$i - 65][1] = DriveGetType(Chr($i) & ':\')
    Else
    $drives[$i - 65][1] = 'noch frei'
    EndIf
    Next

    [/autoit][autoit][/autoit][autoit]

    _ArrayDisplay($drives)

    [/autoit]
    • Offizieller Beitrag

    Kannst du natürlich noch beliebig ausweiten

    [autoit]

    #include <Array.au3>

    [/autoit][autoit][/autoit][autoit]

    Global $drives[26][6]

    [/autoit][autoit][/autoit][autoit]

    For $i = 65 To 90
    $drives[$i - 65][0] = Chr($i) & ':\'
    If FileExists(Chr($i) & ':\') Then
    $drives[$i - 65][1] = DriveGetType(Chr($i) & ':\')
    Else
    $drives[$i - 65][1] = 'noch frei'
    EndIf
    $drives[$i - 65][2] = DriveStatus(Chr($i) & ':\')
    $drives[$i - 65][3] = DriveGetLabel(Chr($i) & ':\')
    $drives[$i - 65][4] = DriveGetSerial(Chr($i) & ':\')
    $drives[$i - 65][5] = DriveGetFileSystem (Chr($i) & ':\')
    Next

    [/autoit][autoit][/autoit][autoit]

    _ArrayDisplay($drives)

    [/autoit]

    Mega