Creer repertoire a partir de la date de fichier

Question

Bonjour,

J'ai un repertoire avec plusieurs photos. Je souhaite ranger mes photos par date. Pour ce faire, il faudrait créer un repertoire par date et déplacer les photo correpondantes à cette date dans le repertoire.

exemple :
photo1.jpg     10/02/2005
photo2.jpg     10/02/2005
photo3.jpg     12/02/2005

il faudrait pouvoir creer un repertoire 20050210 et placer dedans photo1 et photo 2. Creer un repertoire 20050212 et placer photo3 dedans.

Merci de votre aide.

lionelbre · Answer

pour creer le repertoire :

MkDir ("c:\mysaveppath" + Format(Now, "dd_mm_yyyy"))



puis tu copy avec un filecopy,

call FileCopy(Source, Destination)



 et ca devrait le faire ....je pense ...normalement


www.be-dot.com

lionelbre · Answer

ca marche aussi avec un format(madate,"ddmmyyyy"), ca correspond mieux a ta demande
www.be-dot.com

acornuez · Answer

Ce n'est pas vraiment ça. Il faut scanner le repertoire qui contient les photos Recuperer la date de creation du premier fichier. Creer automatiquement le repertoire, s'il n'existe pas, avec le format aaaammjj. Deplacer la photo dans le repertoire correspondant. Recommencer avec la photo suivante

Zlub · Answer

Salut,

B'hein tu as trouv&#233; la marche &#224; suivre .. o&#249; ton probl&#233;me alors ?

++

Zlub

cs_CanisLupus · Answer

Salut, vb6 ou vb.net ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

acornuez · Answer

Je souhaiterais le faire en vb script

Merci

cs_CanisLupus · Answer

Dans ce cas,
vbs &#233;tant extr&#234;ment lent (langage interpr&#233;t&#233;) vois du c&#244;t&#233; de filesystemobject (tr&#232;s lent aussi mais &#231;a ne fera pas beaucoup de diff&#233;rence). Cherche sur le site, il y a plein de sources avec &#231;a.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Creer repertoire a partir de la date de fichier

7 réponses

Discussions similaires