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

    [Resolvido]Transferir imagem do celular para uma pasta

    avatar
    sergio de paula
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 19/04/2020

    [Resolvido]Transferir imagem do celular para uma pasta Empty [Resolvido]Transferir imagem do celular para uma pasta

    Mensagem  sergio de paula 19/8/2021, 21:15

    Copie, daqui, uma rotina que seleciona uma imagem em uma pasta e insere no banco de dados. Funciona muito bem quando a imagem está em uma pasta do desktop mas não consegue selecionar uma imagem do celular, conectado ao computador via cabo de dados. Alguém tem uma luz sobre o assunto ?
    avatar
    sergio de paula
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 19/04/2020

    [Resolvido]Transferir imagem do celular para uma pasta Empty Transferir imagem do celular para uma pasta

    Mensagem  sergio de paula 1/9/2021, 23:08

    Consegui esta rotina, aqui mesmo, que, adaptada, resolve a questão :

    Function btCarregar()

    Dim wzFileName As String
    Dim wzCancelled As Boolean
    Dim ret As Boolean
    Dim strArq As String
    Dim booSobrescreve As Boolean
    booSobrescreve = True
    WizHook.Key = 51488399
    ret = WizHook.OpenPictureFile(wzFileName, wzCancelled)

    If Not wzCancelled Then

    strArq1 = Split(wzFileName, "\")(UBound(Split(wzFileName, "\")))
    strArq = [coloque o caminho desejado] & "\" & strArq1

    If Dir(strArq) <> "" Then
    If strArq <> wzFileName Then
    Call MsgBox("Um arquivo com este nome já existe na pasta.", vbInformation, "Aviso")
    Call Beep
    booSobrescreve = MsgBox("Deseja sobrescrevê-lo?", vbQuestion + vbYesNo + vbDefaultButton2, "Opa") = vbYes
    Else
    booSobrescreve = False
    End If
    End If
    If booSobrescreve Then
    Call CreateObject("Scripting.FileSystemObject").copyfile(wzFileName, strArq)
    End If
    End If

    End Function

      Data/hora atual: 1/10/2022, 14:41