Amigo,

 

O código está perfeito....

Qto a copiar com o arquivo em Uso, ai vc está falando das diretivas de segurança do Windows... sinto muito, mas acho q vc nao vai conseguir isso nao...

Talvez tenha alguma API que derrube o processo que está usando o arquivo (eu nao conheço), mas copiar arquivo em uso é PROIBIDO pelo Windows...

 

Flw!

bem... meio atrasadinhu, mas pode servir ainda pra outros usuários..

eu uso essa função para copiar arquivos e ele copia memso que o arquivo esteja sendo executado, pois copia byte a byte... uso direto para fazer backup de base de dados que num podem ficar sem estar sendo acessadas... em caso de não entender, ou precisar d emais informações eh soh entrar em contato valew!!

obs.. a variavel Pgb eh para o caso de querer exibir uma progress bar ok?

 

Function CopiarArquivo(Origem As String, Destino As String, Pgb As Control) As Long
  Static Buff As String
  Dim Teste As Long, stMsg As String
  Dim Fsize As Long
  Dim Tam As Integer
  Dim F1 As Integer
  Dim F2 As Integer
  Const BufSize = 1024
  On Error GoTo fileErro
  F1 = FreeFile
  Open Origem For Binary As F1
  F2 = FreeFile
  Open Destino For Binary As F2
  Fsize = LOF(F1)
  Teste = Fsize - LOF(F2)
  Pgb.Max = Fsize + 1
  Do
    If Teste < BufSize Then
      Tam = Teste
    Else
      Tam = BufSize
    End If
    Buff = String(Tam, " ")
    Get F1, , Buff
    Put F2, , Buff
    Teste = Fsize - LOF(F2)
    Pgb.Value = (Pgb.Max - Int(Pgb.Max * Teste / Fsize))
    DoEvents
  Loop Until Teste = 0
  Close F1
  Close F2
  CopiarArquivo = Fsize
  'Pgb.Value = 0
  Exit Function
fileErro:
    stMsg = "Não foi possivel concluir a copia do arquivo " _
    & Origem & Chr(13) & Chr(13) & "Verifique o seguinte Erro: " _
    & Err.number & " " & Err.Description
  MsgBox stMsg, vbCritical, "Erro ao copiar arquivo."
  Msg = "Erro -> " & Err.Description
    MsgBox Msg
    fcWriteLog (Msg)
  Close F1
  Close F2
End Function

A

Tentei uma vez e deu certo qdo criei um *.bat, veja ae:

 

Private Sub CommandButton1_Click()
Dim f As Long
Dim sTexto As String

f = FreeFile

 

Open "D:ARQTESTE.BAT" For Output As #f
sTexto = "copy arquivo.txt arquivo2.txt"
Print #f, sTexto
Close #f

Shell "D:ARQTESTE.BAT"

kill "D:ARQTESTE.BAT"
End Sub

at+