Endereçamento para internet

Olá. Estou tentando criar um endereçamento de uma pasta na internet para que via o banco de dados ele grave uma foto na pasta contida no endereço da internet no entanto não estou conseguindo.

Exemplo:
Criei uma variavel: StrCaminho = "https://WWW.endereço" mas não funciona, alguem poderia me auxiliar se a sintaxe ta correta para direcionamento à internet? Por favor.

Obrigado

Ola, Bom dia

Bom, teria jeito sim, e o jeito mais facil é Mapear unidade de rede e não com código VBA.

Fazer isso com código VBA não vou poder te ajudar, tomara que alguém ajude voce aqui, mais Mapear unidade sim.



01 - Mapeando unidade de rede




02 - Conecte-se ao site HTTP ou FTP




03 - Configure sua conexão, passo abaixo






04 - Entre no seu Mapeamento e digite a senha caso for solicitado, (ira pedir somente uma vez, caso for necessário), vai ficar conforme abaixo




05 - Agora só usar a pasta local conforme foto abaixo para fazer upload de suas imagens na net.



Fico a disposição

@osmarnadalon , em primeiro obrigado pela tentativa de ajuda. Esse metodo eu já havia tentando ele não funciona. Vou explicar pq ele não funciona. Ele cria uma rede ligado à sua máquina, os outros usuarios só tem acesso somente se a sua máquina estiver ligada. Caso contrario não.

Private Sub SeuBotao_Click()
Application.FollowHyperlink Address:="http://www.google.pt"
End Sub

Olá  @Assis, primeiramente muito grato pela ajuda.   a sintaxe ensinada por você funciona já testei.   Estou tendo dificuldade agora é em passar o comando informando para ele gravar a imangem no link informado.    
Abaixo não coloquei o codigo completo, coloquei apenas a parte onde esta ocorrendo o erro(em dastque em vermelho).  
Você poderia me auxiliar na sintaxe correta do comando? Por favor
 
  strPastaInicial = "C:\Meus Documentos"
  strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
  "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
  If Len(strCaminho) > 0 Then
 
 ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
 Set CopiaSegura = CreateObject("Scripting.FileSystemObject")

 CopiaSegura.CopyFile strCaminho, Application.FollowHyperlink Address:= "https://endereço do site.sharepoint.com/sites/66524-213431/" & Me.nrDocumento.value & " " & Me.nrDocumento.value & ".jpg"
' Me.Imagem3.Picture = Me.Foto_Cliente

   
   End If
End If


Explicando melhor o que estou precisando. Salvar a imagem em uma pasta que se encontra na internet (sharepoint),  o Link que o Assis ensionou ta funcionando quando usado separadamente ele vai até o site.

As linhas de comando no código estão fazendo a busca da imagem e tambem renomeando.   Só não estou conseguindo fazer ele gravar o aquivo na pasta destino.

Se algum colega puder auxiliar, agradeço.

Boa tarde

Eu não , mas acho que alguém vai ajuda ...

Boa sorte

Boa noite

Para estudar

https://www.maximoaccess.com/t32787-resolvidovba-salvar-imagem-atraves-do-internet-explorer#225777

@Assis, muito grato no seu auxilio. Eu li o topico e objetivo dele é bem diferente do meu.  Mas tentei aplicar conforme ele aplicou o endereço em uma variavel ficando assim o codigo conforme abaixo. Mas infelizmente não funcionou.

If IsNull(Me.nrDocumento) = True Then
    MsgBox "Para inserir a foto pe necessário informar o nome do cliente", vbInformation, "Aviso"
    DoCmd.CancelEvent
    Me.nrDocumento.SetFocus
  Else
 
  Dim strCaminho As String, strPastaInicial As String
  Dim CopiaSegura As Object
  Dim Caminho As String
  Dim fso As Object
  Dim cam As String
  Dim strPath As String
 
 
  strPath = "https://endereço da internet FolderCTID=0x012000A774038500C7034EA680DE86054AE2B7&id=%2Fpersonal%2Fjzgn4s%5Flaam%5Fcorp%5Fgm%5Fcom%2FDocuments%2FBase%20de%20Dados%20SAC%2D10%2FRASP%20V8%2FFOTO"
 
  strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
  "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
  If Len(strCaminho) > 0 Then
 
 ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
 Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
 CopiaSegura.CopyFile strCaminho, strPath & Me.nrDocumento.value & " " & Me.nrDocumento.value & ".jpg"
 Me.Foto_Cliente = strPath & Me.nrDocumento.value & " " & Me.nrDocumento + "-B" & ".jpg"
 Me.Imagem3.Picture = Me.Foto_Cliente

   
   End If
End If

End Sub



Olá, algum colega teria alguma sugestão que possa me auxiliar. De como salvar a imagem em uma pasta na internet(one drive ou sharepoint). Por favor.