copia

ezequiel
29 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


sdemingo
29 de Enero del 2004
Declaralo así, pero creo que ya te lo mandé en algún ejemplo......

Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")