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
Dim newFolders As IEnumerable(Of RemoteFileInfo) =
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()