[R] Compter des fichiers avec critère (date et poid fichier)

[Grnaz]

Bonjour,

J'ai utilisé une fois autoit, j'en avais été satisfait mais le boulot m'avait aiguillé vers d'autres sujets. Aujourd'hui j'aurais besoin d'un .exe qui me fasse la chose suivante,
je ne demande pas la solution clé en main, mais un aiguillage me permettant d'arriver à mes fin (nom des fonctions ou autre)

Probleme :

Je dois avoir le nombre de fichier ayant :
1 - Extension .res
2 - Etant vide
3 - Ayant une date de création > date du jour à 00H05Minute

Le chemin source est figé bien sur, pas d'interface utilisateur simplement la récupération du nombre de fichier, alors la récupération pourrait se faire en créant un fichier ayant pour nom le nombre de fichier par exemple.
J'exploiterais par la sute ce nombre à des fin de contrôle.

Vous remerciant par avance,

Peut être qu'AutoIt ne répondra pas à ma problématique, auquel cas, j'essaierais de trouver la vérité ailleurs

[matwachich]

Comme je suis de bonne humeur (et surtout, j'm'ennui a mort! ) Je te fais le script en entier!!!
seul bémol, il ne gere pas les erreurs: il ne faut pas que ton dossier soit vide! sinon erreur!
Appart ca, il te fait un fichier rapport.txt dans le même dossier que ton script

► Afficher le texte

Code : Tout sélectionner

#include <file.au3>

$nbr_fichier_vide = 0 ;on prépare cette variable pour la suite
$nbr_fichier_date = 0 ;on prépare cette variable pour la suite
$chemin = "c:\test\" ;le chemin à tester

$rapport = FileOpen("rapport.txt", 2) ;Ouvre le fichier rapport.txt

$fichiers = _FileListToArray($chemin, "*", 1) ;on liste tous les fichiers dans le dossier chemin dans le tableau $fichiers
FileWriteLine($rapport, "Nombre de fichiers total dans le dossier: "&$fichiers[0])

;-------------------------------------------------------
$fichiers_res = _FileListToArray($chemin, "*.res", 1) ;liste les fichiers .res et les mets dans le tableau (array) $fichier_res

FileWriteLine($rapport, "Nombre de fichiers .res: "&$fichiers_res[0]) ;Ecris dans le fichier rapport le nombre de fichiers trouvé qui est contenu dans la première case du tableau ($fichier_res[0])

;--------------------------------------------------------
For $i = 1 To $fichiers[0] Step 1 ;boucle qui test tous les fichiers trouvés pour voir si il y'en a de vides
    If FileGetSize($chemin&$fichiers[$i]) = 0 Then $nbr_fichier_vide = $nbr_fichier_vide + 1 ;si un fichier vide est trouvé, la variable $nbr_fichier_vide est incrémenté
Next

FileWriteLine($rapport, "Nombre de fichiers vides: "&$nbr_fichier_vide) ;on ecris le contenu de la variable $nbr_fichier_vide dans le rapport

;--------------------------------------------------------
For $i = 1 To $fichiers[0] Step 1 ;boucle
    $time = FileGetTime($chemin&$fichiers[$i], 1) ;on recupere les infos de création du fichier numero $i
    If $time[0] >= @YEAR Then ;serie de test pour verifier la date de création
        If $time[1] >= @MON Then
            If $time[2] >= @MDAY Then
                If $time[3] >= 00 Then
                    If $time[4] >= 05 Then
                        $nbr_fichier_date = $nbr_fichier_date + 1 ;si le test réussi, on incremente la variable $nbr_fichier_date
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
Next

FileWriteLine($rapport, "Nombre de fichiers dont la date est plus élevé ... : "&$nbr_fichier_date) ;Enfin, on ecri le contenu de la variable $nbr_fichier_date dans le rapport

[Grnaz]

Je te remercie mille fois,
Bien que je ne l'ai pas testé, ça répond beaucoup plus que je n'espérais.

Oui, tu me donne une solution clé en main, avec ce contenu je pourrais de toute façon me debrouiller.

Heuuu si tu t'ennuis à "mourir", j'essaierais de voir si j'ai d'autre besoin.

Merci,
++

[Tlem]

Par respect pour le travail de matwachich, je ne vais pas supprimer ce message. Mais je demande à Grnaz de mettre à jour le titre de son message afin que celui-ci corresponde aux règles du forum (Balise de titre et titre clair).

[jamesst20]

Juste un question comme ca Si tu est Administrateur.. Pourquoi vous ne pouvez pas éditer le titre?

[Tlem]

Parce que j'en ai marre de le faire 10 fois par jour.

C'est comme là, j'ai supprimé la citation que vous aviez fait dans votre message car comme vous répondez de suite après moi, la citation n'a strictement aucun intérêt en dehors de bouffer de la place dans la base de donnée.

Chacun pourrait y mettre du seins et respecter les règles de présentation, cela m'éviterais un surcroît de travail.

[Grnaz]

Par respect pour le travail de matwachich, je ne vais pas supprimer ce message. Mais je demande à Grnaz de mettre à jour le titre de son message afin que celui-ci corresponde aux règles du forum (Balise de titre et titre clair).

Ok, autant pour moi, mille excuses, et pour tout te dire je n'avais pas lu les recommendations (je viens de les survoler), j'ai modifié le titre afin qu'il soit plus clair et mis la balise sur R.

Et je remercie encore Môssieur matwachich pour son aide.

Amicalement,