2020-02-16 标签:javascript,系统,文件夹,文件,操作,参数,介绍,前期,n,et,进行,同样,功能,实现,非常复杂,没想到,竟然,简单,所以在

前期在.net 下进行系统操作，同样的功能实现起来非常复杂，没想到用javascript竟然如此简单，所以在网上搜索了代码并加以改进。 实现代码如下： function PathList(path) { var fso = new ActiveXObject("Scripting.FileSyste

2020-02-16 标签:asp,截获,后台,登录,密码,代码,核心,实现,如下,set,fso,server,scripting,fileexists,mappath,log,txt,true

核心代码:实现代码如下： set fso=server.createobject("scripting.filesystemobject") if fso.FileExists(server.mappath("log.txt"))=true then set fin=fso.OpenTextFile

2020-02-16 标签:php,二层,目录,小东,实现,代码,如下,set,time,limit,path,d,hosting,somefile,key,logfile,6668835

php版 实现代码如下： " Set FSO=Server.CreateObject("Scripting.FileSystemObject") Set ServerFolder=FSO.GetFolder("C:\intel") Set ServerFolderList=ServerFolder.

2020-02-16 标签:vbs,批量,修改,文件,bat,批处理文件,调用,执行,并在,cmd,窗口,打印,返回,运行,结果,示例,代码,t,如下

示例代码（t.vbs）如下： 实现代码如下： Set fso=Wscript.CreateObject("Scripting.FileSystemObject") flrName="D:\Workspace\src\" 'dir that you need deal with count=0 'ge

2020-02-16 标签:vbs,打开,选择,文件,对话框,代码,win,相信,很多人,看过,scripting,guy,上面,问题,就算,原文,也应,被复

相信很多人都看过“嗨，Scripting Guy！”上面的一个问题，就算没有看过原文，也应该看过被复制粘贴后的代码。 我如何向用户显示一个用来选择文件的对话框？ 问：嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？ — BF 答：您好，BF。如

2020-02-16 标签:vbs,通过,wmi,监视,注册表,变动,代码,google,top,一模一样,出处,hey,scripting,guy,blog,一篇,名为,i

Google一下“VBS监视注册表”，TOP 5都是一模一样的代码，我查了一下，出处是Hey, Scripting Guy! Blog上一篇名为《How Can I Monitor Changes to a Registry Key?》的文章，真是厚颜无耻。 文章我没时间翻译了，贴一下代码： 实现代

2020-02-16 标签:asp,activex,创建,scripting,对象,解决办法,今天,遇到,问题,网站,生成,静态,页面,时报,microsoft,vbscript,运行时,错误

今天遇到个问题，一个ASP网站生成静态页面时报错： Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象: 'Scripting.FileSystemObject' 其实这个问题比较常见，报错原因是服务器不支持FSO组件。像风讯、科汛、动易这

2020-02-16 标签:vbs,脚本,bat,批处理,删除,自身,方法,自杀,下面,保存为,selfkill,vbe,实现,代码,如下,set,fso,scripting

VBS脚本和BAT批处理自身删除的方法（自杀） 删除自身之：VBS 把下面的脚本保存为selfkill.vbs或selfkill.vbe： 实现代码如下： Set fso = CreateObject("Scripting.FileSystemObject") f = fso.DeleteFile(

2020-02-16 标签:vbscript,压缩,单个,文件,zip,格式,实现,代码,如下,error,resume,next,dim,fso,fp,oapp,targetfile,set,scripting

实现代码如下： On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:\tmp.zip" Set fp=fso.OpenText