MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Download Direto Dropbox

    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 30/08/2010

    Download Direto Dropbox Empty Download Direto Dropbox

    Mensagem  NADIRONUNES em 26/7/2020, 19:13

    boa tarde a todos

    eu uso o exemplo desse link

    https://www.maximoaccess.com/t29327-exemplo-download-direto-download-direto-dropbox


    gostaria de sabe se ao inves de baixar tem como fazer q ele envia pra mesma pasta  do dropbox via codigo como esse ai de baixar
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    Download Direto Dropbox Empty Re: Download Direto Dropbox

    Mensagem  ahteixeira em 27/7/2020, 10:50

    Olá Nadir,

    O simples seria ter o aplicativo do DropBox instalado no computador a sincronizar uma pasta automaticamente.
    Assim só teria que colocar ir colocando os ficheiros pretendidos para fazer o Upload e o aplicativo da DropBox fazia o resto automáticamente.

    Se pretende via VBA, creio que terá que usar a API, veja se ajuda:
    dropboxforum.com/t5/Discuss-Dropbox-Developer-API/How-can-i-upload-file-to-my-Dropbox-account-with-vba/td-p/306546
    veroniquefrizzell.com/using-vba-with-dropbox-api/

    Abraço
    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 30/08/2010

    Download Direto Dropbox Empty Re: Download Direto Dropbox

    Mensagem  NADIRONUNES em 27/7/2020, 11:46

    Código:
    Public Sub DB_PutFile(FileName As String)
    Dim req As MSXML2.ServerXMLHTTP60
    Dim strFile As String
    Dim Pos1 As Integer
    Dim Pos2 As Integer
    Set req = New MSXML2.ServerXMLHTTP60
    Dim arg As String
    strFile= ReadBinary(FileName)
    arg = "{""path"":""/" & FileName & """,""mode"":{"".tag"":""overwrite""},""autorename"":false,""mute"":true}"
    req.Open "POST", "https://content.dropboxapi.com/2/files/upload", False
    req.setRequestHeader "Authorization", "Bearer xxxxxxxxxxxxxxxx"
    req.setRequestHeader "Content-Type", "application/octet-stream"
    req.setRequestHeader "Content-length", Len(Result)
    req.setRequestHeader "Dropbox-API-Arg", arg
    req.setRequestHeader "User-Agent", "api-explorer-client"
    req.send strFile

    If req.Status = 200 Then

    Debug.Print req.responseText

    Else
    'MsgBox req.Status & ": " & req.statusText
    Debug.Print req.responseText
    End If
    End Sub

    seria assim?
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6957
    Registrado : 15/03/2013

    Download Direto Dropbox Empty Re: Download Direto Dropbox

    Mensagem  ahteixeira em 27/7/2020, 15:13

    Olá Nadir,

    Segundo o suporte do DropBox, essa será uma das formas.
    Aproveito para informar que o "ReadBinary" é do Excel, vai ter que ajustar.
    Além disso precisa de explorar a documentação da API.

    "Mãos à obra\Toca a por a mão na massa".

    Abraço

      Data/hora atual: 3/12/2020, 16:09