Const strUrl As String = "\\server\Tools *.zip"
Sub Download_ZipFile() Dim i As Integer Const strUrl As String = "\\server\Tools v2.04.zip" Dim strSavePath As String Dim returnValue As Long strSavePath = "C:\Users\Public\Tools.zip" returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.