COPIAR ARQUIVO ?
ESTOU USANDO : Private Declare Function CopyFile Lib [Ô]kernel32[Ô] Alias [Ô]CopyFileA[Ô] (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
E A FUNÇÃO :
Public Function APIFileCopy(src As String, dest As String, Optional FailIfDestExists As Boolean) As Boolean
Dim lRet As Long
lRet = CopyFile(src, dest, FailIfDestExists)
APIFileCopy = (lRet > 0)
End Function
SE O DIRETORIO ESTIVER VAZIO NÃO COPIA E SE TIVER QUALQUER ARQUIVO AI FUNCIONA ALGUEM PODE ME AJUDAR?
OBRIGADO
E A FUNÇÃO :
Public Function APIFileCopy(src As String, dest As String, Optional FailIfDestExists As Boolean) As Boolean
Dim lRet As Long
lRet = CopyFile(src, dest, FailIfDestExists)
APIFileCopy = (lRet > 0)
End Function
SE O DIRETORIO ESTIVER VAZIO NÃO COPIA E SE TIVER QUALQUER ARQUIVO AI FUNCIONA ALGUEM PODE ME AJUDAR?
OBRIGADO
não é bem isso é se a pasta para onde estou copiando o arquivo estiver vazia não copia agora se tiver algum arquivo já existente ai sim copia.
Tópico encerrado , respostas não são mais permitidas