Saved Bookmarks
| 1. |
Solve : Saving a webpage to my hard drive through a batch file command? |
|
Answer» I have Windows XP and am using Notepad for a batch file: You should use a vbscript for that. I'm sorry, I've never used a vbscript before. Can you be more specific as to what part of the code I need and where to put my url and path to save to? Thanks for your help! Quote from: tmerryman on September 29, 2010, 11:28:36 AM I'm sorry, I've never used a vbscript before. Can you be more specific as to what part of the code I need and where to put my url and path to save to? I suggest wget. See above. Quote from: Salmon Trout on September 29, 2010, 11:24:19 AM even better, use wget Thank you for the tip. If this was my home computer, I would definitely try it. My work, however, will not allow us to download programs. I will keep WGet in mind for home use.I have modified the script to accept arguments from the command line. These are 2 in number and they are obligatory. 1. The url of the file you want to download 2. The folder you want to download it to. To use the script from batch files do this 1. Save it SOMEWHERE on your hard drive. GIVE it a suitable name. I will use the name Downloader.vbs here. 2. run it with CSCRIPT if you want it to behave as a command line program, like this: cscript //nologo c:\scripts\downloader.vbs "http://www.robgendlerastropics.com/primer.html" "C:\downloads" I don't know about exporting to Excel, sorry Code: [Select] myURL = wscript.arguments(0) myPath = wscript.arguments(1) 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." wscript.Quit End If Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True ) Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" ) 'following line is optional wscript.echo "Downloading " & myURL objHTTP.Open "GET", myURL, False objHTTP.Send For i = 1 To LenB( objHTTP.ResponseBody ) objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) ) Next objFile.Close( ) 'following line is optional wscript.echo "Download complete" Quote from: tmerryman on September 29, 2010, 11:34:12 AM My work, however, will not allow us to download programs. download wget at home and bring to work. If this is a legit task that your boss assigned you, there is no reason to restrict using appropriate tools for the job. Well, I just downloaded Wget at home. It's awesome and so simple! Thank you for CONVINCING me. lol I believe I'll sneak it to work. Quote from: Salmon Trout on September 29, 2010, 12:41:37 PM Code: [Select]objHTTP.Open "GET", myURL, False easier... Code: [Select]objHTTP.Open "GET", myURL, False objHTTP.Send objFile.Write(objHTTP.ResponseText) objFile.Close |
|