- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'créer un fichier a la base
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public Sub makArchive()
- dim aaa
- dim bbb
- set aaa = CreateObject("scripting.FileSystemObject")
- If not(aaa.folderExists("C:\notes")) Then set bbb = aaa.createFolder("C:\notes")
- End Sub
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- cALL makArchive
-
- dim rapl
- dim com
- rapl=inputbox("note","rediger note")
-
- '-----------------------------------------------------------------------------------------------------------------------------------------------------------
- 'annonce en fichier texte, a utiliser ou non si on prefere a une annonce en message box
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- dim f
- dim rappel
- set f=CreateObject("Scripting.FileSystemObject")
- set rappel = f.createTextFile("C:\notes\rappel.txt" ,true)
- rappel.writeline rapl
- rappel.close
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'systeme d'archivage
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- dim farch
- dim rappelarch
- dim contenu
- dim contient
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'provisoirement on memorise et reecrit les archive
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- set farch=CreateObject("Scripting.FileSystemObject")
- contenu = ""
- if farch.fileExists("C:\notes\Archivesrappel.txt") then
- set contient= farch.openTextFile("C:\notes\Archivesrappel.txt")
- contenu=contient.readall
- contient.close
- end if
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- set rappelarch = farch.createTextFile("C:\notes\Archivesrappel.txt")
- rappelarch.writeline contenu
- rappelarch.write "the " & date & " at " & time & " -> " & rapl
- rappelarch.close
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- dim heur
- heur = inputbox("cequoileur","cequoiquecestleur")
-
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'fichier vbs qui affichera le message
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- dim fifi
- dim outil
- set outil=CreateObject("Scripting.FileSystemObject")
- set fifi = outil.createTextFile("C:\notes\rappel.vbs" ,true)
- com = "msgbox" & " " & trema & " " & rapl & trema
- fifi.writeline com
- fifi.close
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'le fichier rappel.bat lancera a l'heure voulue soit le fichier txt (pg +simple) soit le fichier vbs
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- dim fileAct
- dim obj
- set obj=CreateObject("Scripting.FileSystemObject")
- set fileAct = obj.createTextFile("C:\notes\rappel.bat" ,true)
- 'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.txt"
- com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.vbs"
- fileAct.writeline com
- fileAct.close
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- 'lance le tout via le fichier bat
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- dim executeur
- set executeur = wscript.createObject("Wscript.shell")
- executeur.run("C:\notes\rappel.bat")
- '------------------------------------------------------------------------------------------------------------------------------------------------------------
- public function trema
- trema = chr ("34")
- end function
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'créer un fichier a la base
'------------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub makArchive()
dim aaa
dim bbb
set aaa = CreateObject("scripting.FileSystemObject")
If not(aaa.folderExists("C:\notes")) Then set bbb = aaa.createFolder("C:\notes")
End Sub
'------------------------------------------------------------------------------------------------------------------------------------------------------------
cALL makArchive
dim rapl
dim com
rapl=inputbox("note","rediger note")
'-----------------------------------------------------------------------------------------------------------------------------------------------------------
'annonce en fichier texte, a utiliser ou non si on prefere a une annonce en message box
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim f
dim rappel
set f=CreateObject("Scripting.FileSystemObject")
set rappel = f.createTextFile("C:\notes\rappel.txt" ,true)
rappel.writeline rapl
rappel.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'systeme d'archivage
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim farch
dim rappelarch
dim contenu
dim contient
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'provisoirement on memorise et reecrit les archive
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set farch=CreateObject("Scripting.FileSystemObject")
contenu = ""
if farch.fileExists("C:\notes\Archivesrappel.txt") then
set contient= farch.openTextFile("C:\notes\Archivesrappel.txt")
contenu=contient.readall
contient.close
end if
'------------------------------------------------------------------------------------------------------------------------------------------------------------
set rappelarch = farch.createTextFile("C:\notes\Archivesrappel.txt")
rappelarch.writeline contenu
rappelarch.write "the " & date & " at " & time & " -> " & rapl
rappelarch.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim heur
heur = inputbox("cequoileur","cequoiquecestleur")
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'fichier vbs qui affichera le message
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fifi
dim outil
set outil=CreateObject("Scripting.FileSystemObject")
set fifi = outil.createTextFile("C:\notes\rappel.vbs" ,true)
com = "msgbox" & " " & trema & " " & rapl & trema
fifi.writeline com
fifi.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'le fichier rappel.bat lancera a l'heure voulue soit le fichier txt (pg +simple) soit le fichier vbs
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim fileAct
dim obj
set obj=CreateObject("Scripting.FileSystemObject")
set fileAct = obj.createTextFile("C:\notes\rappel.bat" ,true)
'com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.txt"
com = "At " & heur & " /INTERACTIVE" & " C:\notes\rappel.vbs"
fileAct.writeline com
fileAct.close
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------
'lance le tout via le fichier bat
'------------------------------------------------------------------------------------------------------------------------------------------------------------
dim executeur
set executeur = wscript.createObject("Wscript.shell")
executeur.run("C:\notes\rappel.bat")
'------------------------------------------------------------------------------------------------------------------------------------------------------------
public function trema
trema = chr ("34")
end function