[VB6]-Debutant empecher d ecraser un fichier.

**Slumpy** · 22/05/2006, 13h12

Coucou,

Alors voila, j ai crée une petite appli qui me fait quelques petits calculs et me sauve les resultats dans un fichier txt.

Je ne suis pas sur d'avoir utiliser la meilleure methode qu il soit, mais dans mon interface, l'utilisateur doit rentrer le nom (sans le chemin) du fichier de sortie. Ce qui fait que mon fichier sera ecrit automatiquement dans le dossier ou ce trouve l .exe

Mon probleme est le suivant, j'aimerais que lorsque je lance mes calculs et donc l'ecriture de mon fichier, on teste si ce fichier existe deja et si oui proposer de l'effacer ou non.

J ai essayé de trouver comment faire en cherchant sur le net, mais ils parlent de path ... de chemin ... bref,j ai pas trouvé comment solutionner ce probleme.

Mon bout de code d'ecriture du fichier est celui la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Open txtoutput + ".txt" For Output As #numbr
For i = 0 To txtnbrpoints - 1
Print #numbr, dblx(i), dblh(i), dblh2(i)
Next i
Close #numbr

(txtoutput est la variable textbox de mon appli contant le nom du fichier)

En fait mon probleme est que je ne sais pas comment ecrire le test d'existance de ce fichier

Merci pour votre aide.

**jmfmarques** · 22/05/2006, 13h17

l'utilisation de dir (aide en ligne) suffit pour celà .

**SfJ5Rpw8** · 22/05/2006, 13h19

ben dans l'ordre Dir , pour tester l'existence du fichier , msgBox pour le message et Kill pour la destruction...

**Megaxel** · 22/05/2006, 13h33

Salut,
jmf et bbil t'ont donné les meilleures façons de faire! (les plus simples).
Sinon, tu peux aussi utiliser les méthodes du FSO (File System Object), qui te permettent de réaliser les opérations les plus courantes sur les fichiers.
Jette-s-y un coup d'oeil à l'occasion, même si tu devrais t'en sortir avec "Dir( )"

**Slumpy** · 22/05/2006, 15h16

recoucou,

voila j ai enfin reussi a faire ce que je voulais.

Je le colle ici au cas ou ca interresserait quelqu un.

Merci a vous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Dir(txtoutput + ".txt") <> vbNullString Then
    Qe = MsgBox("The file " & txtoutput + ".txt" & " exists, do you want to overwrite it ?", vbOKCancel)
    If Qe = vbCancel Then
        GoTo 100
    End If
End If
 
'Store the results
Open txtoutput + ".txt" For Output As #numbr
    For i = 0 To txtnbrpoints - 1
        Print #numbr, dblx(i), dblh(i)
    Next i
Close #numbr
 
100 End Sub