alguien sabe de esto

ezequiel
30 de Enero del 2004
Enviado por ezequiel el día 28 de enero de 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



Thessen
30 de Enero del 2004
Si te digo la verdad, he probado tu código y no se porque no funciona. La única "solución" que te puedo dar es que en lugar de utilizar el objeto scripting.filesystemobject, copies los ficheros a través de la referencia VBA ( VBA.FileCopy )

sdemingo
30 de Enero del 2004
He visto cantidad de veces tu mensaje en este foro y no se si ya lograste arreglarlo...

Para que funcione, tu código debería quedar así:


Private Sub CmdAgregar_Click()

Dim destino As String
Dim nombre As String
Dim nodoagregado As String
Dim primero As String
Dim fso As Object
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.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



Salu2
sdemingo