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


    Função para Verificar Arquivo na Pasta

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 361
    Registrado : 06/04/2013

    Função para Verificar Arquivo na Pasta Empty Função para Verificar Arquivo na Pasta

    Mensagem  Jeferson de Paula 27/9/2013, 18:21

    Olá Pessoal,

    A alguns dias eu estava procurando uma função que verificasse na pasta se o arquivo existe ou não para então eu guardar o caminho. Pode ser muito usado para sistemas que necessitam de guardar fotos de Clientes, Produtos, Funcionários, Usuários entre outros mais. Espero que os ajude em alguma coisa!

    Código:
    Private Sub SeuBotao_Click()
    'Criado por Aldo Jeferson de Paula
    'Verificação de Arquivos na Pasta
    Dim strImageDefault As String
    Dim strImageUser As String

    'Se a imagem estiver hospedada no diretório do seu Aplicativo use o "CurrentProject.Path":
    'strImageDefault = CurrentProject.Path & "\Images\imgDefault.png"
    'trImageUser = CurrentProject.Path & "\Images\" & txtCPFDoCliente.Value & ".png"

    'Se a imagem estiver hospedada em outro diretório então informe o Caminho Completo:
    strImageDefault = "C:\SuaPasta\Images\imgDefault.png" 'Se for rede informe o caminho pelo IP > "\\192.168.0.1\SuaPasta\Images\..."
    strImageUser = "C:\SuaPasta\Images\" & txtCPFDoCliente.Value & ".png" 'Neste exemplo o nome da imagem é igual ao CPF do Cliente

        If Dir(strImageUser) = "" Then 'Condição que verificar se o arquivo existe ou não
            Me.CampoDoCaminho = strImageDefault
            Me.QuadroDaImagem.Picture = strImageDefault
                MsgBox "Este cliente não possui uma Foto!", vbCritical, "Foto Não Encontrada" 'Mensagem Opcional
        Else
            Me.CampoDoCaminho = strImageUser
            Me.QuadroDaImagem.Picture = strImageUser
                MsgBox "A Foto do cliente foi Atualizada com Sucesso!", vbInformation, "Foto Atualizada" 'Mensagem Opcional
        End If
    End Sub
    Abaixo segue um acrescentamento para ajudar ainda mais, segue algumas funções!

    Renomear Arquivo da Foto

    Cole o código em um Novo Módulo
    Código:
    Public Function fncRename(Optional XFile As String = "", Optional YFile As String = "")
    'XFile = Nome Original do Arquivo
    'YFile = Nome Substituído do Arquivo

        Name XFile As YFile
    End Function
    Para agregar esta função junto a anterior faça as seguintes alterações
    Código:
    Private Sub SeuBotao_Click()
    Dim strRenameFile As String
    Dim strRenamedFile As String

    strRenameFile = "C:\SuaPasta\Images\DefaultImage.png"
    strRenamedFile = "C:\SuaPasta\Images\" & txtCPFDoCliente.Value & ".png"
        Call fncRename(strRenameFile , strRenamedFile)
    End Sub
    Mover Arquivo (DiretorioX para DiretorioY)

    Cole o código em um Novo Módulo
    Código:
    Public Function fncMove(Optional XDiretorio As String = "", Optional YDiretorio As String = "")
    'XDiretorio = Origem
    'YDiretorio= Destino

        FileCopy XDiretorio As YDiretorio
    End Function
    Para agregar esta função junto a anterior faça as seguintes alterações
    Código:
    Private Sub SeuBotao_Click()
    Dim strCopyFile As String
    Dim strPasteFile As String

    strCopyFile = "C:\SuaPasta\Transferencia\DefaultImage.png"
    strPasteFile = "C:\SuaPasta\Images\DefaultImage.png"
        Call fncMove (strCopyFile, strPasteFile)
            Kill (strCopyFile) 'Remove o arquivo da Pasta (Shift+Del)
    End Sub
    Adapte os códigos acima conforme suas necessidades! Sucesso!

    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha Função para Verificar Arquivo na Pasta 001_1810?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft®️ Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

      Data/hora atual: 28/3/2024, 19:50