2020-02-16 标签:使用,脚本,自动,压缩,指定,目标,下的,文件,代码,解决,这类,问题,我使,visual,basic,scripting,设计,达到,避免

为了解决这类问题，我使用Visual Basic Scripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进去，使用了一些判断。 实现代码如下： call main() Sub main() Dim fs '文件系统。 Dim f 'folder

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,cmdlib,wsc,实现,代码,如下,strcomputer,set,objcmdlib,microsoft,wscript,application,getobject,winmgmts

实现代码如下： strComputer = "." Set objCmdLib = CreateObject("Microsoft.CmdLib") Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetOb

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

2020-02-16 标签:vbs,一篇,txt,后缀,内容,保存为,html,格式,实现,代码,如下,coo,boi,wscript,arguments,count,quit,dim,fso

do.vbs实现代码如下：'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileS

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 标签:运行,同一,目录,下的,可执行,程序,vbs,代码,实现,如下,set,objshell,wscript,shell,fso,scripting

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

2020-02-16 标签:vbs,显示,选择,文件,文件夹,对话框,代码,scripting,guy,有没有,方法,让我,使用,脚本,向用,用户

一、显示“选择文件”的对话框问： 嗨，Scripting Guy！有没有什么方法可以让我使用脚本向用户显示一个对话框，供用户选择文件使用？答：您好。｜　　如果您使用的是 Windows 2000，我们不知道实现此操作的方法，至少操作系统中没有内置这样的方法。　　但如果您使用的是 Windows XP

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(