begin process at 2012 02 04 13:02:28
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

VBScript

 > AGENDA

AGENDA


 Information sur la source

Note :
6 / 10 - par 3 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBScript Classé sous :agenda, vbs Niveau :Débutant Date de création :30/11/2005 Vu :12 420
Auteur : inatendu911

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

c mon 2eme script il sagit d'un agenda basic et simple d'utilisation .
dons le code est si dessous
Ps: dites moi se que vous en pensez .merci salut
mon mail inatendu911@voila.fr

Source

  • v=vbCrLf
  • While fin<>vbYes
  • som=InputBox ("taper"&v&"1 pour installer Agenda"&v&"2 pour creer une fiche"&v&"3 pour consulter une fiche"&v&"4 pour sauvegarder vos fiches"&v&"5 pour ajouter une info a une fiche" )
  • Select Case som
  • Case"1"
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • If (fso.FolderExists("c:\agenda")) Then
  • djins =MsgBox( "agenda est deja installer")
  • End If
  • On Error Resume Next
  • Dim fso
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • Set f = fso.CreateFolder("c:\agenda")
  • Case"2"
  • nf=InputBox ("entre le nom de la fiche")
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • If (fso.FileExists("c:\agenda\"&nf&".txt" )) Then
  • msg =MsgBox( nf & " existe vous allez remplacer la fiche"&vbCrLf&"Continuer ?",vbYesNo)
  • End If
  • If msg=vbNo Then
  • nf=InputBox ("entre le nom de la fiche")
  • End If
  • na=InputBox ("entre nom")
  • ta=InputBox ("entre n°de tel ")
  • aa=InputBox ("entre adresse ")
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • Set Myile = fso.CreateTextFile("c:\agenda\"&nf&".txt", True)
  • Myile.WriteLine(na&" "&ta&" "&aa)
  • Myile.Close
  • Case"3"
  • cf=InputBox ("entre le nom de la fiche")
  • Const cForReading=1
  • Set fso = CreateObject("Scripting.FileSystemObject")
  • Set Myl = fso.OpenTextFile("c:\agenda\"&cf&".txt",cForReading)
  • C=Mid(Myl.ReadLine,1,200)
  • MsgBox(C)
  • Case "4"
  • sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")
  • If (fso.FolderExists(sauv)) Then
  • MsgBox("agenda sera sauvegarder dans le repertoire"&sauv)
  • Set sag = fso.GetFolder("c:\agenda")
  • sag.Copy (sauv)
  • MsgBox("agenda a eter sauvegarder")
  • Else
  • sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")
  • End If
  • Case "5"
  • toto=InputBox("entre le nom de la fiche")
  • tata=InputBox("entre les nouvelle infos")
  • Const ForReading = 1, ForWriting = 2
  • Dim objfso
  • Set objfso = CreateObject("Scripting.FileSystemObject")
  • Set f = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForReading, True)
  • za= Mid(f.ReadLine,1,200)
  • f.Close
  • Dim com(2)
  • com(1)=za
  • com(2)=tata
  • Set ff = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForWriting, True)
  • ff.Write com(1)&" "&com(2)
  • ff.Close
  • End Select
  • fin=MsgBox("quitter ?",vbYesNo)
  • Wend 
v=vbCrLf                    

While fin<>vbYes       
som=InputBox ("taper"&v&"1 pour installer Agenda"&v&"2 pour creer une fiche"&v&"3 pour consulter une fiche"&v&"4 pour sauvegarder vos fiches"&v&"5 pour ajouter une info a une fiche"  )      
    Select Case som
    Case"1"  
     Set fso = CreateObject("Scripting.FileSystemObject")      
     If (fso.FolderExists("c:\agenda")) Then                            
djins =MsgBox( "agenda est deja installer")                   
     End If    
On Error Resume Next                               
     Dim fso                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
      Set fso = CreateObject("Scripting.FileSystemObject")                                                   
      Set f = fso.CreateFolder("c:\agenda")                 

     Case"2"
                 
     nf=InputBox ("entre le nom de la fiche")
    
             
Set fso = CreateObject("Scripting.FileSystemObject") 
If (fso.FileExists("c:\agenda\"&nf&".txt" )) Then              
msg =MsgBox( nf & " existe vous allez remplacer la fiche"&vbCrLf&"Continuer ?",vbYesNo)  
End If    
     
If msg=vbNo Then                       
     nf=InputBox ("entre le nom de la fiche")
End If        

      na=InputBox ("entre nom")         
     ta=InputBox ("entre n°de tel ")
     aa=InputBox ("entre adresse ")

     Set fso = CreateObject("Scripting.FileSystemObject")
     Set Myile = fso.CreateTextFile("c:\agenda\"&nf&".txt", True)  
     Myile.WriteLine(na&"  "&ta&"  "&aa)       
     Myile.Close  

      Case"3"
      cf=InputBox ("entre le nom de la fiche")   

      Const cForReading=1
                                                  
      Set fso = CreateObject("Scripting.FileSystemObject")      
      Set Myl = fso.OpenTextFile("c:\agenda\"&cf&".txt",cForReading)                                                                                                                          
      C=Mid(Myl.ReadLine,1,200)                                             
      MsgBox(C) 
       
Case "4"
sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")


If (fso.FolderExists(sauv)) Then 
MsgBox("agenda sera sauvegarder dans le repertoire"&sauv)

Set sag = fso.GetFolder("c:\agenda")                                                                                      
sag.Copy (sauv)  
MsgBox("agenda a eter sauvegarder")

Else   
sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")
End If    

Case "5"       
toto=InputBox("entre le nom de la fiche")        
tata=InputBox("entre les nouvelle infos")

         Const ForReading = 1, ForWriting = 2   
   Dim objfso        
Set objfso = CreateObject("Scripting.FileSystemObject")             
   Set f = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForReading, True)               
  za= Mid(f.ReadLine,1,200)                                                          
 f.Close 

Dim com(2)
com(1)=za
com(2)=tata     


   Set ff = objfso.OpenTextFile("c:\agenda\"&toto&".txt", ForWriting, True)          
   ff.Write com(1)&"  "&com(2)       
   ff.Close                


       End Select

fin=MsgBox("quitter ?",vbYesNo)                  
Wend



 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [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

Source avec Zip Source avec une capture AGENDA ET ÉVÈNEMENT par Sinsitrus
Source avec Zip Source .NET (Dotnet) REPORTING SIMPLIFIÉ par deuxmains
Source avec Zip RECHERCHER TOUS LES FICHIERS DONT L'EXTENSION EST *.VBS ET L... par hackoo
Source avec Zip Source avec une capture YMTOOLS - AGENDA - BACKUP ET AUTRES OUTILS par ym_trainz
Source avec Zip Source .NET (Dotnet) AGENDA FICHIER ANNUEL par mimiZanzan

Commentaires et avis

Commentaire de niicoola le 24/03/2006 22:56:47

tu ne peux pas mettre un zip pour qu'on puisse la telecharger ?

Commentaire de tuneserapasmonnom le 22/08/2006 15:20:59

un zip serai mieux

Commentaire de tariktarik le 02/11/2006 02:14:00

un zip pour la voir stp

Commentaire de tatger le 16/03/2009 11:39:53 10/10

bah c'est simple de l'utiliser sans zip ... a part sa , il est génial ton agenda !!

Commentaire de jahhouda le 10/04/2009 13:34:23

stp le  zip

Commentaire de papoow le 19/07/2010 11:36:04

Bonjour & Bravo inatendu911
Bonjour le Forum :)

Merci pour cet Agenda "basic", j'aime beaucoup, excellente idée, en le testant j'ai rencontré un souci, c'est pourquoi, je te propose une modif, dans l'esprit de ton travail. :)
Une option pour la sauvegarde :)

Remplacer :
    Else
     sauv=InputBox ("Entre le chemin de destination de la sauvegarde"&vbCrLf&"ex: c:\seb\")
     End If
Par :
     Else
     msg =MsgBox( sauv &vbCrLf& " n'existe pas, voulez vous le créer ? "&vbCrLf&"Continuer ?",vbYesNo)
     End If
     If msg=vbYes Then
    
     Set f = fso.CreateFolder(sauv)
     Set sag = fso.GetFolder("c:\Agenda")
     sag.Copy (sauv)
     MsgBox("agenda a été sauvegarder")

     End If

Cordialement Papoow :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Ajout d'un agenda de groupe dans Outlook en VBS [ par ZGPW35 ] Bonjour, Dans Outlook 2003, je souhaite créer un nouvel agenda de groupes à partir d'un VB script.  merci d'avance [VBS] Date et Heure (format) [ par parker13 ] Bonjour, Actuellement pour obtenir la date et l'heure j'utilise la commande "NOW". Exemple de résultat : 06/03/2007 09:29:53 Autrement dit, le format Script VBS uniquement pour télécharger un fichier [ par jeffrey17 ] Bonjour j'espère que quelqu'un pourra m'aider à résoudre ce petit problème.En effet, j'aimerais avoir/savoir quelle code mettre dans une ficher .vbs p Editeur évolué pour VBS [ par PurBonheur ] Bonjour, je recherche un programme qui permet :    - d' écrire des scriptes VBS, avec intéllisense intégré...    - de debbuger les scriptes, exécution vbs sur outlook : comment effacer le contenu d'un champ? [ par mitsh666 ] Bonjour,Je travail sur Microsoft Outlook 2003. Je réaliser un formulaire de type "rendez-vous" pour la réservation de salles (on en a une centaine). J Script VBS qui interroge SMS 2003 [ par parker13 ] Bonjour, Je souhaite écrire un script VBS qui affiche les publications associées à un client SMS 2003. Autrement dit, ce qui apparaît dans l’onglet VBS Ajouter un "Contact" AD dans un groupe [ par lordvenom ] Bonsoir à tous,Après une longue recherche sur le forum je n'ai rien trouvé à ce sujet alors je me décide. Changer Extensions [ par lilsgabbg ] bonjour à tous, hello world,je voudrais savoir comment puis-je convertir un fichier par exemple en vbs (fichier.vbs) en fichier texte (fichier.txt) ou Convertir un vbs en vbe ou en exe [ par kerberos69 ] bonjour,je ne suis pas developpeur, juste utilisateur plus ou moins regulier du scripting.pour les besoins de mon entreprise, je dois executer un scri Script en vbs [ par isaakhetter ] Bonjour,je suis debutant en programmation . je commecne a developper ne VBS de microsoft.je cherche a ecrire en vbs l'equivalent de la commande net se


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Renewable Energy is Within Reach
Photo Sunflower Farmland With Blue Cloudy Sky 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,889 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)