Try this approach. It creates a new folder in the destination with the same name as the source folder, copies its contents, and deletes the source folder (essentially the same thing as moving it). The inputs remain Folder_Path and Destination.
Success = True
Message = ""
Try
If Not Folder_Path.EndsWith("\") Then
Folder_Path &= "\"
End If
Dim newDirectory As String = System.IO.Path.Combine(Destination, Path.GetFileName(Path.GetDirectoryName(Folder_Path)))
If Not (Directory.Exists(newDirectory)) Then
Directory.CreateDirectory(newDirectory)
End If
Microsoft.VisualBasic.FileIO.FileSystem.CopyDirectory(Folder_Path, newDirectory)
System.IO.Directory.Delete(Folder_Path, True)
Catch e As Exception
Success = False
Message = e.Message
End Try
Ensure that you include the System.IO namespace in the Code Options of your object. The Code Options can be found by double-clicking the description box on the Initialize Page/Action and choosing the appropriate tab.