Moving Folders To Another Server

I am trying to achieve something which am doing very wrong, though the idea is present. I am trying to a move subfolders within a folder from the server the application is running to another server.

The code I have is shown below:
Private Sub MoveFiles()
Label2.Text = "F:New Folder (3)TestzippingutilityTestzippingutility1DailyCollection"
Label5.Text = "G:ippinyUtilityTestFolder"
Dim sFilename As String = ""
For Each myFile As String In IO.Directory.GetFiles(Label2.Text, "*.*")
[Code] .....

Problems:
1) myFile - reads files and NOT FOLDERS. This has to move folders instead.
2) ("fi.MoveTo ('destination')", - is not a sqlcommand and its not practically correct. If I ran it as it is, receive teh error message Sqlexception was unhandled. Incorrect syntax near 'destination'.