ezequiel
28 de Enero del 2004

Hola que tal estoy tratando de crear un boton para copiar los archivos de
una carpeta SELECCIONADA del control treeview1 a otra carpeta con el mismo
nombre de la seleccionada dentro de una carpeta llamada servidor o sea
c:servidor"carpetaseleccionada".
Pero cada vez que preiono el boton el depurador se detiene en la linea que dice

fso = New ActiveXObject ("scripting.filesystemobject")

diciendo que se esperaba fin de la instruccion , alguien puede ver cual es el error




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 = "c: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.CopyFile "nombre", "destino"
Set nuevonodo = TreeView2.Nodes.Add(primero, tvwNext, , nodoagregado)


Exit Sub
Else
MsgBox "no se puede concretar la operacion"

End If

End Sub