Dim fso, f, ChemiSource,CheminDest
CheminSource="d:"
CheminDest="l:\BNF"
Sub Lance(Appli) 
	Set WshShell = WScript.CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFile(Appli)
'Traduction d'un nom long en nom court
	CheminCourt=f.ShortPath   

	
	return=WshShell.Run (CheminCourt,1,TRUE)
End Sub
Titre="M.E.L.H. - Saint-Denis"
Message="Vous êtes sur le point de mettre à jour la base BNF."&chr(10)&"Voulez-vous continuer ?"
set fso=CreateObject("Scripting.FileSystemObject")
Msg=msgBox(Message,52,Titre)
If (Msg=6) Then
Message="Voulez-vous recopier les deux CDROM BNF ?"
Msg=msgBox(Message,52,Titre)
If (Msg=6) Then
	fd=fso.DeleteFolder(CheminDest&"\*",true)
	fd=fso.CreateFolder(CheminDest&"\disc1")
	fd=fso.CreateFolder(CheminDest&"\disc2")
	Message="Insérez le disque 1"
	Msg=msgBox(Message,49,Titre)
	If (Msg=1) Then
		'd = fso.GetDriveName("d:")
		'While not d.isready
		'Wend
		fd=fso.CopyFile(CheminSource&"\*",CheminDest&"\disc1",true)
		fd=fso.CopyFolder(CheminSource&"\*",CheminDest&"\disc1",true)
		Message="Disque 1 copié."&chr(10)&"Insérez le disque 2"
		Msg=msgBox(Message,49,Titre)
		fd=fso.CopyFile(CheminSource&"\*",CheminDest&"\disc2",true)
		fd=fso.CopyFolder(CheminSource&"\*",CheminDest&"\disc2",true)
		Msg=MsgBox("Recopie terminée."&chr(10)&"Veuillez retirer le disque 2.",0,Titre)		
	End if

END IF
Lance "l:\bnf\disc2\setup.exe"	
ELSE
Msg=MsgBox("Mise à jour annulée.")	
End If