Thanks your your answer.
I had to modify the code slightly so that the contents of the 3 downloaded directories were stored in separate directories and not overwritten in the root.
Below is a modified function code
Jaroslav
Dim newFolders As IEnumerable(Of RemoteFileInfo) =
session.ListDirectory(sourceRemotePat).Files.Where(
Function(fileInfo) fileInfo.LastWriteTime >= Date.Now.AddDays(-3))
For Each newFolder In newFolders
If Not newFolder.FullName = "/." Then
session.GetFiles(newFolder.FullName, targetLocalPath & "\" & newFolder.FullName.Replace("/", "")).Check()
End If
Next