FileCopy.. Que tengo mal..¿?

TEngo cuatro controles en el form
Drive1
Dir1 ' Dirlistbox
File1
Command1
Los cuales los uso para copiar un archivo a un directorio especifico que sale de la unidad G:... Más la variable que sale del texto de un control de texto text2. Hasta ahí bien .. Pero no me funciona.. Que sera lo que tengo mal..¿? Por favor lo podría revisar y decirme.. El error que me sale es "Error 52" Nombre o numero de archivo incorrecto.. !
Este es el código.. !
'==================================
Private Sub Command1_Click()
Dim Archorigen As String
Dim ArchDestino As String
Dim NombreOperacion As String
'
NombreOperacion = frmResultados.Text2.Text & "\"
Archorigen = Dir1.Path & "\" & File1.FileName
ArchDestino = "G:\FOTOS_VIDEOS_OPERACIONES\" & NombreOperacion ' Se define el nombre del archivo de origen.
FileCopy Archorigen, ArchDestino ' Se copia el archivo de origen en el archivo de destino.
MsgBox "Se copio el archivo" & Archorigen & "a " & archodestino & "satisfactoriamente", vbInformation
End Sub
'=================

1 respuesta

Respuesta
1
Incluye el nombre del archivo en la variable ArchDestino:
ArchDestino = "G:\FOTOS_VIDEOS_OPERACIONES\" & NombreOperacion & File1.FileName

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas