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

Life is soft - evento anual de software empresarial
   
Vista:

Error al Copiar carpetas con sus subcarpetas a otro directorio

Publicado por Diego 91.lillo.dl@gmail.com (5 intervenciones) el 09/01/2015 15:57:27
errior

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error al Copiar carpetas con sus subcarpetas a otro directorio

Publicado por Jose (3 intervenciones) el 11/01/2015 15:32:52
Debes hacer una funcion recursiva que haga ese trabajo este es su seudo codigo:

funcion CopiarArchivos( String Origen , String Destino )
Lista = ObtenerListaArchivos(Origen)

Para cada archivo en Lista
Si archivo es carpeta Entonces
// Si es una carpeta la creamos y copiamos su contenido
NuevoDestino = Origen + archivo
Crear_carpeta( NuevoDestino )
CopiarArchivos( archivo, NuevoDestino )
Sino
// Si es un archivo simplemente lo copio a destino
Copia( archivo, Destino )
Fin Si

Fin Para
Fin funcion

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Error al Copiar carpetas con sus subcarpetas a otro directorio

Publicado por Diego (5 intervenciones) el 13/01/2015 20:08:59
NO CACHO MUCHO LO QUE DICES, ME PUEDES CORREGIR EL CODIGO PORFAVOR, SE AGRADECERIA MUCHO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error al Copiar carpetas con sus subcarpetas a otro directorio

Publicado por Diego (5 intervenciones) el 14/01/2015 13:19:03
NO CACHO :( ME LO ORDENAS MI CODIGO PORFAVOR.. ES URGENTE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar