COPIAR ARQUIVO E APAGAR A ORIGEM EM SEGUIDA

FNBRAULINO 07/07/2004 15:17:07
#32641
Alguém sabe como é que faz, para copiar um arquivo de uma pasta para outra,
e em seguida apagar o arquivo de origem.

Brigadão
USUARIO.EXCLUIDOS 07/07/2004 15:34:12
#32644 Resposta escolhida
FNBraulino:

Faça:

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long


Private Sub Qualquer()

entrada = "C\..." 'Caminho do arquivo de entrada
saida = "C:\..." 'Caminho do arquivo de saida

CopyFile entrada, saida, 0

Kill entrada

End Sub
USUARIO.EXCLUIDOS 07/07/2004 15:56:16
#32647
Rafael:

é lógico que pode, também.

Esta é uma forma um pouco mais didática. Além do mais utilizando uma DLL (API), vc. pode controlar se o arquivo de saída já existe (regravar, avisar, etc.) o que já fica um pouco mais trabalhoso com o comando Name (a única possíbilidade neste caso é o On Error Goto...

Mas fica aí mais uma sugestão.
Tópico encerrado , respostas não são mais permitidas
Voltar