FILECOPY

JABA 13/12/2006 12:12:50
#189700
Olá pessoal, o que está errado neste codigo?

FileCopy "C:\Arquivos de programas\Banco.mdb", "C:\"

Eu quero copiar o Banco.mdb para a pasta raiz C:\, Mas desta forma está dando erro de --> Path not found, ou seja, Caminho não enconrado.

Eu tenho certeza que o caminho está correto, então o que pode ser? Será que ele não copia Banco de Dados?

att,
Rodrigo Porto
USUARIO.EXCLUIDOS 13/12/2006 12:59:20
#189704 Resposta escolhida
FileCopy "C:\Arquivos de programas\Banco.mdb", "C:\Banco.mdb"


Falta o nome do arquivo no destino.
VB6MASTER 13/12/2006 13:26:49
#189709
Irmão, não sei o que está errado. Tentei aqui e dá o mesmo erro.
Caso esteja interessado, tenho uma outra função para fazer isto, que está funcionando perfeitamente, a saber:
Option Explicit

'Adicionar referência Microsoft Scripting RunTime
[c]Private Sub Form_Load()
    Dim FileSObjet As New FileSystemObject
    Dim Arquivo As File
    Dim Caminho As String
    
    Caminho = App.Path
    
    On Error GoTo Aviso
    
    Set Arquivo = FileSObjet.GetFile(Caminho & "    abconv.mdb")
    
    If Arquivo.Size >= 1000000 Then MsgBox "O arquivo não cabe no disquete": Exit Sub
    
    FileSObjet.CopyFile Caminho & "    abconv.mdb", "A:\", True
    MsgBox "Arquivo copiado com êxito"
    Exit Sub
    
Aviso:
    MsgBox "houve um erro ao copiar o arquivo"
    If MsgBox("Deseja tentar novamente?", vbYesNo + vbCritical) = vbYes Then Call Form_Load
End Sub

[/c]
Tópico encerrado , respostas não são mais permitidas
Voltar