VB Script: move-copy Folders and Subfolders

Hello experts,

I have a “Infolder” which contains sub folder:
Subf1
Sub2
Sub3
....

Each sub folder Contain a subfolder named "inconsistency-data" and xls files (it also contains other folders and files)

I would like to

Set a DesFolder
Create if they don't exist and

Subf1
Sub2
Sub3
....
 And copy just the subfolder "inconsistency-data" with all xls files if xls files already exist, the script should overwrite it.

Logs / script requirements:
1-Log file should be generated at InFolder and named as following "log-transfer-file"
2-Infolder should be defined as should be always the same in which is located the vbscript (Currentdir variable will be appreciate)
3-If Desfolder doesn't exist log output should  be: Now & Desfolder doesn't exist
4-If one of the Subfolder doesn't have the sub-subfolder "inconsistency-data" log output should Now Folder(Path) doesn't contains the sub-sub folder "inconsistency-data"
5-If one of inconsistency-data" folder doesn’t contains " log output should Now Folder(Path) & “inconsistency-data” is empty
6-If condition 3,4,5 are false logoutput should Now “SUCCESS: folders and files have been properly transferred”