mdeg
Messages postés28Date d'inscriptionmercredi 31 mars 2010StatutMembreDernière intervention29 avril 2010
-
23 avril 2010 à 14:56
mdeg
Messages postés28Date d'inscriptionmercredi 31 mars 2010StatutMembreDernière intervention29 avril 2010
-
23 avril 2010 à 15:27
Bonjour,
Je souhaiterais faire apparaître la msgbox "Le fichier existe déja voulez vous le rempacer?" lors de l'enregistrment d'un fichier si le nom est déja utilisé.
Car en effet avec le commondialog, il écrase sans rien dire le fichier présent s'il porte le même nom que la fichier à enregistrer...
J'ai ce code là, mais la il me pose la question systèmatiquement (comme ça ça force l'utilisateur à vérifier), mais j'aimerai qu'il pose la question uniquement lorsqu'un fichier porte déja le même nom.
Private Sub CmdB_Exporter_Click()
With CommonDialog1
.DialogTitle = "selectionner un fichier" 'titre de la boite
.FileName = "*.txt" 'on recherche un fichier d'extension txt
.CancelError = False 'pour ne pas partir en erreur si on click sur annuler
.FilterIndex = 2
.flags = cdlOFNCreatePrompt And cdlOFNFileMustExist And cdlOFNOverwritePrompt
.ShowSave
End With
If CommonDialog1.FileName <> "" Then
reponse = MsgBox("Le fichier spécifié existe déja. Voulez-vous l'écraser?", vbYesNoCancel, "Nom de fichier déja existant")
If reponse = vbNo Then
CommonDialog1.ShowSave
End If
If reponse = vbCancel Then
Exit Sub
End If
If reponse = vbYes Then
GoTo Ecrire
End If
End If
Ecrire:
Open CommonDialog1.FileName For Output As #1
Avez-vous une idée, une solution??
Merci
A voir également:
Msgbox "Le fichier existe déja. Voulez vous le remplacer?"
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 23 avril 2010 à 15:14
Salut,
Il faut tester toi même la présence du fichier :
Public Function isExist(Byval fileName As String)
On Error Goto inexistant
if FileLen(fileName) >= 0 Then
Let isExist = True
end if
exit Function
inexistant:
End Function
______________________________________
AVANT de poster votre message, veuillez lire, comprendre, et appliquer notre réglement