;-------------------------------------------------------------------------------------------------------
;_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
Ce code est censé ouvrir un fichier .rv avec le logiciel Revona. Or curieusement si il fonctionne très bien chez moi sur Seven X64 , ce n'est pas le cas au bureau avec un Seven X32 (code compilé en 32), en effet j'ai le message d'erreur comme quoi il ne trouve pas de fichier .rv alors que bien sûr il est bien présent. Avez vous une idée?
Modifié en dernier par mokoto le jeu. 27 oct. 2011 14:58, modifié 1 fois.