2020-02-16 标签:vbs,清空,iis,log,登录,ip,记录,option,explicit,dim,sourcefile,ipaddress,objargs,const,destfile,tempfile,forwriting,text,fso

Option ExplicitDim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim Text Dim fso,objNet,ServiceObj Dim txtStream, txtSt

2020-02-16 标签:asp,80070005,80070006,fso,问题,解决方法,server,0178,c,windows,winsxs,文件夹,加上,eveeryone,用户,重启,iis

Server.CreateObject 'ASP 0178 : 80070005' 80070006 FSO等问题终级解决方法在C:\WINDOWS\WinSxS文件夹上加上eveeryone用户，重启IIS，试下可以不，不行的话给everyone完全控制的权限，如果还不行，试试下边的说法吧 由于以

2020-02-16 标签:vbs,实现,emule,电驴,自动关机,脚本,代码,set,fso,scripting,ws,wscript,shell,count,until,chksize

Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1chksize = fso.GetFo

2020-02-16 标签:vbs,fso,移动,文件夹,问题,set,objfso,scripting,movefolder,c,scripts,d,权限,拒绝

跨盘移动文件夹的怪问题 Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder "C:\Scripts" , "d:\2" 权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除 ===========

2020-02-16 标签:vbs,sort,排序,function,fsortarray,dim,oarraylist,ielement,set,system,collections,arraylist,ubound,add,next,end,myarray

Function fSortArray(aSortThisArray) Dim oArrayList, iElement Set oArrayList = CreateObject( "System.Collections.ArrayList" ) For iElement = 0 To UBoun

2020-02-16 标签:asp,修改,文件,和文,名字,代码,使用,文件系统,对象,getfile,函数,得到,n,ame,属性,实现,如下

修改文件的名字 使用“FileSystemObject(文件系统对象)”的GetFile函数得到一个“文件对象”，然后修改这个“文件对象”的name属性 实现代码如下：set fso=Server.CreateObject("Scripting.FileSystemObject") set file

2020-02-16 标签:vbs,下一,特殊,路径,方法,总结,fso,常数,依赖,函数,很遗憾,的是,对应

1、用FSO的SpecialFolder常数 FSO的SpecialFolder常数依赖的函数为GetSpecialFolder(SpecialFolder)，很遗憾的是，SpecialFolder常数只有3个，0-2，0对应WindowsFolder，就是你的Windows文件夹，如果你的系统装在

2020-02-16 标签:asp,遍历,目录,子目录,函数,language,vbscript,以及,下文,function,bianli,path,set,fso,server,scripting

---"Response.write Objfile.nameNextResponse.write ""Bianli(nowpath)'递归NextSet Objfolder=nothingSet Objsubfolders=nothingSet Fso=nothingEnd Function%&g

2020-02-16 标签:emule,自动关机,脚本,dir,e,temp,set,fso,scripting,cmd,shutdown,s,f,t,60,ws,wscript,shell

dir="E:\Temp" Set fso=CreateObject("Scripting.FileSystemObject") cmd="shutdown -s -f -t 60" Set ws=WScript.CreateObject("WScript.Shell") Wscript.Echo