Création automatique d'un répertoire portant pour nom une date

Question

Bonjour à tous,
programmateur plus que novice, mais surtout technicien système et réseau en fin de formation, je cherche à réaliser un VBS permettant de copier le contenu d'un répertoire dans un nouveau répertoire portant un nom du type AnnéeencoursMoisprécédentlemoisencours (au format AAMM). Ya kelkun ki sé ?
Merci beaucoup !

cs_Crazyht · Answer

An = Year (Now())
Mois = Mouth (Now())-1
NomRep = "Repertoire_" & format (An, "00") & Format (Mois,"00")

Voila NomRep contient "Repertoire_0205" si tu l'execute aujourd'hui :)

Pour la creation du repertoire voir l'objet : FileSystemObject

A++

Crazyht :)

cs_titeuf · Answer

pour le creer apres tu 
dim fso as new filesystemobject
'prendre scripting runtime en reference
fso.createfolder Nomrep

voila tout

cs_Thib · Answer

Pour créer un repertoire : Mkdir "c:\répertoire"

cs_rene38 · Answer

Et pourquoi pas tout simplement 
Dim AA as String, MM as String,M as Integer,A as IntegerMM Mid$(Date$,4,2) : M Val(MM) - 1AA Right$(Date$, 2) : A Val(AA)

If M =01 Then 'si on est en janvier
     MM="12"    ' décembre
     A = A - 1    ' de l'année précédente
     AA = Trim$(Str$(A))
End If 
MkDir AA & MM

' Ajouter entre MkDir et AA le chemin du genre
"C:\Mes Documents" & AA & MM
ou App.Path & AA & MM
etc ...

Création automatique d'un répertoire portant pour nom une date

4 réponses

Discussions similaires