AutoIt Français

Code : Tout sélectionner

#cs ------------------------------------------
AutoIt version: 3.2.12.1
Date: 16.08.2008
Version:1.0
#ce ------------------------------------------

#include <File.au3>
#include <array.au3>

Dim $avArray
$avArray = _ArrayCreate("_CARTE_SD", "_CARTE_CF", "_CARTE_SM", "_CARTE_MS")

RunWait(@ComSpec & " /c mountvol /l >" & @TempDir & "\amovible.txt", @TempDir, @SW_HIDE)

$var = DriveGetDrive("removable") ;compte le nbr de disque amovible
If @error = 1 Then
    $msg = "Aucun disque amovible n'a été détecté sur l'ordinateur." & @CR & @CR
    $msg &= "Si vous avez connecté un lecteur de cartes mémoire, affectez une lettre" & @CR
    $msg &= "de volume sur chaque lecteur depuis le gestionnaire de disque et relancez" & @CR
    $msg &= "ce script."
    MsgBox(16, "Aucun disque amovible", $msg)
    Exit
EndIf

If $var[0] <> 4 Then
    $msg = "Le nombre de disques amovibles connectés n'est pas correct." & @CR & @CR
    $msg &= "Veuillez retirer tous les disques amovibles pour ne" & @CR
    $msg &= "laisser que le lecteur multi-cartes." & @CR
    MsgBox(48, "Erreur", $msg)
    Exit
EndIf

$lect = InputBox("Disque de destination", "Indiquez sur quel disque vous désirez monter le lecteur de carte mémoire. (ne mentionner que la lettre)")
For $a = 0 To 3
    If Not FileExists($lect & ":\_LecteursCartes\" & $avArray[$a]) Then DirCreate($lect & ":\_LecteursCartes\" & $avArray[$a])
Next

Dim $aRecords
For $i = $var[0] To 1 Step -1
    If Not _FileReadToArray(@TempDir & "\amovible.txt", $aRecords) Then
        MsgBox(4096, "Error", " Le fichier n'a pas pu être lu     erreur:" & @error)
        Exit
    EndIf
    For $x = $aRecords[0] To 15 Step -1 
        If StringLeft(StringStripWS($aRecords[$x], 8), 2) = $var[$i] Then
            RunWait(@ComSpec & " /c mountvol " & $lect & ":\_LecteursCartes\" & $avArray[$i - 1] & " " & StringStripWS($aRecords[$x - 1], 8), @TempDir, @SW_HIDE)
            RunWait(@ComSpec & " /c mountvol " & $var[$i] & " /d", @TempDir, @SW_HIDE)
        EndIf
    Next
Next

FileDelete(@TempDir & "\amovible.txt")