ACC: Declaração FileCopy não pode copiar abrir arquivos

Voltar para o início

Método 1 - chamar a função CopyFile() do API do Windows

1. Conclua a seção as etapas 1 a 4 do "passos para reproduzir o problema" mostrados posteriormente neste artigo.
2. Criar um módulo e digite as seguintes linhas na declaração seção:
   

         Option Explicit
   						

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

3. Digite o seguinte procedimento:
   

         Sub CopyFile(SourceFile As String, DestFile As String)
         '---------------------------------------------------------------
         ' PURPOSE: Copy a file on disk from one location to another.
         ' ACCEPTS: The name of the source file and destination file.
         ' RETURNS: Nothing
         '---------------------------------------------------------------
           Dim Result As Long
            If Dir(SourceFile) = "" Then
               MsgBox Chr(34) & SourceFile & Chr(34) & _
                  " is not valid file name."
            Else
               Result = apiCopyFile(SourceFile, DestFile, False)
            End If
         End Sub
   						

4. Para testar esse procedimento, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER:
   
   CopyFile "< caminho para Northwind.mdb >", "C:\Northwind.mdb"
   
   Observe que Northwind.mdb é copiado para a pasta raiz da unidade C, mesmo que ele seja aberto em outra instância do Microsoft Access.

Voltar para o início

Método 2 - chamar o comando copy do MS-DOS

1. Conclua a seção as etapas 1 a 4 do "passos para reproduzir o problema" mostrados posteriormente neste artigo.
2. Crie um módulo e o tipo a seguinte linha na declaração seção se não estiver já existe:
   

         Option Explicit
   						

3. Se você estiver usando o Microsoft Windows 95, digite o seguinte procedimento:
   

         Sub CopyFile(SourceFile As String, DestFile As String)
         '---------------------------------------------------------------
         ' PURPOSE: Copy a file on disk from one location to another.
         ' ACCEPTS: The name of the source file and destination file.
         ' RETURNS: Nothing
         '---------------------------------------------------------------
            Dim CopyString As String
            If Dir(SourceFile) = "" Then
               MsgBox Chr(34) & SourceFile & Chr(34) & _
                  " is not a valid file name."
            Else
               SourceFile = Chr(34) & SourceFile & Chr(34)
               DestFile = Chr(34) & DestFile & Chr(34)
               CopyString = "COMMAND.COM /C COPY " & SourceFile & _
                  " " & DestFile
               Call Shell(CopyString, 0)
            End If
         End Sub
   
      If you are using Microsoft Windows NT, use the same procedure, but
      change the line
   
         CopyString = "COMMAND.COM /C COPY " & SourceFile & _
   
      to:
   
         CopyString = "CMD.EXE /C COPY " & SourceFile & _
   						

4. Para testar esse procedimento, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER:
   
   CopyFile "< caminho para Northwind.mdb >", "C:\Northwind.mdb"
   
   Observe que Northwind.mdb é copiado para a pasta raiz da unidade C, mesmo que ele seja aberto em outra instância do Microsoft Access.

Voltar para o início

Etapas para reproduzir o problema

1. Inicie o Microsoft Access.
2. Abra o banco de dados de exemplo Northwind.mdb.
3. Inicie uma nova instância do Microsoft Access.
4. Crie um novo banco de dados em branco.
5. Crie um módulo e o tipo a seguinte linha na declaração seção se não estiver já existe:
   

         Option Explicit
   						

6. Digite o seguinte procedimento:
   

         Sub CopyFile(SourceFile As String, DestFile As String)
            FileCopy SourceFile, DestFile
         End Sub
   						

7. Para testar esse procedimento, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER:
   
   CopyFile "< caminho para Northwind.mdb >", "C:\Northwind.mdb"
   
   Observe que você recebe o erro listado na seção "Sintomas".

Voltar para o início