Angeloped angeloped
Richienb
/ DownloadFile.vbs
Last active
August 24, 2024 14:34
Download A File In Visual Basic Script (vbs)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Sub HTTPDownload( myURL, myPath ) | |
| Dim i, objFile, objFSO, objHTTP, strFile, strMsg | |
| Const ForReading = 1, ForWriting = 2, ForAppending = 8 | |
| Set objFSO = CreateObject( "Scripting.FileSystemObject" ) | |
| If objFSO.FolderExists( myPath ) Then | |
| strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 1 ) ) | |
| ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then | |
| strFile = myPath | |
| Else | |
| WScript.Echo "ERROR: Target folder not found." |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| January 2018 | |
| 2: Science Fiction Day #ScienceFictionDay | |
| 4: National Trivia Day #NationalTriviaDay | |
| 5: National Bird Day #NationalBirdDay | |
| 8: Clean Off Your Desk Day #CleanOffYourDeskDay | |
| 11: Human Trafficking Awareness Day #HumanTraffickingDay | |
| 13: National Sticker Day #NationalStickerDay | |
| 15: Martin Luther King, Jr. Day #MLKDay | |
| National Hat Day #NationalHatDay | |
| 18: Get to Know Your Customers Day (third Thursday of every quarter) #GetToKnowYourCustomersDay |
OlderNewer