[R] Contrôle la présence d'un fichier dans un répertoire

[ThESeRvEuR]

Bonjour à tous,

Bon je ne sais pas si cela a déjà été démandé mais je cherche depuis ce matin sans avoir trouvé.
Je cherche la façon de contrôler la présence d'un fichier dans un répertoire afin de déclencher ou non une installation.

J'ai tenté pas mal de chose mais je ne connais pas apparemment la bonne fonction : If @error &$version MAJ_Aurora() then ControleAurora()

► Afficher le texte

Code : Tout sélectionner

;**************************************
; TEST DE VERSION PROGRAMME
; Nom du logiciel - à completer mais ne pas modifier par la suite !
BlockInput(0)
$soft = 'AURORA'
$chemin = 'Application'
$numero_version = '1.1.0.2'
$repinstall = 'C:\Application\Aurora'
$reppackage1 = 'M:\Install_PMF\AURORA\Package_1\setup.exe'
$reppackage2 = 'M:\Install_PMF\AURORA\Package_2\setup.exe'

; Contrôle de la mise à jour
SplashTextOn("", "Vérification de la version " & $soft & @LF & "Veuillez patienter...", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Arial", 12, 800)
Sleep(2000)

$version = FileExists( & $repinstall'\' & $numero_version)
If @error &$version MAJ_Aurora() then ControleAurora()

    

Func ControleAurora()
SplashTextOn("", "Votre version " & $soft & " est à jour.", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Arial", 12, 800)
Sleep(3000)
BlockInput(0)
EndFunc

Func MAJ_Aurora()
    SplashTextOn('Mise à jour de la bibliotheque ' & $soft, 'La mise à jour de de la bibliotheque ' & $soft & ' est en cours.' & @LF & @LF & 'Veuillez patienter...', 350, 150)
    RunWait($reppackage1)
    WinWaitActive('Installation : AURORA')
    WinWaitClose('Installation : AURORA')
    Sleep(10000)
    
    SplashTextOn('Mise à jour de ' & $soft, 'La mise à jour de ' & $soft & ' est en cours.' & @LF & @LF & 'Veuillez patienter...', 350, 150)
    RunWait($reppackage2)
    WinWaitActive('Installation : AURORA')
    WinWaitClose('Installation : AURORA')
    WinClose('AURORA')
    Return
EndFunc     ; MAJ_AURORA
 

Par avance, merci,
Samuel

P.S : j'espère que je ne me suis pas encore trompé dans ma présentation, sinon je vais encore me faire reprendre

[Habibsbib]

J'ai pas pigé à quoi servait ton BlockInput(0)... surtout que si tu veux bloquer le clavier et la souris, le flag c'est 1

Je te donne une réposne plus tard si j'ai le temps !

[timmalos]

Pour avoir la version, si elle est disponible dans l'exe alors

Code : Tout sélectionner

$version = FileGetVersion($filename)

marchera tres bien

Puis pour savoir si le fichier existe il vous faut utiliser

Code : Tout sélectionner

If FileExist($pah) then...

[ThESeRvEuR]

Oui je sais que mon BlockInput est à 0, c'est juste en attendant de finir mon script... lol
J'essayerai la manip de timmalos demain...

Mais c'est pas un exe que je veux controler, il y aura un .dat, un .isu, et d'autres en fonction des programmes du boulot...

Je vous redirais quoi... Merci

[ThESeRvEuR]

Merci, j'ai résolu mon problème avec ça :

Code : Tout sélectionner

If FileExists ("C:\Application\AURORA\"&$numero_version) then ControleAurora()
If Not FileExists ("C:\Application\AURORA\"&$numero_version) then MAJ_Aurora()

A plus...