Discussion :

[evan_2008]

bonjour

je doi ecrire un programme qui créer un fichier text.

voici mon programme :

Code :

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

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?

[SfJ5Rpw8]

c'est surtout que le caractère : est interdit dans un nom de fichier

[ced600]

Tout à fait normal.

Ton filedate contient une heure sous cette forme HH:MM:SS, hors windows interdit le caractère ':' dans le nom de fichier.
Donc remplace le : par un _ ou un - par exemple.

Edit : Griller

[evan_2008]

Je vous remerci pour vos réponse
Je me suis rendu compte hier soir du fait que windows n'accepte ce caractère sur les répertoires et les fichiers.

merci