AutoIt Français

Code : Tout sélectionner

;-------------------------------------------------------------------------------------------------------
;_FileListToArrayEx($sPath, [$sFilter = '*.*', [$iFlag = 0, [$sExclude = '', [$iRecurse = False]]]])
;$sPath = Chemin de recherche
;$sFilter = Filtre de recherche (*.au3 ou Script?.au3 ...)
;$iFlag = 0=Retourne fichier et répertoire, 1=Retourne que les fichiers, 2=Retourne que les répertoires.
;$sExclude = Liste des exclusions, séparées par le caractère '|' (Alt Gr + 6).
;$iRecurse = Recherche récursive (0=Non 1=Oui)
;-------------------------------------------------------------------------------------------------------

$Path = @ScriptDir
;recherche des fichiers .rv dans $Path
$File = _FileListToArrayEx ($Path, "*.rv", 1, "", True)
If @error Then
    MsgBox(0, "Erreur fichier manquant.", "Aucun fichier Revona .rv est présent sur le disque." & @CRLF & "Veuillez contacter votre service informatique.")
EndIf

If FileExists($Path & "\Revona\") Then
        Run ( $Path & "\Revona\Revona.exe /a " & $File[1] & " /s" )
Else
        MsgBox(0, "Erreur Dossier absent.", "Aucun dossier Revona est présent sur le disque." & @CRLF & "Veuillez contacter votre service informatique.")
Endif