2020-02-16 标签:vbs,tli,遗忘,com,组件,曾经,很好,vbsedit,代码,自动,补全,实现,现在看来,大约,的确,用的,比如,我想

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 实现代码如下： Set tli = CreateObject("TLI.TLIApplicati

2020-02-16 标签:html,txt,文件,转换,asp,输出,vbs,代码,使用方法,手工,修改,名称,想要,生成,文件名,下面,保存为

使用方法:手工修改html文件的名称与想要生成的asp的文件名称，然后将下面的代码保存为1.vbs，跟1.html放同一个目录双击运行即可。实现代码如下：html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSyste

2020-02-16 标签:vbs,实现,zip,压缩,unzip,解压缩,函数,代码,如下,d,test,iso,msgbox,ok,sub,byval,mysourcedir,myzipfile,set

压缩代码: 实现代码如下： Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso = CreateOb

2020-02-16 标签:asp,静态,情况下,实现,utf,文件,缓存,代码,如下,language,vbscript,codepage,65001,response,charset,程序,通过,使用

实现代码如下： TimeDelay Then'超过 List=getHTTPPage(GetUrl()) WriteFile(FileName) Else List=ReadFile(FileName) End If Set FSO = nothing Response.Write(List)

2020-02-16 标签:运行,同一,目录,下的,可执行,程序,vbs,代码,实现,如下,set,objshell,wscript,shell,fso,scripting

实现代码如下： Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") se

2020-02-16 标签:实现,winrar,密码,破解,vbs,代码,如下,title,破译,目前,只做,数字,set,wshshell,wscript,shell,fso,scripting

实现代码如下： title="WinRaR破译(目前只做了破译数字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input(

2020-02-16 标签:asp,fso,文件,操作,函数,代码,复制,重命名,删除,替换,字符串,file,对象,属性,datecreated,返回,该文,创建

FSO文件（File）对象属性 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的驱动器的Drive对象 Name 设定或返回文

2020-02-16 标签:用来,分割,文本,vbs,脚本,实现,代码,如下,error,resume,next,code,netpatch,set,arg,wscript,arguments,count,quit

实现代码如下： On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject("Scripting.FileSystem

2020-02-16 标签:使用,js,进行,目录,上传,相当于,批量,实现,代码,如下,doctype,html,public,w,c,dtd,xhtml

实现代码如下： 测试文件上传 $(function(){ //ShowFolderFileList("D:\\CodeNet\\web\\Images\\shopTemplets"); }); function ShowFolderFileList(FilePath){ var fso,

2020-02-16 标签:javascript,利用,fso,判断,文件,是否,存在,代码,实现,如下,function,filespec,var,s,n,ew,scripting

实现代码如下： function ReportFileStatus(filespec) { var fso, s = filespec; fso = new ActiveXObject("Scripting.FileSystemObject"); if (fso.FileExists(filespe