commonDialog-guardar
Publicado por holi (25 intervenciones) el 04/05/2006 13:32:18
Hola,
Tengo un pequeño problema con el CommonDialog, inicialmente puedo cargar el archivo en un text os pongo el codigo
Private Sub Command6_Click()
CommonDialog1.ShowOpen
Text15.Text = CommonDialog1.FileName
End Sub
lo que quiero hacer es que ese archivo (ejemplo: perico.xls) guardarlo en otro directorio, pero aqui ya me pierdo
pongo este codigo
Private Sub Command7_Click()
Dim ArchivoGuardar As String
Dim carpetadestino As String
ArchivoGuardar = CommonDialog1.FileName
carpetadestino = "c:\esborrar"
FileCopy ArchivoGuardar, carpetadestino
End Sub
no me funciona he probado tambien en vez de commondialog poner el text15.text y no hay forma
¿que estoy haciendo mal?
gràcias
Tengo un pequeño problema con el CommonDialog, inicialmente puedo cargar el archivo en un text os pongo el codigo
Private Sub Command6_Click()
CommonDialog1.ShowOpen
Text15.Text = CommonDialog1.FileName
End Sub
lo que quiero hacer es que ese archivo (ejemplo: perico.xls) guardarlo en otro directorio, pero aqui ya me pierdo
pongo este codigo
Private Sub Command7_Click()
Dim ArchivoGuardar As String
Dim carpetadestino As String
ArchivoGuardar = CommonDialog1.FileName
carpetadestino = "c:\esborrar"
FileCopy ArchivoGuardar, carpetadestino
End Sub
no me funciona he probado tambien en vez de commondialog poner el text15.text y no hay forma
¿que estoy haciendo mal?
gràcias
Valora esta pregunta


0