[Resolvido]Copiar arquivo e mover

Pessoal bom dia

encontrei no repositorio este exemplo e gostaria de adaptar em um formulário

tenho um txt que aparece o endereço da foto ativa, gostaria que o exemplo que peguei ja puxasse automatico essa referencia de endereço (deste arquivo)sem que o usuário opte por entrar na pasta "mãe" dos arquivos para evitar futuros problemas.

a ideia é criar um botão que chame esse exemplo e referenciar o meu txt e copiar o arquivo para a pasta de destino.

o formulário chama: cadastro
e o txt: localfoto


grato pela atenção

Eae manolo.

Vamos por partes, o intuito é ajudar você a desenvolver, então não irei fazer (até porque não tenho nem o Access instalado ).

Código:


    Dim FileNum As Integer
    Dim DataLine As String
   
    'Retorna o número de arquivo disponível
    FileNum = FreeFile()
   
    'Abre o arquivo txt
    Open "C:\Users\Desktop\ArquivoComCaminhoDaImagem.txt" For Input As #FileNum
   
    'Preenche a variável DataLine com o conteúdo da primeira linha
    Line Input #FileNum, DataLine


Supondo que o caminho da imagem esteja na primeira linha você pode mover o arquivo pra pasta que você quiser com a função FileCopy.

Código:

FileCopy "C:\Users\NomeUsuario\PastaOrigem\Teste.jpg", "C:\Users\NomeUsuario\PastaDestino\Teste.jpg"

Olá nobre,

bom eu tentei na unha utilizando o filecopy mas não tive sucesso

tentei algo dessa forma e da pau

FileCopy Me.Localfoto, "C:\teste\arquivo"

o me.localfoto ja contem o endereço da foto, o intuito é copiar essa arquivo para a pasta em destaque

como eu aplicaria a forma que postou

Você colocou C:\teste\arquivo

Pergunta:

A pasta teste existe?
Você colocou a extensão do arquivo?
Qual a mensagem de erro que apareceu?

pela ajuda encontrei este exemplo mas deu problema

Private Sub Comando96_Click()
Dim SourceFile, DestinationFile
SourceFile = Me.Localfoto ' Definir o nome do arquivo de origem.
DestinationFile = "C:\teste\arquivo" ' Definir o nome do arquivo de destino.
FileCopy SourceFile, DestinationFile ' Copiar a origem no destino.
End Sub

a pasta teste existe

o erro acontece no file copy no depurador

arquivo não localizado

o tipo de arquivo para movimento é uma foto .bmp

Que tipo de controle é esse Me.Localfoto? Uma caixa de texto?
Procure sempre usar as propriedades dos controles mesmo que o VBA tenha o padrão (ex.: Me.Localfoto.Value)

Use o depurador pra saber qual valor está vindo no controle Me.Localfoto

Boa tarde.

A pasta "teste" já existe?
Se existe, a pasta "arquivo" já existe?

Se "C:\teste\arquivo" existe e é a pasta para onde será copiado o arquivo, deve-se colocar a barra "\" no final.

"C:\teste\arquivo\"

deu erro

caminho não localizado, na linha do filecopy


Private Sub Comando96_Click()
Dim SourceFile, DestinationFile
SourceFile = Me.Localfoto ' Definir o nome do arquivo de origem.
DestinationFile = "C:\teste\arquivo\" ' Definir o nome do arquivo de destino.
FileCopy SourceFile, DestinationFile ' Copiar a origem no destino.
End Sub


sim a pasta e sub pasta de referencia existe

no primeiro exemplo que postei funciona a cópia só que eu gostaria que carregasse ao inves de pesquisar e inserir em uma lista ja sai a minha referencia que é o "localfoto" onde tem o endereço completo dela.

segue o codigo de repente possa me ajudar a retirar esse monte de coisa pra quando eu clicar no botão ele puxe o txt localfoto.


