Pb création fichier texteRésolu

Question

Dans mon programme je crée un fichier texte dans lequel j'écris
le nom du fichier est "date heure.log"

voici comment je fais ça :

Dim nom As String
Dim fichier As String
Dim heure As String

heure = Replace(Time$, ":", "-")
nom = Date$ & " " & heure & ".log"

fichier = "c:	emp" & nom
nomfichier = nom
Open fichier For Append As #1

jusque là tout fonctionne, mais je voudrais modifier un peu pour que le fichier ne soit plus stocher dans c:	emp, mais je voudrais le créer dans le répertoire actuelle du programme \ sauvegarde

pour le répertoire actuelle c'est App.Path.
Et si le répertoire sauvegarde n'existe pas, le programme le créer

Quelqu'un peut il m'aider à modifier mon bout de code pour faire celà ?

j'ai essayé de modifier la ligne Open fichier For Append As #1 en ajoutant App.Path mais je n'y suis pas arrivé, alors si quelqu'un peut m'aider, merci d'avance

a+

cs_rene38 · Accepted Answer

Tu es sûr de cette ligne ?

[Code]fichier =App.Path & "\sauvegarde" & nom/Code]

econs · Answer

If Dir(App.Path & "\sauvegarde")<>"" Then
Mkdir App.Path & "\sauvegarde"
End If

Si le répertoire n'existe pas, je le crée...

Manu

econs · Answer

JE RECOMMENCE ...

If Dir(App.Path & "\sauvegarde") = "" Then
Mkdir App.Path & "\sauvegarde"
End If

Si le répertoire n'existe pas, je le crée...

Manu

cs_rene38 · Answer

Bonjour
If Dir(App.Path & "\sauvegarde", vbDirectory) = ""

Minikisscool · Answer

Merci pour les réponse, mais je l'intègre comment dans mon bout de programme ?
à la place de fichier = "c:	emp" & nom

Merci de votre aide

cs_rene38 · Answer

Dim nom As String
Dim fichier As String
Dim heure As String
If Dir(App.Path & "\sauvegarde", vbDirectory) = "" Then
   Mkdir App.Path & "\sauvegarde"
End If

heure = Replace(Time$, ":", "-")
nom = Date$ & " " & heure & ".log"

fichier =App.Path & "\sauvegarde" & nom
nomfichier = nom
Open fichier For Append As #1

Minikisscool · Answer

Soucis ça ne marche pas

Le répertoire sauvegarde est bien crée si il n'existe pas

mais lorsque le fichier est crée, il n'est pas mis dans le répertoire sauvegarde

au final, il crée un fichier comme celui ci
sauvegarde09-15-2004 10-48-26.log
dans le répertoire de travail mais pas dans le rep sauvegarde

Merci

Minikisscool · Answer

C'est bon, il manquait bien le \ après sauvegarde

tout pour moi, ça fonctionne parfaitement et j'ai appris quelque chose aujourd'hui

merci bcp :-)

Pb création fichier texte

8 réponses

Discussions similaires