Boton copiar vb6
Publicado por Bartitu (1 intervención) el 21/05/2010 08:33:26
Hola a todos,
antes de nada grácias... vereis,hace muy poco que estoy con vb6 y estoy intentando hacer el típico boton copiar con un comand button. he leído que sino quiero utilizar la api de win lo tengo que hacer mediante el componente commondialog. mi código es el siguiente :
Public Sub Command1_Click()
Dim Fichero, ArchDestino
Fichero = CommonDialog1.FileName 'Se define el nombre del archivo de origen.
CommonDialog1.Filter = "Archivos Jpg|*.jpg|Archivos Bmp|*.bmp|Archivos Gif|*.gif|Archivos de íconos|*.ico|Todos los Archivos|*.*"
CommonDialog1.ShowSave
FileCopy Fichero, ArchDestino
end sub
el error me lo hace en el filecopy ya que me dice que la ruta de acceso no es la correcta y no sé porque. me podría alguien decir donde está el fallo porfavor?
lo que quisiera es que se me abriera el CommonDialog1.ShowSave con el nombre del archivo por defecto a guardar ArchDestino y yo sólo le indicara la ruta. pero no hay manera
muchas grácias
antes de nada grácias... vereis,hace muy poco que estoy con vb6 y estoy intentando hacer el típico boton copiar con un comand button. he leído que sino quiero utilizar la api de win lo tengo que hacer mediante el componente commondialog. mi código es el siguiente :
Public Sub Command1_Click()
Dim Fichero, ArchDestino
Fichero = CommonDialog1.FileName 'Se define el nombre del archivo de origen.
CommonDialog1.Filter = "Archivos Jpg|*.jpg|Archivos Bmp|*.bmp|Archivos Gif|*.gif|Archivos de íconos|*.ico|Todos los Archivos|*.*"
CommonDialog1.ShowSave
FileCopy Fichero, ArchDestino
end sub
el error me lo hace en el filecopy ya que me dice que la ruta de acceso no es la correcta y no sé porque. me podría alguien decir donde está el fallo porfavor?
lo que quisiera es que se me abriera el CommonDialog1.ShowSave con el nombre del archivo por defecto a guardar ArchDestino y yo sólo le indicara la ruta. pero no hay manera
muchas grácias
Valora esta pregunta
0