Descripción de FileCopy
Copia un archivo de un directorio a otro.
Ejemplos simples de FileCopy
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Esto copiará el archivo "Test.txt" en "C: \" a la unidad D.
Si el archivo "Test.txt" no existe en "C: \", se producirá un error en tiempo de ejecución ’53’: No se encontró el archivo.
Sintaxis de FileCopy
En el Editor de VBA, puede escribir "FileCopy (" para ver la sintaxis de la instrucción FileCopy:
La declaración FileCopy contiene 2 argumentos:
Fuente: Nombre de cadena del archivo a copiar. Puede incluir ruta.
Destino: Expresión de cadena que especifica el nombre del archivo de destino. El destino puede incluir directorio o carpeta y unidad.
Ejemplos de la función FileCopy de Excel VBA
Pruebe con el siguiente código.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker como FileDialogDim dlgFileSaveAs como FileDialogDim strOrgFile como cadenaDim strTarFile como cadenaEstablecer dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsodlgFilePicker.ButtonName = "Copiar"dlgFilePicker.Title = "Seleccione un archivo para copiar"Si dlgFilePicker.Show = True EntoncesstrOrgFile = dlgFilePicker.SelectedItems (1)DemásSalir de SubTerminara siEstablecer dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Indique una carpeta y escriba un nombre de archivo".dlgFileSaveAs.ButtonName = "Pegar"Si dlgFileSaveAs.Show = True EntoncesstrTarFile = dlgFileSaveAs.SelectedItems (1)DemásSalir de SubTerminara siFileCopy strOrgFile, strTarFileEnd Sub |
Al ejecutarlo, se mostrará un cuadro de diálogo "Seleccione un archivo para copiar" al principio.
Luego, debe seleccionar un archivo para copiar.
Después de seleccionar un archivo, haga clic en el botón "Copiar".
Luego, mostrará un cuadro de diálogo "Por favor, indique una carpeta y escriba un nombre de archivo".
Debe seleccionar una carpeta de destino y escribir un nombre de archivo.
Después de eso, haga clic en el botón "Pegar".
Luego, el archivo de origen se copiará con la carpeta de destino y el nombre del archivo.
