Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, Monfichier, NomFichier, Semaine, ChemiSource,CheminDest

Semaine=Array("lundi","mardi","mercredi","jeudi","vendredi","samedi","dimanche")
CheminSource="k:"
CheminDest="E:"
Titre="Lycée Jean Rostand - Villepinte"
Message1="La disquette n'a pas été étiquetée."&Chr(10)&"Si vous souhaitez le faire, inscrivez le jour."

Function FolderList(folderspec)
   Dim fso, f, f1, s, sf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set sf = f.SubFolders
   
   FolderList = sf
End Function

Sub TestDisquette

test=False


set fso=CreateObject("Scripting.FileSystemObject")
For Each jour in semaine
	If (fso.FileExists(CheminDest&"\"&jour&".txt")) Then 
		test=true
		Exit For
	End If
Next
	If (test=false) Then 
		Input=InputBox(Message1,Titre)
		If (Input="") Then 
			Exit Sub
		Else
			
			set Monfichier=fso.CreateTextFile(CheminDest&"\"&Lcase(Input)&".txt",true)
			Monfichier.close
			
		End If
	End If
End Sub

set fso=CreateObject("Scripting.FileSystemObject")
NomFichier=CheminDest&WeekDayName(WeekDay(Date))&".txt"
If not (fso.FolderExists(CheminDest&"Data")) Then f=fso.CreateFolder(CheminDest&"Data")
Message2=4
TestDisquette
While not (fso.FileExists(NomFichier)) and (Message2=4) 	
	Message2=MsgBox("Insérer la disquette du "&WeekDayName(WeekDay(Date)),21,Titre)
Wend

IF (Message2=4) Then
	fd=fso.DeleteFolder(CheminDest&"\*")
	fd=fso.CopyFolder(CheminSource&"\*",CheminDest)
	Msg=MsgBox("Sauvegarde terminée",0,Titre)
	set f=fso.OpenTextFile(NomFichier,ForAppending)
	f.Writeline(date&" "&time)
End If