1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| ' Sauvegarde du fichier texte
Sub btSauver_OnClick
Const ForReading = 1, ForWriting = 2
Dim oFso, f
Dim stFichier
stfichier = inFichier.value
if stFichier ="" then
Msgbox "Sélectionner le fichier a traiter",48,"Sélectionner le fichier a traiter"
exit sub
end if
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile(stFichier, ForWriting)
f.write txtFichier.value
f.close
MsgBox "Le Fichier " & inFichier.value & " a été bien Sauvgardé !",64,"Sauvegarde de Fichier !"
set f = Nothing
set oFso = Nothing
end sub |
Partager