- 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