MauriceSmit
Gebruiker
- Lid geworden
- 1 jul 2008
- Berichten
- 168
Beste fellow-vba'ers
Ik wil in een model dat ik aan het ontwikkelen ben een check bouwen waarbij hij op een sharepoint teamroom controleerd of er een nieuwe versie beschikbaar is. Nu heb ik de volgende code gevonden op het wereldwijde web:
Deze code heb ik getest en blijkt bij ons helaas niet te werken, omdat ik denk dat wij via een https werken en niet via een http; maar hier kan ik ook geheel naast zitten.
Heeft toevallig 1 van jullie ervaring met het 'online' controleren voor updates (op een sharepoint omgeving) vanuit vba?
Thz
Ik wil in een model dat ik aan het ontwikkelen ben een check bouwen waarbij hij op een sharepoint teamroom controleerd of er een nieuwe versie beschikbaar is. Nu heb ik de volgende code gevonden op het wereldwijde web:
Code:
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Sub DownloadFileFromWeb()
Const strUrl As String = "http://teams/Dept/Shared Documents/Reports/Pivot_Source_Data/filename.csv"
Dim strSavePath As String
Dim returnValue As Long
strSavePath = "C:\test.csv"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
End Sub
Deze code heb ik getest en blijkt bij ons helaas niet te werken, omdat ik denk dat wij via een https werken en niet via een http; maar hier kan ik ook geheel naast zitten.
Heeft toevallig 1 van jullie ervaring met het 'online' controleren voor updates (op een sharepoint omgeving) vanuit vba?
Thz