createtextfile (variable)+ date
bonjour
je doi ecrire un programme qui créer un fichier text.
voici mon programme :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Dim NomSerie, oFSO, oFld
Dim oFld3
Set oFSO = CreateObject("Scripting.FileSystemObject")
dim fileDate, fileDate1
Dim chaineDate, dateCourante, timeCourant
Dim jour, mois, annee, heures, minutes, secondes
Dim stRep 'Nom du répertoire à parcourir
'obtenir date courante
dateCourante = date()
timeCourant = Time()
chaineDate = dateCourante & " " & timeCourant
'extraction des données de la date
jour = Cint(Mid(chaineDate,1,2))
mois = Cint(Mid(chaineDate,4,2))
annee = Cint(Mid(chaineDate,7,4))
'extraction des données de l'heure
heures = Cint(Mid(chaineDate,12,2))
minutes = Cint(Mid(chaineDate,15,2))
secondes = Cint(Mid(chaineDate,18,2))
fileDate = jour & mois & annee & "_" & heures & ":" & minutes & ":" & secondes
fileDate = cstr(fileDate)
filePath = "c:\testunivar\Log\" & fileDate & ".txt"
Set Ftxt = oFSO.createTextFile(filePath) 'true=ecrase |
Le problème réside dans la variable fileDate qu'il ne considère pas comme chaine.
quand je l'enlève ça marche bien.
vous avez une solution?
