aide pour nom de fichier aléatoire...

Question

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

Vbsupernul · Answer

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

BasicInstinct · Answer

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

Aide pour nom de fichier aléatoire...

2 réponses

Discussions similaires