Je suis à la recherche de mon erreur mais malheureusement je ne trouve pas (applaudis).
Bref, un simple programme pour automatiser plusieur install de soft / Lancement bench (le classique, salde tomate oignion).
La fonction pour la gestion de l’installation en elle même n'est pas un soucis, c'est de le lancer ! Je m'explique :
Rechercher dans un répertoire tout les fichier (OK), quelle type de fichier, Nom, voir l'emplacement (quoique..)é, puis utiliser ces information en conséquence. J'arrive bien à récupéré le nom des fichiers (_FileListToArray), puis récupéré l'extension (_PathSplit). Seulement je ne récupère l’extension que du premier fichier mais pas les autres.
Ce code est le seul bout qui est resté en vie (RageQuit)
Code : Tout sélectionner
#include <_ZIP.au3>
#include <File.au3>
#include <Array.au3>
#include <StringConstants.au3>
#include <MsgBoxConstants.au3>
#include <String.au3>
Global $aVar, $avar2,$avar3
$aVar = "D:\Users\Thomas\Desktop\Install\0_Driver"
Func Decoupe_Dir (ByRef $aDir, ByRef $aName, ByRef $aExt)
Local $szDrive, $szDir, $aFName, $szExt,$fichier,$aTravail, $aTravail2, $i,$var
$aTravail =_FileListToArray($aDir, "*.*",1, True)
For $i = 1 To $aTravail[0]
$fichier = $aTravail[$i]
$var = _PathSplit($fichier,$szDrive, $szDir, $aFName, $szExt)
$aName= $aFName
$aDir = $szDir
$aExt = $szExt
Next
EndFunc
Decoupe_Dir($aVar, $avar2,$avar3)
Local $t
For $t = 1 To 9
MsgBox($MB_SYSTEMMODAL, "", $aVar2)
Next