AGENDA

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