Sauver fichier .Txt

Question

Bonjour!
Comment savoir si mon fichier Existe
qelque soi son nom , nouveau ou existant,  le message apparait

voici mon code
Private Sub O_Enregistrer_Click()
'ouvre la boite de dialog
O_sauve.FileName = ""


O_sauve.ShowSave
If O_sauve.FileName <> "" Then 'si le fichier existe
      resultat = MsgBox("   le fichier existe d&#233;j&#224; voulez- vous le remplacer ?   ", vbYesNo)
      If resultat = 6 Then
Open O_sauve.FileName For Output As #1
        Print #1, O_FenetreText 'ecrit le textbox dans le fichier
    Close #1
    End If
        End If
End Sub


merci
claude

Gobillot · Answer

comme tu as mis le nom a blanc avant O_sauve.FileName restera &#224; blanc si l'utilisateur a fait annuler

donc 1er test le nom est &#224; blanc --> l'utilisateur a fait annuler

2&#233;me test le nom n'est pas &#224; blanc --> if Dir$(O_sauve.FileName) <> "" le fichier existe d&#233;j&#224;.



autre solution, c'est de positionner le flag et laisser faire les choses:

    CDial.Flags = cdlOFNOverwritePrompt


Daniel

apaulux · Answer

http://multibases.site.voila.fr
FNum = FreeFile
Open O_sauve.FileName  For Output As #FNum
Print #FNum, O_FenetreText 'ecrit le textbox dans le fichier
Close #FNum

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

papounez · Answer

merci 
mais debutant vb6
il me faudrait plus d'expliquation
et un exemple merci

Gobillot · Answer

remplace CDial par O_sauve









Private Sub Sauver()

    CDial.InitDir = "c:	on chemin"   'si n&#233;cessaire

    CDial.Filter = "fichier texte(*.txt)|*.txt"

    CDial.FilterIndex = 1

    CDial.CancelError = True   'permet d'annuler

    CDial.Flags = cdlOFNOverwritePrompt Or cdlOFNNoReadOnlyReturn

    On Error GoTo Error

    CDial.ShowSave

    Open CDial.FileName For Binary As #1

    Put #1, , O_FenetreText 'ecrit le textbox dans le fichier

    Close #1

    Exit Sub

Error:

    If Err = 32755 Then Exit Sub

    MsgBox Err.Description & " (" & Err & ")", vbExclamation, "Save Erreur"

End Sub

Daniel

papounez · Answer

Merci
exactement ce qui me faut
mais  une erreur
Can't get or put an objet rfeerence variable ou une variable
of user-defini type containing an object reference
montexbox = O_FenetreText
Commondiallog = Cdial

Gobillot · Answer

si O_FenetreText c'est le nom du TextBox faut mettre:

O_FenetreText.Text
c'est la propri&#233;t&#233; par d&#233;faut mais il le prend comme objet !


Daniel

papounez · Answer

Ok super
ca marche
il suffit de rien pour que ca enerve
Ps:  le message peut il etre personnalise
merci

Gobillot · Answer

quel message ?

quand le fichier existe d&#233;j&#224; c'est le syst&#232;me qui averti l'utilisateur &#224; cause de la pr&#233;sence du flag dlOFNOverwritePrompt





sinon tu l'enl&#232;ves et tu met ton message toi m&#234;me:



 if Dir$(CDial.FileName) <> "" then
     resultat = MsgBox("   le
fichier existe d&#233;j&#224; voulez- vous le remplacer ?   ", vbYesNo)

      If resultat = vbNo Then Exit Sub

   End If



'si le fichier existe vaut mieux ouvrir en Output et non pas en Binary

    Open CDial.FileName For Output As #1

    Print #1,  O_FenetreText.Text

     Close #1

    Exit Sub



Error:

'celui l&#224; c'est quand l'utilisateur fait annuler

If Err = 32755 Then 

   MsgBox "Vous avez taper annuler"

   Exit Sub

   End If
'l'autre derri&#232;re ne doit jamais arriver


Daniel

papounez · Answer

Ok super
Exellente Explication
pour le Fonctionnement
merci

Sauver fichier .Txt

9 réponses

Discussions similaires