Downloading folder from website

[ykhamitkar]

Hi there,

I have to download files/folders based on the link provided from a website (Sharepoint)
I have following code which works fine if I try to download a file, but dont know the code which will enable me to download the entire folder (with all files and folders in it)

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(PathToBeCopiedFrom, PathToBeSavedAt)
Dim i As Integer
 
strUrl = PathToBeCopiedFrom
Dim strSavePath As String
Dim returnValue As Long
 
strSavePath = PathToBeSavedAt
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
 
'MsgBox returnValue
End Sub
 
Sub TestDownload()
    DownloadFileFromWeb "https:\\dspace.de.intranet.ab.com\site0194\Final Data Repository\Icelandics\Commodities\Close-out Documentation\\COM_Commodities_RMS TradeID 64400168.doc", "C:\Documents and Settings\khamyog\Desktop\Test\T34\x.xls"
End Sub

Any suggestions,

Thanks