Page 1 sur 1
[R] Remonter tous les fichiers du disque avec la taille
Posté : jeu. 12 mai 2011 16:37
par remilie
bonjour,
j'ai essayé de me mettre a autoit
apres quelque recherche j'arrive à remonter tous les fichiers du disque dans un .txt
mais il me manque quelque point pour finaliser...
je voudrais remonter la taille de chaques fichiers du disque
sans le chemin (juste le fichier)
et le top dans un fichier CSV pour l'utiliser dans excel ou autre tableur ( genre "nomduposte.csv")
et ecris dans un repertoire precis genre c:\rapport\
voila ce que j'ai commencer à faire:
Code : Tout sélectionner
#include <File.au3>
#include<FileListToArray3.au3>
$Chemin = "c:\"
$Fichier = "*.*"
$ar_Array = _FileListToArray3 ($Chemin, $Fichier, 1, 1, 1)
_FileWriteFromArray("Liste des fichiers.txt", $ar_Array, 1)
merci d'avance pour votre aide
Re: [..] Remonter tous les fichiers du disque avec la taille
Posté : jeu. 12 mai 2011 17:43
par ZDS
Bonsoir Remilie !
Voici un exemple de script qui pourrait te dépanner.
► Afficher le texteExemple
Code : Tout sélectionner
#include <Array.au3>
#include <File.au3>
#include "FileListToArray3.au3"
#Region Phase n°1
ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Recherche de fichiers"&@CRLF)
Local $chemin = "c:\", $fichier = "*.*", $array, $size
$array = _FileListToArray3 ($chemin, $fichier, 1, 1, 1)
$size = $array[0]
#EndRegion
#Region Phase n°2
ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Traitement de fichiers"&@CRLF)
Local $i, $valeur, $nom, $taille, $resultat[$size+1][2]
$resultat[0][0] = $size
$resultat[0][1] = "Octets"
For $i = 1 To $size
$valeur = $array[$i]
$resultat[$i][0] = StringTrimLeft($valeur, StringInStr($valeur,"\",0,-1))
$resultat[$i][1] = FileGetSize($valeur)
Next
#EndRegion
#Region Phase n°3
ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&" : Création du fichier CSV"&@CRLF)
Local $fichier = "liste de fichiers.csv", $flux
$flux = FileOpen($fichier, 10)
For $i = 1 To $size
FileWriteLine($flux, '"'&$resultat[$i][0]&'"' & ";" & $resultat[$i][1])
Next
FileClose($flux)
#EndRegion
par contre, j'ai des resultats très corrects sur un PC plutot peu chargé (125.000 fichiers, et ça prend près d'une minute trente), sur un truc plus bourré tu risques de perdre du temps : Il y a plus rapide que FileListToArray3, cherche sur le forum, certaines UDF comme RecFileListToArray peuvent te faire la phase 1 et une partie de la 2 en une seule opé. et si tu crées ta propre fonction, tu peux presque diviser le temps de boulot par 3.
A bientôt !
Re: [..] Remonter tous les fichiers du disque avec la taille
Posté : ven. 13 mai 2011 10:08
par remilie
jai essayé de comprendre...
par contre si je compile j'obtiens
Code : Tout sélectionner
ERROR: undefined macro.
ConsoleWrite(@HOUR&":"&@MIN&":"&@SEC&"."&@MSEC&...
avez vous une idée..??
merci
Re: [..] Remonter tous les fichiers du disque avec la taille
Posté : ven. 13 mai 2011 10:14
par ZDS
La solution la plus simple est d'enlever les 3 lignes de console, je ne m'en sers que pour structurer ou débugguer.
Autant les effacer, elle ne servent à rien au final.
Re: [R] Remonter tous les fichiers du disque avec la taille
Posté : jeu. 19 mai 2011 10:20
par remilie
resolu merci bcp