Déplacer fichiers vers repertoire

Re : Déplacer fichiers vers repertoire

Salut,

à adapter à ton projet

Repertoire="c:\toto\" & year(date-1) & "." & month(date-1) & "." & day (date-1)

mkdir Repertoire


sans code difficile de t'aider +

A+++

Re : Déplacer fichiers vers repertoire

Bonjour,
J'ai trouvé un script (ci-dessous) à compiler en .exe avec un petit utilitaire (gratuit) qui se nomme autoit.
La solution ne me satisfait pas tout à fait, car il copie les fichiers dans les répertoires au lieu de les déplacer

Le Sript :
Dim $FolderName = @WorkingDir ;traite les fichiers se trouvant dans le dossier courant
ScanFolder($FolderName) ;parcours le dossier et traite les fichiers à l'intérieur
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*" ) ;traite tous les types de fichiers : utiliser *.jpg pour ne traiter que les .jpg ou .JPG par exemple
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFindNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$t = FileGetTime($FullFilePath, 0) ;récupère la date de modification du fichier
$yyyymd = $t[0] & "-" & $t[1] & "-" & $t[2] ;met la date de modification sous la forme YYYY-MM-DD
If not FileExists(@WorkingDir & "\" & $yyyymd) Then
DirCreate(@WorkingDir & "\" & $yyyymd) ;crée le dossier s'il n'existe pas
EndIf
FileCopy($FullFilePath, @WorkingDir & "\" & $yyyymd) ;copie le fichier dans le bon dossier (en conservant les paramètres de date du fichier original)
WEnd
FileClose($Search)
EndFunc

Voilà,
Si ça peut aider et/ou si ça peut être amélioré.

Merci tous
Bbobb

Re : Déplacer fichiers vers repertoire

Salut,

le code que tu as récupéré te satisfait si je comprends bien ça sert à rien de refaire la cuisine alors,

il suffit juste de supprimer les fichiers xls

l'instruction kill devrait faire l'affaire :supprime tous les fichiers xls du dossier "Mondossier"

kill "C:\Mondossier\*.XLS"

A+++