[R] Comment récupérer nom de fichier et date de c. ?

[GhostLine]

Bonjour à tous,

j'essaye depuis ce matin de récupérer le nom et la date de création d'un lot de fichiers dans un répertoire donné, sans succès ...

Mon but est le suivant :
1/ on vérifie une base en dur qui nous donne le nom du dernier fichier envoyé
2/ y a t'il un fichier plus récent ? - si oui, on l'envoit par mail
- si non, on quitte la boucle
3/ on fait un wait d'une journée avant revérification.

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>
$RepInstalSoft = "P:\Support Logiciels\PARC_Liste logiciels installations\2010"

; On liste le contenu du repertoire InstalSoft et on le recopie dans un tableau
$ContenuRep=_FileListToArray($RepInstalSoft)

For $i = 1 To $ContenuRep[$ContenuRep[1]]
    $chemincomplet = $RepInstalSoft&_ArrayToString($ContenuRep,@TAB,$i,$i)
    MsgBox =(0,"", FileGetTime($chemincomplet,1,1)
Next

Merci d'avance !

[Jerome]

Coucou,


Essaye sa

Code : Tout sélectionner

#Include <File.au3>
#Include <Array.au3>
$RepInstalSoft = "P:\Support Logiciels\PARC_Liste logiciels installations\2010"

; On liste le contenu du repertoire InstalSoft et on le recopie dans un tableau
$ContenuRep=_FileListToArray($RepInstalSoft)

For $i = 1 To $ContenuRep[$ContenuRep[1]]
    $chemincomplet = $RepInstalSoft & "\" & $ContenuRep[$i]
    $Date = FileGetTime($chemincomplet)
    $yyyymd = $Date[0] & "/" & $Date[1] & "/" & $Date[2]
    MsgBox (0,"","Fichier :" & $chemincomplet & @CRLF & "Date :" & $yyyymd)
Next

Jérôme

[cutprod]

Bonsoir,
ou alors celui la =

► Afficher le texte

Code : Tout sélectionner

$emplacement_dossier = "C:\Users\AL\Desktop\t" ; le chemin complet de ton dossier
$search = FileFindFirstFile($emplacement_dossier &"\*.*")


If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

$t=FileGetTime($emplacement_dossier & "\" &  $file)
$creationfile = $t[2] & "_" & $t[1] & "_" & $t[0]
$today= @MDAY&"_"&@MON&"_"&@YEAR
if $creationfile = $today Then
    MsgBox(0,"",$file &@CRLF& "fichier crée aujourd'hui!!!")
    Else
    MsgBox(4096, "fichier trouver = ", $file &@CRLF& "fichier crée le = " &$creationfile)
    EndIf
WEnd

FileClose($search)
 

[GhostLine]

Nickel, merci les gars !