nextdim - 程序员之家

Hardware_Info.vbs 获取硬件信息的VBS代码

2020-02-16 标签:hardware,info,vbs,获取,硬件,信息,代码,实现,如下,v,fastslzon,error,resume,nextdim,wmi,ws,fsoset,getobject,winmgmts

实现代码如下：'Hardware_Info.vbs v1.1 BY: fastslzOn Error Resume NextDim WMI,WS,FsoSet WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\ci

vbs搜索文件名或者得到目录列表

2020-02-16 标签:vbs,搜索,文件名,得到,目录,列表,网上,程序,改得,方便,了点,效率,很好,实现,代码,如下,error,resume,n

'把网上的一个小程序改得方便了点，这个搜索次效率很好。实现代码如下：on error resume nextDim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPathConst MY_CO

ASP

asp下利用fso实现文件夹或文件移动改名等操作函数

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

ASP

asp通过JMAIL实现通用发送函数

2020-02-16 标签:asp,通过,jmail,实现,通用,发送,函数,sendmail,mailtoname,subject,mailbody,fromname,mailfrom,priority,参数,接收,邮件,地址,接收者

'****************************** function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)on error resume nextDim JMailS

用VBScript可执行程序+Xmlhttp下载备份网上文件的代码

2020-02-16 标签:vbs,可执行,程序,xmlhttp,下载,备份,网上,文件,代码,今天,突然,想到,做一个,网站,上的,数据库,本地,机上,简单,做成

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。 'On Error Resume NextDim iRemote,iLocaliRemote = InputBox("请输入远程文件路径：")Set xPost = Cr

ASP

asp 将日期格式化为需要的格式

2020-02-16 标签:asp,日期,格式化,需要,格式,函数,formatdate,dateandtime,para,参数,时间,样式,作者,阿里,西西,2007,12,描述,示例

'****************************** Public Function FormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeFormatDate = DateA

与 nextdim 相关的软件列表