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
-------------------------------
Réponse au message :
-------------------------------
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
)
-------------------------------
Réponse au message :
-------------------------------
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...