Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 09 02:26:01

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

VBScript

> RAPPEL POUR NE PAS OUBLIER D'ALER MANGER

RAPPEL POUR NE PAS OUBLIER D'ALER MANGER

Information sur la source

Note :

7,00 / 10

Catégorie :VBScript Classé sous :vbs, at, shell, fichiers, création Niveau :Débutant Date de création :20/02/2008 Vu / téléchargé :7 204 / 249

Auteur : l0r3nz1

Ecrire un message privé

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

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

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

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.

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

rappel
- rappels.vbs 5 375 octets

Télécharger le zip

Sources du même auteur

COLORATION CONDITIONNELLE

ANALYSE AUTOMATISÉE

MISE À JOUR DE BASES DE DONÉES

OUTIL DE FORMATION

GEOLOCALISATION WGS84

Toutes les sources de l0r3nz1

Sources de la même categorie

RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo

[VBS] SPLASH SCREEN EN VBSCRIPT par hackoo

[VBS] GOOGLE EASTER EGGS par hackoo

FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo

[VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

Toutes les sources de la catégorie VBScript

Sources en rapport avec celle ci

RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo

FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo

SUIVI SCORES ET CLASSEMENTS SCRABBLE par mimiZanzan

ROUTINE DIR RÉCURSIVE POUR OBTENIR LA LISTE DE TOUS LES FICH... par kerisolde

SHELLVIEW EN VB.NET par Le Pivert

Commentaires et avis

Commentaire de klicksoe le 20/02/2008 11:52:13

Rhaaaaa, qu'est-ce que j'aime ce genre de logiciel...
ça sert à rien, mais c'est le petit plus qui manque à l'ordinateur :P

(même si j'ai déjà le planificateur de tache réglé sur 11h30 ^^)

Commentaire de VBGenesis le 20/02/2008 11:56:22

Salut!

Si tu veut un conseil, essaye de donner des noms plus spécifiques à tes variables :
dim aaa
dim bbb
Si tu fait ça, tu vas vite plus t'y retrouver dans le gros prog... éventuellement si tu veut une variable pour 2 lignes, appelle la tmp

Sinon moi pas besoin de ce genre de prog mon estomac se charge de me rappeler quand il faut manger ^^

Commentaire de djgab21 le 26/04/2008 15:35:13 7/10

J'adore ce genre de programme qui ne sert pas a grand chose !! mais c'est une bonne idée et un bon travail !! 7/10

PS : Il y a plus simple je crois
Re PS : Encore plus simple : ecouter si son estomac crie famine !! ;)

Commentaire de hackoo le 18/03/2009 13:27:50

'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")
'---------------------------------------------------------------------------
'on peut optimiser ton code sans passer par le fichier Batch ci-dessus par ces '4 lignes:
dim ws,command,Result
Set WS = CreateObject("WScript.Shell")
Command = "At " & heur & " C:\notes\rappel.vbs"
Result = Ws.Run(Command,0,True)

Commentaire de hackoo le 18/03/2009 13:27:52

Commentaire de l0r3nz1 le 26/03/2009 14:48:49

Trés juste, à l'époque j'avais juste essayé Ws.Run(Command) et à l'époque je trouvais ça intêressant de faire un programme qui en écrit un autre qui en lance un autre...

En tout cas merci pour ton commentaire constructif

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Help fichiers+shell!!!!!!!!!! [ par tom ] Comment faire pour inserer plusieurs fichiers (bmp et .bat) dans l'application VB5? existe t-il une limite? De plus ces fichiers seront par la suite e Création de fichiers .HPL [ par joe ] Comment créer des fichiers d'aide (.hlp)pour mes programmes en VB6 ?il existe un programme DOC2HLP qui convertit des fichiers Word en Hpl, mais il lui Urgent :Liste de fichiers cree par un shell [ par Ghs ] J'ai une sub comme cela :Private sub cmd1_click()'Appel d'un pragramme C qui cree plusieurs fichiers dans un dossier tempShell(PRGMEC.exe ...... ..... date de création de fichiers [ par brlanc ] débutant en programmationje voudrais extraire la date de création du fichier le plus récent d' un repertoirecomment fairemerçibl Télécharger et envoyer des fichiers sur un ftp en vbs [ par masterspirits ] Salut tlm. Je débute un peu en vbs, j'ai un ftp et j'aimerais pouvoir télécharger et uploader des fichiers dessus depuis un poste distant via le visua fonctionnement fichiers vbs [ par gremlins ] comment faire fonctionner un fichier vbs. si j'ai bien compris, ces fichiers sont des scripts qui necessites qqs dll pour fonctionner, quelles sont-el Amateur cherche les fichiers d'aide vbs [ par qed ] Bonjour,Je découvre ce site qui m'a l'air plutôt pas mal. Je suis un utilisateur amateur de VB ds Excel et Access (je suis actuaire, pas grand chose à Réinitialiser le shell [ par kroman ] salut!je cherche le moyen de réinitialiser le shell de windows (les icones, les type de fichiers ect) via un programme en vb.Mon programme ajoute ou m Probleme: SHELL via VB (Pour dezipper des fichiers) [ par fabieune ] BonjourG trouvé un moyen de dezipper en utilisant shell (fichier.bat)dedans je dezippe avec pkunzip mais il n'a pas le teemps ou en tout cas il ne dez recherche de fichiers sur tout le HD en VBS [ par TaZzMaNiak007 ] Bonjour,Je débute le vbs et il faut que je crée unscript qui recherche tous les fichiers c*.bat du dossier documents and settings pour les référencer

Nos sponsors

Derniers Blogs

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

Forum

VB6 + GRAPHVIZ par nouirayosra

REMPLIR UN COMBOBOX AVEC LE CONTENU D'UNE TABLE par souriant

RE : COLLAGE D'IMAGE DANS EXCEL DEPUIS LE PRESSE-PAPIER EN VBA par silencer_

RE : LIST GENERICS par NHenry

RE : LIST GENERICS par JLuc01

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011