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

cs_moustachu · Answer

Il faut que tu formates ton Date et Time : comme tu les utilises ils ont le format "date/heure", il faut que tu les formates en "string" un truc comme ça

Format(Now, "ddmmyyyy" + "-" + "hhmmss")

Attention aussi aux caractères interdits dans les noms de fichiers

cs_DARKSIDIOUS · Answer

Essaye plutôt ca :

nom = Date(Now) & "_" & Time(Now)

Car le caractère "-" est un caractère interdit pour les noms de fichier.

DARK SIDIOUS

cs_moustachu · Answer

Ouais, il me semblait aussi, j'ai écris trop vite

BasicInstinct · Answer

le - nest pas un caractere interdit.
par contre, le dossier C:\windows n'existe peut etre pas (si tu es sous NT par Exemple)

Aide pour nom de fichier aléatoire...

4 réponses

Discussions similaires