Bonjour a tous  
 
Je ne connais pas le VBs, je commence a mettre le bout du nez dedans . Merci de me guider.
 
Mon probleme  
 
InputBox("Nom :",chemin, Year(Date()) & "" & Day(Date()) & "" & Month(Date()) & "_" & Hour(Time()) & "" & Minute(Time()) )
Cela donne par exemple  2007910_99    pour le 10/09/2007 a 09h09
 
Comment argumenter pour que cela done  070910_0909
Merci d'avance

Il te faut utiliser la fonction Format$() qui permet de garder les zéros non significatifs entre autres.
Par exemple : Format$(Hour(Time()), "00" ), renverra 09 dans ton cas.
Et Format$(Year(Date()); "yy" ), renverra 07

InputBox("Nom :",chemin, Format$(Year(Date()); "yy" ) & "" & Day(Date()) & "" & Month(Date()) & "_" & Hour(Time()) & "" & Minute(Time()) )
et
InputBox("Nom:",chemin, Format$(Year(Date()) & "" & Day(Date()) & "" & Month(Date()) & "_" & Hour(Time()) & "" & Minute(Time()) ); "yyddmm" )
 
cela fonctionne pas

Dans   http://fr.wikibooks.org/wiki/Programmation_VBscript    
 
On peut voir dans Format de date :
vbLongDate  1  Date complète    
 
Cet argument correspond t-il à ce que je cherche ? Comment l'utilise t on ?

fonctionne.
Mais toi tu as mis un point-virgule dans ta formule avec le "yy" et ça plante effectivement.
Et cette formule ne formate pas les heures et les minutes.

Merci Tegu
 
J'ai trouvé une reponse
http://www.vbfrance.com/infomsg_VB [...] 98825.aspx
 
Function Pad2(Str)
   If Len(Str) = 1 Then
       Pad2 = "0" & Str
   Else
       Pad2 = Str
   End If
End Function
 
Function FormatTri(vsDate)
 FormatTri = Pad2(Right(Year(vsDate), 2)) & _
             Pad2(Month(vsDate)) & _
             Pad2(Day(vsDate)) & _
                 "_" & _
             Pad2(Hour(vsDate)) & _
             Pad2(Minute(vsDate)) & _
             Pad2(Second(vsDate))
End Function
 
FormatTri(Now)

Sérieusement, j'espère que tu vas utiliser Format$() au lieu de ce... truc que tu nous montres, qui réinvente la roue, en moins bien.
Renseigne-toi aussi sur les fonctions Space$() et String$() (pas le type de données, la fonction).

Oki je prend note de ton conseil, je vais continuer a chercher car meme avec la virgule cela fonctionne pas..
 
Maintenant de decouvre tout juste ...  le VBS comme le batch c'est juste pour comblé les manques de MS et des logiciels que j utilise (repeter toujours la meme manip... )
 
Copier et dater du clic droit / menu contextuel MsXp

Mea culpa.
Il semblerait que la fonction Format$() ne soit pas dispo telle quelle en VBS, contrairement à VB6 et VBA (ce qui est une ânerie sans nom de plus à mettre à l'actif de MS).
Et les fonctions FormatCurrency(), FormatDateTime(), FormatNumber(), DatePart(), etc., ne me semblent pas plus adaptées.
Space() et String() (sans le $) existent cependant, mais ça revient au... truc que tu as posté avant

 un autre probleme pour declarer les attributs du fichier  Destop.ini  
 
   code 800A01B6
          ne gere pas cette propriete ou cette methode: textnewfichier.Attributes
 
Mais cela fonctionne pour les attributs du repertoire ??  
 

 voila reglé :
 

 
Voila mais je ne comprend pas pourquoi je suis obligé de passer par (folder & "\desktop.ini" )  
Comment peut on mettre une "variable(nomfichier)"  a la place de  & "\desktop.ini"  ...je ne trouve pas.
 
merci