Descrição FileCopy
Copia um arquivo de um diretório para outro.
Exemplos simples de FileCopy
| 1 | FileCopy "C: \ Test.txt" "D: \" |
Isso copiará o arquivo “Test.txt” em “C: \” para a unidade D.
Se o arquivo “Test.txt” não existir em “C: \”, ocorrerá um erro em tempo de execução '53': Arquivo não encontrado.
Sintaxe FileCopy
No Editor VBA, você pode digitar “FileCopy (” para ver a sintaxe da declaração FileCopy:
A instrução FileCopy contém 2 argumentos:
Fonte: Nome da string do arquivo a ser copiado. Pode incluir o caminho.
Destino: Expressão de string que especifica o nome do arquivo de destino. O destino pode incluir diretório ou pasta e unidade.
Exemplos de função FileCopy do Excel VBA
Teste com o seguinte código.
| 123456789101112131415161718192021222324252627282930 | Sub FileCopy_Example ()Dim dlgFilePicker As FileDialogDim dlgFileSaveAs As FileDialogDim strOrgFile As StringDim strTarFile As StringDefina dlgFilePicker = Application.FileDialog (msoFileDialogFilePicker)dlgFilePicker.AllowMultiSelect = FalsedlgFilePicker.ButtonName = "Copiar"dlgFilePicker.Title = "Selecione um arquivo para copiar"Se dlgFilePicker.Show = True ThenstrOrgFile = dlgFilePicker.SelectedItems (1)OutroSair do SubFim seDefina dlgFileSaveAs = Application.FileDialog (msoFileDialogSaveAs)dlgFileSaveAs.Title = "Por favor, indique uma pasta e escreva um nome de arquivo."dlgFileSaveAs.ButtonName = "Colar"Se dlgFileSaveAs.Show = True entãostrTarFile = dlgFileSaveAs.SelectedItems (1)OutroSair do SubFim seFileCopy strOrgFile, strTarFileEnd Sub |
Executando-o, será exibida uma caixa de diálogo “Selecione um arquivo para copiar” primeiro.
Em seguida, você deve selecionar um arquivo para copiar.
Após selecionar um arquivo, clique no botão “Copiar”.
Em seguida, será exibida uma caixa de diálogo “Indique uma pasta e escreva um nome de arquivo”.
Você deve selecionar uma pasta de destino e escrever um nome de arquivo.
Em seguida, clique no botão “Colar”.
Em seguida, o arquivo de origem será copiado com a pasta de destino e o nome do arquivo.
