Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1271 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS]Creer un fichier texte nommée avec la date

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS]Creer un fichier texte nommée avec la date

n°1121033
noprob
Posté le 15-06-2005 à 16:30:22  profilanswer
 

Bonjour,
je désire créer un fichier texte nommée avec la date du jour.
Apres une recherche je n'ai rien trouvé  et mon code a un bug:
 
On Error Resume Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime" )
 
For Each objItem in colItems
 dim annee    
 annee = objItem.Year
 
Next
 
'On vérifie que le fichier txt existe sinon on le creé.
On Error Resume Next
FileExists = ((GetAttr(DesktopPath&"\"&annee".txt" ) And vbDirectory) = 0) '<-chemin du fichier.txt
'Si le fichier existe c'est bon sinon le crée
If Not FileExists  Then
 Set MonFic = FSys.CreateTextFile(DesktopPath&"\"&annee".txt" )  
End If
 
L erreur se produit la ligne FileExistes = ......  
Quelle est la bonne syntaxe pour que le fichier se crée sans  bug ?? Merci d'avance  :)  

mood
Publicité
Posté le 15-06-2005 à 16:30:22  profilanswer
 

n°1121407
AlainTech
Pas trouvé? Cherche encore!
Posté le 16-06-2005 à 00:03:55  profilanswer
 

Je pense qu'il manque un &.

FileExists = ((GetAttr(DesktopPath & "\" & annee & ".txt" ) And vbDirectory) = 0)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBS]Creer un fichier texte nommée avec la date

 

Sujets relatifs
remplacer une chaine de caractère dans un fichierRecupérer la date de la veille
[VBA] [resolut]Standby Please... en excel[VBS]Récuperer date[Résolu]
afficher une date gmt en y ajoutant un décalage horaireprobleme appel date du jour dans BDD
Effecer caractere fichier texteprobleme .htaccess et fichier PHP
Plus de sujets relatifs à : [VBS]Creer un fichier texte nommée avec la date


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR