2020-02-16 标签:vbs,脚本,加密,解密,简易,dim,wshshell,fso,error,resume,next,set,wscript,shell,scripting

Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Ar

2020-02-16 标签:asp,利用,fso,实现,文件夹,文件,移动,改名,操作,函数,function,movefiles,sfolder,dfolder,error,resume,n,ext,dim,set

asp利用fso实现文件的移动function movefiles(sFolder,dFolder)on error resume nextdim fsoset fso = server.createobject("scripting.filesystemobject")if fso.foldere

2020-02-16 标签:vbs,实现,随机,读取,文件,一行,内容,脚本,代码,如下,randomize,set,fso,scripting,a,dictionary,file

实现代码如下：randomizeset fso=createobject("scripting.filesystemobject")set a=createobject("scripting.dictionary")set file=fso.opentextfile("a.txt")do while

2020-02-16 标签:vbs,实现,读取,文本文件,方法,文件,function,readfile,error,resume,next,set,fs,scripting,file

vbs读取文件方法Function readfile(readfilepath) 'On Error Resume NextSet fs = CreateObject("Scripting.FileSystemObject")Set file = fs.OpenTextFile(readfilepa

2020-02-16 标签:vbs,实现,cmd,功能,代码,error,resume,n,ext,d,520,inputbox,输入,命令,多个,连接,关闭,vb,窗口

用vbs实现cmd功能 on error resume nextdo while d<>"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")set q=createobject("scripting.filesystemobject")se

2020-02-16 标签:vbs,遍历,文件,随机,显示,脚本,set,ws,wscript,shell,fso,scripting,folder,getfolder,files,file

set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.currentdirectory) set files=folder

2020-02-16 标签:vbs,实现,剪切板,unix,格式,内容,处理,pc,代码,qq,复制,文本,里的,记事本,有事,可能会,框框,运行

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") Set objIE = Cre

2020-02-16 标签:asp,生成,html,方法,大全,fsoset,fs,scripting,newfile,server,mappath,chap,06,n,ewfile,新建,一文

方法一:FSOSet fs = CreateObject("Scripting.FileSystemObject")NewFile=Server.MapPath("/asp/chap06/at/newfile.html")'新建一文件/newfile.html,若该文件已存在，则覆盖它Set a =