2020-02-16 标签:vbs,批量,读取,文件夹,所有的,文本,excel,脚本,实现,代码,如下,code,done,kangkang,option,explicit,optional,better,use

实现代码如下： 'This code is done by KangKang@ Option explicit ‘This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Di

2020-02-16 标签:vbs,合并,多个,excel,文件,脚本,实现,代码,如下,const,4143,c,test,读取,源文件,目录

实现代码如下： Const xlWorkbookNormal = -4143 Const xlSaveChanges = 1 objStartFolder = "c:\test" '要读取的源文件目录 desExcel= "c:\result1.xls" '最后生成的汇总excel Set Exce

2020-02-16 标签:asp,实现,获取,文件夹,中文,个数,代码,如下,返回,指定,数目,传入,检测,硬盘,绝对,路径,function

实现代码如下：'返回指定文件夹中文件的数目，传入值为被检测文件夹的硬盘绝对路径 function CountFilesNumber(folderspec) Dim objfso,f,fc Set objfso=CreateObject("Scripting.FileSystemObject") Se

2020-02-16 标签:ie,cookie,文件,格式,说明,保存,documents,settings,user,cookies,目录,后缀,txt,直接,使用,api,取得,我没,发现

IE 的 Cookie 文件保存在 ?:\Documents and Settings\\Cookies 目录，后缀为.txt 可以直接使用 API SHGetFolderPath 取得 Cookie 文件的保存目录 不过我没发现 Delphi2007 有这个 API 的声明，所以自己声明了一下 代

2020-02-16 标签:asp,删除,mssql,数据库,记录,图片,代码,采用,双重,循环,进行,分割,名字,前面,部分,其余,路径,对比,vb

采用双重循环。把图片进行“.”分割后名字问前面部分，那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值>0,过可以得出结论 代码如下deal.asp 实现代码如下： " Set objFolder = objFSO.GetFolder(ff) For Ea

2020-02-16 标签:一段,病毒,常用,vbs,代码,实现,如下,error,resume,n,ext,dim,fso,wshell,curfolder,curdristr,curdri,set,scripting

实现代码如下：On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScr

2020-02-16 标签:link,view,vbs,页面,链接,查看,实现,代码,如下,set,ws,wscript,shell,dt,favorites,lnk,源文件

实现代码如下：set ws = CreateObject("WScript.Shell") dt = ws.SpecialFolders("Favorites") set lnk = ws.CreateShortcut(dt while(HTML.parentNode.tagName){HTML=H

2020-02-16 标签:fckeditor,新闻组,程序,漏洞,参数,在网,不同,目录,新建,文件夹,使用,篡改,进入,不同的,browser,default

1 CurrentFolder 参数，可以在网站中不同目录新建文件夹，参数使用 ../../来篡改参数，进入不同的目录 /browser/default/connectors/aspx/connector.aspx?Command=CreateFolder&Type=Image&Cu