[R] Remonter tous les fichiers du disque avec la taille

[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

[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 !

[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

[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.

[remilie]

resolu merci bcp