[code]
Private Sub Imagem25_Click()
On Error Resume Next
Dim File As Variant
'
'Create a file open instance
With New sjmFileDialog
'This will open the dialog over our form
'(form must be popup for this to work)
.hWnd = Me.hWnd
'
'What to display to the user (in title bar)
.Caption = "Selecione ficheiros a executar"
'Initial directory
.InitDir = "c:\"
'Add some file filters to the "filter list"
.AddFilter "Text Files", "*.Doc"
.AddFilter "All Files", "*.*"
'
'Set some flags
.FileMustExist = True
.PathMustExist = True
.MultiSelect = True
.NoChangeDir = True
'
'Tell the class which operation to perform
.Action = "Abrir"
'Process the dialog
.Execute
If Not .UserCancel Then
'User clicked Ok, so
'clear the listbox
Me.ListFiles.RowSource = ""
'and fill it with return value(s)
For Each File In .FileList
Me.ListFiles.RowSource = _
Me.ListFiles.RowSource & .ReturnDir & File & ";"
Next
End If
End With
btnBrowseDir.Enabled = True
End Sub

Mas então manolo, vc tem que falar inclusive qual será o nome do arquivo destino, e não colocar só a pasta.

FileCopy Me.Localfoto, "C:\teste\arquivo\NomeDaImagem.jpg"

Muito bom agora resolveu o X da questão, meus parabéns!

valeu muito obrigado!

Até mais

Me desculpem. é que eu uso o "Scripting.FileSystemObject" e sempre usei:

ORIGEM = "C:\XXXX\NOME DO ARQUIVO 1.XXX
DESTINO = "C:\XXXXX\"
fso.CopyFile ORIGEM, DESTINO, True

e nunca precisei incluir o nome do arquivo no campo de destino, a não ser que quisesse mudar o nome do arquivo:

ORIGEM = "C:\XXXX\NOME DO ARQUIVO 1.XXX
DESTINO = "C:\XXXXX\NOME DO ARQUIVO 2.XXX"
fso.CopyFile ORIGEM, DESTINO, True

Não uso o FileCopy.

É que o FileCopy é mais simples e já resolve o problema dele, mas basicamente faz a mesma coisa.
Mas com o FSO vc tem umas funções mais avançadas.

Obrigado pela dica, marco_messa.

Só a termo de informação para alguém precisar algum dia

declarei mais uma variável para colocar nome no arquivo, e abrir uma msgbox informando o salvamento e abrir a pasta de destino após salvamento

Private Sub salvar_foto_Click()
Dim SourceFile, DestinationFile, registro

SourceFile = Me.Localfoto.value ' Definir o nome do arquivo de origem.

registro = Me.Matricula.value

DestinationFile = "C:\teste\arquivo\" & (registro) & ".bmp" ' Definir o nome do arquivo de destino.



FileCopy SourceFile, DestinationFile ' Copiar a origem no destino.

MsgBox "Arquivo salvo no caminho C:\teste\arquivo\", _
vbInformation, "Salvo com Sucesso!"
Shell "explorer.exe C:\teste\arquivo", vbMaximizedFocus
End Sub

Olá Pessoal,

Alguém tem esse modelo de copiar de uma pasta para outra adaptado para 64 bits? Eu tentei adaptar o modelo, porém com meu nível de conhecimento não abre nem a caixa de diálogo para selecionar o arquivo!
Minha necessidade é pegar um arquivo qualquer em um pasta qualquer e copiar ele para uma pasta fixa e ainda guardar o nome do arquivo em um campo para gravar na tabela do item relacionado.

Agradeço se puderem me ajudar!

Falae rapaz, tente adaptar o que foi citado acima já sobre copiar.
Para abrir a caixa de diálogo você pode tentar utilizar o código abaixo, que creio que funcionará normalmente em 64bits:

Código:

Function CaminhoArquivo() As String
    Dim Fd As FileDialog
   
    'Define a caixa de diálogo como seleção de arquivos
    Set Fd = Application.FileDialog(msoFileDialogFilePicker)
   
    'Define as propriedades da caixa de diálogo
    With Fd
        .AllowMultiSelect = False
        .ButtonName = "Selecionar..."
        .Title = "Definir arquivo de alteração da atividade..."
       
        'Caso tenha escolhido algum arquivo
        If .Show Then
            CaminhoArquivo = .SelectedItems(1)
        End If
    End With
End Function

Flw...

Olá Marco!
Muito obrigado pela atenção, mas infelizmente não funcionou, acusa erro na variavel Dim Fd As FileDialog!

Qual a mensagem de erro?

acusa:

Erro de Compilação
O tipo definido pelo usuário não foi definido

e o foco vai para Fd As FileDialog.

Dê uma olhada nisso Eloirp:

http://maximoaccess.forumeiros.com/t6016-resolvidocomo-habilitar-referencias

Abraço