help

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

help	Logged in as: Guest

arrSession:exec spGetSession 2,2,868

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> help
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

help - 7/4/2003 7:42:33 PM

starrow

Posts: 1
Score: 0
Joined: 7/4/2003
From:
Status: offline

'update the hyperlinks in the webpages
public const ForWriting=2
dim fs
set fs=createobject("scripting.filesystemobject")
dim folder
set folder=fs.getfolder("c:\documents and settings\administrator\my documents\oa")
dim files
set files=folder.files
dim htmstream,htmcontent,newhtmcontent
for each f in files
if right(f.name,3)="htm" then
set htmstream=f.openastextstream(ForWriting)
htmcontent=htmstream.readall
newhtmcontent=replace(htmcontent,"asp","htm")
htmstream.close
end if
next

when the script is executed,a error message "
wrong file mode "always pops out.anybody can help me?