ezequiel
30 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 presiono 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

dester
30 de Enero del 2004

yo si puedo pero como no soy el mas inteligente no te digo (ja ja)
Al señor tiene que responderle el mas inteligente ,

dester
30 de Enero del 2004

yo si puedo pero como no soy el mas inteligente no te digo (ja ja)
Al señor tiene que responderle el mas inteligente ,

reventador
30 de Enero del 2004

has probado a ponerlo asi?

Set fso = New ActiveXObject ("Scripting.FileSystemObject")

reventador
30 de Enero del 2004

Has probado a ponerlo tambien asi?

Set fso = New ActiveXObject