Aide pour nom de fichier aléatoire...

Messages postés
6
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
8 décembre 2002
-
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
-
voilà, j'aimerais créer un nom de fichier aleatoirement, enfin pas vraiment puisque son nom sera la date et l'heure (a l'instant ou je cliquerais sur enregistrer...) . Mais, j'ai un prob, je n'y arrive pas :
voici les commandes que j'utilises :

Dim nom As String
Dim fichier As String

Private Sub Command1_Click()
nom = Date & "-" & Time & ".dat"
fichier = "c:\windows" & nom
Open fichier For Append As #5
Print #5, bonjour
Close #5
End Sub


mais quand je clique sur le bouton 1, il me dit :
"erreur d'execution, fichier introuvable" en me surlignant "Open fichier For Append As #5" en jaune... A mon avis c que le fichier n'est pas crée...

Qqun aurait une idée pour remedier à mon prob ?
(le nom de fichier doit etre composé de la date et l'heure...)

Merci à tous...

2 réponses

Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004

euh, je suis pas sûr, essaie
nomdufichier= "c:\windows" & Date & "-" & Time & ".dat"
Open nomdufichier for Append As #5
Print #5, "bonjour"
Close #5
@+
Vbsupernul (tout le monde le sait maintenant... c'est malin :sad) )
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
enleve les caracteres speciaux:

Dim NomDuFichier As String
NomDuFichier = "c:" & Format(Date, "ddmmyyyy") & "-" & Format(Time, "hhmmss") & ".dat"
Open NomDuFichier For Append As #5
Print #5, "bonjour"
Close #5