function scan_Folder(ByVal foldernameA, ByVal foldernameB)
On Error Resume next
 
	set folder = fso.GetFolder(foldernameA)
 
	'Dateien kopieren
	if(copyFiles = true) Then
		For Each file In folder.Files
			newFile = foldernameB & "\"& file.Name
			Call fso.CopyFile(file,newFile, overWrite)
			copyedFiles = copyedFiles + 1
		next
	end if
 
	' Alle Unterordner
	For Each subfolder In folder.SubFolders
		scannedFolders = scannedFolders + 1
		if(NOT fso.FolderExists(foldernameB & "\" & subfolder.name)) then 
			fso.CreateFolder(foldernameB & "\" & subfolder.name)
			newFolders = newFolders + 1
		end if		
 
		'Unterordner scannen
		if(scanSubFolders = true) Then
			Call scan_Folder(foldernameA &"\"& subfolder.name,foldernameB & "\" & _
  subfolder.name)
		end if
	Next
end function

#############
#www.ragesoft.de#
#############