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!
Renomear Arquivo da Foto
Cole o código em um Novo Módulo
Cole o código em um Novo Módulo
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 ?
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
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
- 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
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
- 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
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 ?