gli algoritmi sono in VBS like
	
	Midori


algoritmo semplice, non ricorsivo nelle subdirectory
l'algoritmo e' errato nel caso ci siano delle directory.

Prima fase: Update dei files
SourcePath
DestPath

for each file in sourcePath do
	fileName = File.FileName 'nome del file senza path.
	if existFile(destPath & fileName) then
		compare files
	else
		copyFile(File.PathName, destPath & Filename)
	end if
next file



Seconda fase: eliminazione dei files non piu' esistenti

for each file in DestPath do
	fileName = File.FileName 'nome del file senza path.
	if not existFile(SourcePath & fileName) then
		DeleteFile(file.PathName)
	end if
next file



algoritmi ricorsivo, uno aggiorna e l'altro sincronizza:


sub CompareDirs(SourceDir,DestDir)

' prima fase
	For Each File in SourceDir do
		if file.type=directory then
			if DirectoryExist(DestDir & file.FileName) then
				CompareDirs(SourceDir & file.Filename,DestDir & file.FileName)
			else
				MkDir(DestDir & file.Filename)
				CompareDirs(SourceDir & file.Filename,DestDir & file.FileName)
		else
			fileName = File.FileName 'nome del file senza path.
			if existFile(destDir & fileName) then
				CompareFiles
			else
				copyFile(File.PathName, destDir & Filename)
			end if
		end if
	next File

end sub

sub SyncDirs(SourceDir, DestDir)

'seconda fase
	For Each File in DestDir do
		if file.type=directory then
			if not DirectoryExist(SourceDir & file.FileName) then
				deleteDir(SourceDir & file.FileName)
			else
				SyncDirs(SourceDir & file.Filename,DestDir & file.FileName)
		else
			fileName = File.FileName 'nome del file senza path.
			if Not existFile(SourceDir & fileName) then
				deleteFile(SourceDir & fileName)
			end if
		end if
	next File

end sub