Discussion :

[Sgt KräN]

bonjour a tous
bon moi je suis ici car je me suis mi a VBS cet aprem vers 14h+/- et j'ai toujours pas décrocher, je suis en train de m'arracher les cheveux et de me retourner le cerveau (du moins ce qu'il en reste...)

mon souci c'est que je voudrai automatiser une procédure pour récupéré des fichiers sur un réseau ( jusque là sa va..), il me faut les copier sur une clé, les suprimé du reseau (la c'est toujours bon), et il me faut en refaire une autre copie dans un autre endroit du reseau, le souci pour la dernière manip c'est que c'est une sauvegarde "longue durée" sur le DD du serveur et que pour l'instan,t avec la méthode manuelle les dossiers été classé en fonction de la date et de l'heure de récupération... et ça je sais pas le faire autre que manuellement...
help !!

bon je sais que mes explication sont pas très claire alor je vais tenté un shema d'arboréscence pour me faire comprendre:
(z:\) => mon lecteur réseau
(f:\) => ma clé usb

shema avant la manip:

z:\ |emis\|054XXX415(dans chacun de ces fichiers il y a des commandes.xml)
.....|recu
.....|svg\ |054XXX415\08-01-08-08h30\commande.xml

le dossier svg est un dossi de sauvegarde, le dossier emis c les commandes qu'on doi transféré, et 552XXX320 correspond a une désignation de fournisseur.
la dernière ligne est un exemple d'une sauvegarde de commande pour le fournisseur 054XXX415 qu'on a envoyé le 08 janvier 2008 a 8h30...

Et c'est ICI mon problème car avec VBS quand on fait: Name = Now
parce que les séparateur de la date sont des / et que ce symbole n'est pas utilisable pour des nom de dossiers....
ensuite quand je fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim un,deu
Set un = CreateObject("Scripting.FileSystemObject")
Set deu=un.CreateFolder ("z:\svg\054XXX415\newfolder")

je voudrai savoir se que je doi taper comme commande pour appeller mon dossier yy-mm-dd-HHhmm

dd= day
mm= month
yy= year
HH= heure (le h minuscule je le ve comme séparatif)
mm= minutes

si quelqu'un a une réponse ou meme un début de ligne de code je le remerci d'avance, car moi la j'avance plus....


P.S: après vendredi midi je risque de plus avoir le net, donc de pa pouvoir répondre d'un petit momen, c pas que je vous ai oublier, je pourrai juste pas venir, merci de votre compréhention....

[SfJ5Rpw8]

utilise ces fonctions que tu cite ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Wscript.echo day(now) & "-" & month(now) & "-" & Year(now) & "-" &  hour(now) & "h" & minute(now)

[RadPAT]

Salut,

tu as la commande replace qui remplace un caractere par un autre. Exemple :

si tu veux conserver l'espace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
K = Replace(Left(Replace(Now, "/", "-"), 16), ":", "h")
Msgbox K

ou la même chose sans espace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
K = Replace(Replace(Left(Replace(Now, "/", "-"), 16), ":", "h"), " ","")
Msgbox K

ou la même chose avec un tiret à la place de l'espace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
K = Replace(Replace(Left(Replace(Now, "/", "-"), 16), ":", "h"), " ","-")
Msgbox K

A++

[Sgt KräN]

merci de vos réponses vous m'avez deja bien filé un coups de main...
mais il me reste un souci, c'est pour utilisé la variable K (ce qu'elle représente en fait) comme nom de dossier...
pour l'instant j'ai sa mais sa marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
K = Replace(Replace(Left(Replace(Now, "/", "-"), 16), ":", "h"), " ","-")
Dim oFSO,oFld 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("f:\K")
Msgbox K

sa non plus sa marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
K = Replace(Replace(Left(Replace(Now, "/", "-"), 16), ":", "h"), " ","-")
Dim oFSO,oFld 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("f:\& K")
Msgbox K

mais c'est pour vous donnez un aperçu de ce que j'aimerai comme résultat...
merci encore...

P.S: j'ai mis le Msgbox en fin de code meme si sa sert a rien car au moins je sais que l'execution du script est terminé

édit: j'ai parler avec un collègue qui fait du php et il me dit que se que je ve faire c'est de la concaténnation, je sais pas si sa pourra vous aider...

[RadPAT]

Attention,

K est une variable qui réécrit "Now" en prennant les 16 caractères de gauche de Now, puis remplace les "/" par des "-", puis premplace ":" par "h". K pourrait aussi bien s'appeler toto par exemple.
Donc au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld=oFSO.CreateFolder ("f:\& K")

essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld=oFSO.CreateFolder ("f:\" & K & )

le caractère & sert à concatener.

A++

[ced600]

essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld=oFSO.CreateFolder ("f:\" & K & )

le caractère & sert à concatener.

Je pense qu'il devrait plutot essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld=oFSO.CreateFolder ("f:\" & K)

[Sgt KräN]

MERCI !!
avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oFld=oFSO.CreateFolder ("f:\" & K)

sa marche nikel

parcontre sa marque: 10-01-2008-16h41
au lieu de 08-01-10-16h41
il faut que j'utilise les commande day, month... séparément pour changer le format? ou ya une commande qui permet de le faire d'un coup?
comment je peu avoir l'année uniquement sur 2 chiffre au lieu de 4 ???

merci encore vous m'avez deja super aider...