un mini-editeur de texte

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