论坛: 编程破解 标题: [求助]请高手看看这段vbs 复制本贴地址    
作者: starrow [starrow]    论坛用户   登录
'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
今天我开始学习vbs，写了几段小的都运行成功了，可是这段更新链接的运行时提示13行
错误的文件模式。请高手指点一下。

地主 发表时间: 07/05 09:47
回复: leonshoh [leonshoh]   论坛用户   登录
少了一个参数，在ForWriting后面加,True
OK？？试试，应该可以了！

B1层 发表时间: 07/13 18:18

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号