FileCopy.. Que tengo mal.. ??
Publicado por GROVAL (225 intervenciones) el 18/06/2003 19:27:27
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:...... mas la variable que sale del texto de un control de texto text2. Hasta ahi bien .. pero no me funciona.. Que sera lo que tengo mal.. ?? Por favor lo podria revisar y decirme.. El error que me sale es "Error 52" Nombre o numero de archivo incorrecto.. !!
Este es el codigo.. !!
'==================================
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
'=================
Muchas gracias.. !!
Drive1
dir1 ' Dirlistbox
file1
command1
los cuales los uso para copiar un archivo a un directorio especifico que sale de la unidad G:...... mas la variable que sale del texto de un control de texto text2. Hasta ahi bien .. pero no me funciona.. Que sera lo que tengo mal.. ?? Por favor lo podria revisar y decirme.. El error que me sale es "Error 52" Nombre o numero de archivo incorrecto.. !!
Este es el codigo.. !!
'==================================
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
'=================
Muchas gracias.. !!
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0