MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    copiar arquivo de uma pasta para outra

    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty copiar arquivo de uma pasta para outra

    Mensagem  ALBRufino 3/4/2011, 16:14

    gostaria de saber um meio de fazer isso (copiar arquivo de uma pasta para outra)
    fis uma ap. para digitalizar documentos q estar ook
    quria q alquem mim ajudace a relver isso

    exmplo:
    ja tem a fução de cria a pasta (me.pasta) via campo
    agora quero copia os aqivos da pasta padraõ q é c:\digitdoc\image\
    para a pasta criada no campo me.pasta.
    que podesse le a pasta criada atraves do campo (me.pasta)

    Ex:copia c:\digitdoc\image\*.jpg

    para c:\digitdoc\image\me.pasta\

    alquem pode mim ajudar?

    abg


    Última edição por ALBRufino em 3/4/2011, 16:23, editado 1 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 3/4/2011, 16:21

    AQui no repositório de exemplos coloquei à pouco tem po um exemplo de copiar ficheiros no access. Veja lá.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 3/4/2011, 16:22

    http://maximoaccess.forumeiros.com/t1891-copiar-e-mover-arquivos-em-access
    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty veja o exmplo

    Mensagem  ALBRufino 3/4/2011, 16:24

    exmplo:
    ja tem a fução de cria a pasta (me.pasta) via campo
    agora quero copia os aqivos da pasta padraõ q é c:\digitdoc\image\
    para a pasta criada no campo me.pasta.
    que podesse le a pasta criada atraves do campo (me.pasta)

    Ex:copia c:\digitdoc\image\*.jpg

    para c:\digitdoc\image\me.pasta\

    alquem pode mim ajudar?

    abg
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 3/4/2011, 16:26

    Amigo

    Você não viu o post acima, pois não????
    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty ob

    Mensagem  ALBRufino 3/4/2011, 16:49

    agadeço muito
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 3/4/2011, 16:53

    E resolveu o problema?
    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty OBS

    Mensagem  ALBRufino 3/4/2011, 18:38

    MUITO PRATICO . http://maximoaccess.forumeiros.com/t1891-copiar-e-mover-arquivos-em-access



    MAIS EU QUERIA ERA O SEQUINTE
    QUANDO TERMINAR DE PRENCHER OS CAMPOS
    DIVESE UM COMANDO QUE BUSCASSE OS *.JPG
    E COPIACE PARA PASTA QUE CRIEI VIA CAMPO ME.PASTA
    SE MOVEE PRA ESTA PASTA,
    CONFORME EU DISSE ANDES
    VEJA
    copia os aqivos da pasta padraõ q é c:\digitdoc\image\
    para a pasta criada no campo me.pasta.
    que podesse le a pasta criada atraves do campo (me.pasta)

    Ex:copia c:\digitdoc\image\*.jpg

    para c:\digitdoc\image\me.pasta\

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 3/4/2011, 18:46

    Se é prático, pode mover ou copiar, 1 ou vários ao mesmo tempo...Bom tem aqui um comando para isso, adapte pois não estou a ver o que quer realmente:

    FileCopy " c:\digitdoc\image\*.jpg" , "c:\digitdoc\image\me.pasta\"

    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty ola amigo

    Mensagem  ALBRufino 5/4/2011, 16:13

    em vita ser novo no maximoaccess, tentei manda uma copia mais deu erro. como faço pra Vou manda um modelo do sistema q estou terminando?
    Ai vc poderia ver melhor e mim manda a solução,

    agradeço
    Alberto Rufino
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  vieirasoft 5/4/2011, 18:35

    A solução que eu tenho é a aplicação que lhe enviei. Depois temos o comando file copy. Agora a aplicação que lhe passei, porque permite mover ou copiar vários ficheiros ao mesmo tempo, parece-me ser a solução ideal.
    avatar
    Convidado
    Convidado


    copiar arquivo de uma pasta para outra Empty Boa noite

    Mensagem  Convidado 6/4/2011, 01:58

    Não querendo me intrometer, mas posto aqui o a ajuda dos companheiros do Forum...

    Abra e olhe, no seu for coloque um botão que abra o form do exemplo:

    Private Sub Mover_Click()
    Docmd.OpenForm "Mover"
    End Sub

    para abrir o form do exemplo, ai é so escolher o arquivo a ser movido..
    e ele ja move pra pasta de destino
    avatar
    ALBRufino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/04/2011

    copiar arquivo de uma pasta para outra Empty digitdoc exemplo

    Mensagem  ALBRufino 6/4/2011, 14:35

    ai amigo viera
    veja o ex:
    eu digitalizo o documento ,q ta tudo ok
    so que quero salva os arquivo em uma pasta ( criei uma co comndo mdir com o campo pata, pra na hora q digita no campo ela cia com o nome q digitei no campo pasta}
    tambem ta tdo ok ex: (sec.educação)e etc cada vez q cria uma pasta ela sala na mesma0
    veja como viz

    Option Explicit
    Private Sub Escaner_Click()
    DBPixMain.TWAINAcquire
    End Sub

    Private Sub Form_Current()

    ' caminho onde são armazenadas imagens - neste caso o é o caminho do .mdb
    Dim Path As String
    Path = GetImageFolder

    If IsEmpty(Me!Filename) Or IsNull(Me!Filename) Then
    DBPixThumb.ImageViewBlob (Null)
    DBPixMain.ImageViewBlob (Null)
    Else
    ' Display the thumbnail - the filename is prefixed with 't'
    DBPixThumb.ImageViewFile (Path & "t" & Me!Filename)
    ' Display the main image
    DBPixMain.ImageViewFile (Path & Me!Filename)
    End If

    End Sub

    Private Sub DBPixMain_ImageModified()
    ' A imagem principal foi mudada (eg carregam, cole, gire etc) - exceto mudanças para a pasta de papéis de imagem
    Dim ImageFilename As String

    Me!Filename = "" ' clear the filename (this also updates the autonumber id if this is a new record)

    If DBPixMain.ImageBytes < 1 Then
    ' Image is empty/cleared/deleted
    DBPixThumb.ImageViewBlob (Null) ' Clear the thumbnail control - NOTE: Does not actually delete the main/thumbnail files.
    Else

    ' Get the format from the control's property
    If DBPixMain.ImageFormat = 2 Then ' png format
    ImageFilename = Me!Id & ".png"
    Else ' use jpeg format
    ImageFilename = Me!Id & ".jpg"
    End If

    ' Save the image
    If DBPixMain.ImageSaveFile(GetImageFolder & ImageFilename) Then
    ' Store the filename and image-info in the recordset
    Me!Filename = ImageFilename

    ' Update the thumbnail from the main image control then save it
    ' DBPixThumb.ImageLoadBlob (DBPixMain.Image) ' Copy/Paste is quicker
    DBPixMain.ImageCopy
    DBPixThumb.ImagePaste

    DBPixThumb.ImageSaveFile (GetImageFolder & "t" & ImageFilename)
    Else
    ' Error saving - main image - clear the thumbnail control
    DBPixThumb.ImageViewBlob (Null)
    End If

    End If

    End Sub

    Private Function GetImageFolder() As String
    Dim DBFullPath As String
    Dim I As Integer

    DBFullPath = CurrentDb().Name

    ' Strip the filename from the full path
    For I = 1 To Len(DBFullPath)
    If Mid(DBFullPath, I, 1) = "\" Then
    GetImageFolder = Left(DBFullPath, I) & "images\"
    ' aqui nao consigo 'salva na pasta do campo, so salva na pasta images
    End If
    Next

    End Function

    Private Sub Form_Open(Cancel As Integer)
    ' Update the control size - just call the Resize event handler
    Form_Resize
    End Sub

    Private Sub Form_Resize()
    If (InsideWidth - 1000) > 0 Then
    DBPixMain.Width = InsideWidth - 1000
    End If
    If (InsideHeight - 2500) > 0 Then
    DBPixMain.Height = InsideHeight - 2500
    End If
    DBPixMain.ViewZoomToFit
    End Sub

    Conteúdo patrocinado


    copiar arquivo de uma pasta para outra Empty Re: copiar arquivo de uma pasta para outra

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/3/2024, 11:04