Copia de archivos

Mariano
09 de Febrero del 2004
Hola que tal tengo el siguiente codoigo que lo que trata de hacer es copiar los archivos de la carpeta seleccionada
de un control treeview hacia la carpeta creada en "form2" que esta ubiabada dentro de la carpeta servidor
pero por alguna razon los archivos no se copian alguien puede ver la razon .


Private Sub CmdAgregar_Click()
Dim destino As String
Dim nombre As String
Dim nodoagregado As String
Dim primero As String
Dim fso As FileSystemObject
Dim nombrecarpeta As String
Dim nuevonodo As Node
Set fso = CreateObject("Scripting.FileSystemObject")

unidad = "c:"
nombrecarpeta = unidad & TreeView1.SelectedItem.Text
primero = Form2!txtNombre.Text
destino = App.Path & "servidor" & primero
nodoagregado = TreeView1.SelectedItem.Text
nombre = unidad & TreeView1.SelectedItem.Text & "*.*"
If fso.FolderExists(nombre) Then
'fso.CreateFolder (destino)
'fso.CopyFolder "nombrecarpeta ", "Destino"
'fso = new ActiveXObject("Scripting.FileSystemObject")
'fso = CreateObject("Scripting.FileSystemObject")

fso.CopyFile "nombre", "destino"
Set nuevonodo = TreeView2.Nodes.Add(primero, tvwNext, , nodoagregado)


'Exit Sub
Else
'MsgBox "no se puede concretar la operacion"
'fso.CreateFolder (nombre)
' TreeView2.Refresh ' o en su defecto volver a recorrer todos los nodos para cargarlo de nuevo con la capeta creada
End If

End Sub