viko01

xabi respondió: La sintaxis debe ser: Dim origen, Destino origen = "a:\visual\winnt256.bmp" Destino = "a:\visual2\winnt256.bmp" FileCopy origen, Destino Es decir debes darle el nombre que tendrá en el destino.

orande respondió: Para probar, pon un botón con este código: Private Sub Command1_Click() If fbImprimirTreeView(TreeView1.Nodes("A0"), Empty) Then MsgBox "Correcto" End If End Sub Private Function fbImprimirTreeView(ByVal miNodo As MSComctlLib.Node, ByVal Margen As...

kieleze respondió: Existe la carpeta visual2... A ver prueba con este código Dim fso, Archivo Set fso = CreateObject("Scripting.FileSystemObject") crea el archivo Set Archivo = fso.GetFile(origen) 'asigna el archivo Archivo. Copy (destino) Espero que sirva... sino...

kieleze respondió: = "a:\ visual\winnt256.bmp" el problema esta en el espacio que dejas entre a:\ y visual Con eso ya no te saldrá ese error =)