Pbl Format Date VBs/wsh Attributes

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pbl Format Date VBs/wsh Attributes

rehties

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 :hello:

Message édité par rehties le 27-10-2007 à 09:50:18

Publicité

tegu

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

Message édité par tegu le 25-10-2007 à 10:09:38

rehties

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

rehties

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 ?

tegu

InputBox("Nom :",chemin, Format$(Year(Date()), "yy" ) & "" & Day(Date()) & "" & Month(Date()) & "_" & Hour(Time()) & "" & Minute(Time()) )

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.

rehties

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)

tegu

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).

rehties

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 ... :love: 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... :non: )

Copier et dater du clic droit / menu contextuel MsXp

Code :

Set args = Wscript.Arguments
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
nom=InputBox("Nom du sous-répertoire à créer :",chemin, ("Nom :",chemin, Format$(Year(Date()), "yy" ) & "" & Day(Date()) & "" & Month(Date()) & "_" & Hour(Time()) & "" & Minute(Time()) )
chemin=args(0)
If not fso.FolderExists(chemin) Then
If fso.FileExists(chemin) Then
chemin=fso.GetParentFolderName(chemin)
else wscript.quit
End If
End If
newdoss=fso.BuildPath(chemin,nom)
fso.CreateFolder(newdoss)
WScript.quit

tegu

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

Message édité par tegu le 25-10-2007 à 16:37:59

rehties

:pt1cable: un autre probleme pour declarer les attributs du fichier Destop.ini

:fou: code 800A01B6
ne gere pas cette propriete ou cette methode: textnewfichier.Attributes

Mais cela fonctionne pour les attributs du repertoire ??

Code :

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))
End Function
Set args = Wscript.Arguments
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
nomfichier=("Desktop.ini" )
nomrep=InputBox("Nom du sous-répertoire à créer :",chemin, FormatTri(Now))
chemin=args(0)
If not fso.FolderExists(chemin) Then
If fso.FileExists(chemin) Then
chemin=fso.GetParentFolderName(chemin)
else wscript.quit
End If
End If
newdoss=fso.BuildPath(chemin,nomrep)
set attrdoss=fso.CreateFolder(newdoss)
newfichier=fso.BuildPath(newdoss,nomfichier)
set textnewfichier=fso.CreateTextFile(newfichier)
textnewfichier.WriteLine ("[.ShellClassInfo]" )
textnewfichier.WriteLine ("IconFile=%SystemRoot%\Resources\Icones\glass\GlassIso.ico" )
textnewfichier.WriteLine ("IconIndex=0" )
attrdoss.Attributes=4
textnewfichier.Attributes=0
WScript.quit

Publicité

rehties

:hello: voila reglé :

Code :

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))
End Function
Set args = Wscript.Arguments
Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
nomfichier=("Desktop.ini" )
nomrep=InputBox("Nom du sous-répertoire à créer :",chemin, FormatTri(Now))
chemin=args(0)
If not fso.FolderExists(chemin) Then
If fso.FileExists(chemin) Then
chemin=fso.GetParentFolderName(chemin)
else wscript.quit
End If
End If
set folder=fso.CreateFolder(fso.BuildPath(chemin,nomrep))
folder.Attributes=4
set file=fso.CreateTextFile(fso.BuildPath(folder,nomfichier))
file.WriteLine ("[.ShellClassInfo]" )
file.WriteLine ("IconFile=%SystemRoot%\Resources\Icones\glass\GlassIso.ico" )
file.WriteLine ("IconIndex=0" )
If fSo.fileExists(folder & "\desktop.ini" ) then
Set file = fSo.GetFile(folder & "\desktop.ini" )
file.attributes = 2
End if
WScript.quit

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

merci

Message édité par rehties le 27-10-2007 à 09:46:53

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Pbl Format Date VBs/wsh Attributes

Sujets relatifs
Probleme de date chez client mais pas chez moi	[EXCEL2007] Problèmes de format (chiffre deviennent dates ; graphes)
[HTA/VBS] Utilisation d'un vbs externe et modification d'un champ	[VBS] message d'avertissement au lancement d'un exe dans un script vbs
%ErrorLevel% + WSF et/ou VBS	Récupération de la date d'un fichier en PHP ??
[VBS] taille d'un GetObject	[Mysql 5] Connaitre le microtime de la date courante
Manipulation de date : java.sql.Date & Calendar
Plus de sujets relatifs à : Pbl Format Date VBs/wsh Attributes

Page générée en 0.056 secondes