Visual Basic - Error al Copiar carpetas con sus subcarpetas a otro directorio

hola, necesito sus ayudas porfavor, me sale el siguente error: Additional information: Exception from HRESULT: 0x800A0046 (CTL_E_PERMISSIONDENIED).
necesito copiar la las multiples carpetas que se encuentra en un directorio y pegarlo a otro.
al copiarlo normalmente fuera de la aplicacion, no me sale ningun error.

Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy.Click

Dim FileToCopy As String
Dim NewCopy As String
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
FileToCopy = txtOrigen.Text.Trim & "\" & Trim$(ListBox1.Items(i))
NewCopy = (txtDestino.Text) ' & "\" & Trim$(ListBox1.Items(i))

Dim Obj_Fso As Object
Obj_Fso = CreateObject("Scripting.FileSystemObject")
Obj_Fso.CopyFolder(FileToCopy, NewCopy) '''''''''''''''''''''''''''''''''''''''''''''''''
Obj_Fso = Nothing ''''''''''''''''''''''''''''''''''''''''''''''''''


Next i
MsgBox("Copiado")

End Sub

Debes hacer una funcion recursiva que haga ese trabajo este es su seudo codigo:

funcion CopiarArchivos( String Origen , String Destino )


Fin funcion

Saludos.

NO CACHO MUCHO LO QUE DICES, ME PUEDES CORREGIR EL CODIGO PORFAVOR, SE AGRADECERIA MUCHO

NO CACHO :( ME LO ORDENAS MI CODIGO PORFAVOR.. ES URGENTE