RAPPEL POUR NE PAS OUBLIER D'ALER MANGER vbs, at, shell, fichiers, création, Source N°45795 Visual Basic, VB6, VB.NET, VB 2005, VB

Information sur la source

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é: 5 486 / 201

Auteur : l0r3nz1

Ecrire un message privé

Note :

7,00 / 10

1
2
3
4
5
6
7
8
9
10

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

Pour les "Membres Club", vous pouvez 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

RECHERCHE RECURSIVE DANS BASES ACCESS (ET SQL SERVEUR)

TRANSFERT DONNÉES ACCESS

CONNEXION BASES DE DONNÉES

TACHE PLANIFIÉES (PETITE BLAGUE)

MES TEST ET MES RECHERCHES SUR WMI, PROCESSUS ET INTERNET

Toutes les sources de l0r3nz1

Sources de la même categorie

DÉPLACER ET PARAMÉTRER LA BARRE DES TACHES / LE MENU DÉMARRE... par MS1969

MERLIN LE MAGICIEN AVEC BEAUCOUP DE COMMANDES ET DE FONCTION... par hackoo

ADRESSE IP LOCALE ET ADRESSE IP PUBLIQUE par hackoo

CRÉATION D'UNE LISTE DE TOUTES LES APPLICATIONS QUI DÉMARRE ... par hackoo

RECHERCHER DANS VOTRE BASE DE REGISTRE par hackoo

Toutes les sources de la catégorie VBScript

Sources en rapport avec celle ci

COMPARAISON DE DOSSIERS, FICHIERS ET TEXTE par RicoNuch

FACTURATION ET GESTION DE VENTES ARTICLES par mimiZanzan

MOTEUR DE RECHERCHE DE FICHIERS par johndave

CRÉATION/CANCEL MEETING SUR CALENDRIER D'UN AUTRE QUE CELUI ... par mitsh666

GÉNÉRATEUR DE FICHIER par denpx

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

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