If File.IsDirectory(OldRoot&"/"& OldFolderName,MyFile)=True Then
CopyDir(OldRoot & "/" & OldFolderName, NewRoot & "/" & NewFolderName, MyFile, MyFile)
FoldersCopied = FoldersCopied+1
Else
File.Copy(OldRoot&"/"&OldFolderName,MyFile, NewRoot&"/"& NewFolderName,MyFile)
FilesCopied = FilesCopied+1
End If