Page 1 sur 1

Problème de script pour supprimer des dossiers

Posté : jeu. 08 juin 2017 09:30
par Wiltech
Bonjour,
Mon script à pour but de garder que 3 dossier (les dossiers des 3 dernier mois)mais je n'arrive pas à lui dire que ci 0>3 supprimer tous les dossier > à 3
Voila mon script :

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>

Test()

Func Test()

Global $DOSCHEMIN = "C:\Test\"
Global $display = _FileListToArray ( $DOSCHEMIN, Default, 2, True )

_ArraySort ( $display, 1, 1)
_ArrayDisplay ($display, "class" )

If $display [0] > 3 Then

DirRemove ($DOSCHEMIN)

EndIf

EndFunc
Merci à tous ceux qui m’aideront :D :D

Re: Problème de script pour supprimer des dossiers  

Posté : jeu. 08 juin 2017 12:40
par walkson
Bonjour,
Vous prenez de forts raccourcis :mrgreen:
$display = _FileListToArray ( $DOSCHEMIN, Default, 2, True ) retourne un array (tableau). Il faut donc boucler chaque élément pour la recherche (For....Next).
FileGetTime () retourne les infos que vous recherchez
Ce qui nous donne pour les mois > 3 et l'année = 2017 des dossiers du bureau
#include <Array.au3>
#include <File.au3>
$sFilePath=@DesktopDir
$aArray = _FileListToArray($sFilePath, "*", $FLTA_FOLDERS, True)
_ArrayDisplay($aArray)

   For $i = 1 To $aArray[0]
      $ArrayTime = FileGetTime ($aArray[$i],$FT_MODIFIED )
         If $ArrayTime[1] > 3 And $ArrayTime[0] = 2017 Then ConsoleWrite($aArray[$i] & @CRLF)
         ToolTip($aArray[$i], 200,200)
         _ArrayDisplay($ArrayTime)

        Next
Bien sûr, les _ArrayDisplay() et Tooltip() ne sont pas indispensables mais pour visualiser

Autres question

Posté : jeu. 08 juin 2017 16:11
par Wiltech
Merci encore :D
J'ai encore une question dans une "msgBox" je définit comme "flag 3" il me mets des proposition "oui" "non" "annuler" mais quand j'appuis sur l'un des bouton ça me met toujours le même résultat. Donc ma question ces est-qu'on peut programmer ces bouton pour lui dire que ci je fais "non" par exemple il n’exécuteras pas la tâche.

Re: Problème de script pour supprimer des dossiers

Posté : jeu. 08 juin 2017 17:07
par mikell
ça se fait dans le script. La fonction Msgbox retourne l'id du bouton pressé

$res = Msgbox(3, "test", "test")
If $res = 6 Then
    Msgbox(0,"", "yes  :)")
Else
    Msgbox(0,"", "no  :(")
EndIf

Re: Problème de script pour supprimer des dossiers

Posté : ven. 09 juin 2017 09:05
par Wiltech
Merci, grâce à vous deux mon script est terminer et il marche à la perfection. :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: