Try
  For Each file As IO.DirectoryInfo In test.GetDirectories("Test")
    My.Computer.Network.UploadFile(file.FullName, sFTPHost & file.Name, _
      sUserName, sPassword, True, 500, FileIO.UICancelOption.DoNothing)
  Next
Catch ex As Exception
  MsgBox(ex)
End Try