Rappel pour ne pas oublier d'aler manger

Télécharger le projet
Commenter

Description

utlise la manipulation de fichier, et du shell avec la commande bat, j'ai fais ça ya longtemps depuis ce que j'ai developpé et trop specifique pour vous interesser

Source / Exemple : 


'------------------------------------------------------------------------------------------------------------------------------------------------------------
'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

Conclusion :


z en avez besoin que si vous traveillez trop. j'ai mieux mais rien d'exeptionnel qui n'a pas ete decouvert par les as de vbfrrance.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (l0r3nz1)