Save source to file

[Nebooaw]

Hi, does anyone know if it is possible to select a button on a webpage to create a new page with the current pages source and save it to a new file?

Kindest Regards.

 

[PHV]

In IE, menu Display -> Source

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Nebooaw]

Thanks for replying, i want to be able to do this automatically and save it to a file - all with vbscript or javascript.

Should of been a bit clearer in my post.

Regards.

 

[mobajwa]

Can you create a macro in I.E
I dont know for sure if it is possible , but if it is , then thats what you need ?

-
mobajwa

After the game ,the king and the pawn , both go in the same box.

 

[Nebooaw]

Still having problems with this. Can anyone post an example as im out of ideas?

Kindest regards.

 

[RhythmAddict112]

function displayCode(page_to_display)

set fsObj = CreateObject("Scripting.FileSystemObject")
set fileObj = fsObj.OpenTextFile(server.mappath(page_to_display),1,false)

do while not fileObj.AtEndOfStream

 
response.write server.htmlencode(fileObj.readline)  &  "<br>"

loop

fileObj.Close
set fileObj = NOTHING
set fsObj = NOTHING

end function

All hail the INTERWEB!

 

[RhythmAddict112]

oops, didn't mean to hit submit. Just use FSO to save that to an output file.

					'msgBox oCmd.CommandText
					'create file for debug
					Dim objFileSystem, objOutputFile
					Dim strOutputFile
					'generate a filename base on the script name
					strOutputFile = "something.txt"

					Set objFileSystem = CreateObject("Scripting.fileSystemObject")
					Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
		
					objOutputFile.WriteLine server.htmlencode(fileObj.readline)  &  "<br>"
					objOutputFile.Close
	
					Set objFileSystem = Nothing
	
					 
                    'end create file

You might have to troubleshoot that code, I didn't test any of it.

All hail the INTERWEB!

 

[Nebooaw]

Thanks for the example, will try it out this morning and let you know how i get on.

Kindest regards.

 

[RhythmAddict112]

Actually, I see an error in that code already...I didn't call the function correctly.

'msgBox oCmd.CommandText
'create file for debug
Dim objFileSystem, objOutputFile
Dim strOutputFile
'generate a filename base on the script name
strOutputFile = "something.txt"

Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
        
objOutputFile.WriteLine displayCode("pageTodisplay.asp")
objOutputFile.Close
    
Set objFileSystem = Nothing
    
                     
'end create file

All hail the INTERWEB!