VBS常用代码合集.docVIP

VBS常用代码合集(个人整理) 从系统开始菜单中删除此链接: 复制代码 代码如下:Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT/CLSID/{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=- InfoTip=- [HKEY_CLASSES_ROOT/CLSID/{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}/DefaultIcon] @=- [HKEY_CLASSES_ROOT/CLSID/{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}/Instance/InitPropertyBag] Command=- Param1=- VBS脚本实现整理磁盘碎片功能 Set WshShell = WScript.CreateObject(WScript.Shell) Dim fso, d, dc Set fso = CreateObject(Scripting.FileSystemObject) Set dc = fso.Drives For Each d in dc If d.DriveType = 2 Then Return = WshShell.Run(defrag d -f, 1, TRUE) End If Next Set WshShell = Nothing 计划任务定时调用VBS脚本 复制代码 代码如下:Option Explicit On Error Resume Next 生成列表的文件类型 Const sListFileType = wmv,rm,wma 文件所在的相对路径 Const sShowPath=. 排序类型的常量定义 Const iOrderFieldFileName = 0 Const iOrderFieldFileExt = 1 Const iOrderFieldFileSize = 2 Const iOrderFieldFileType = 3 Const iOrderFieldFileDate = 4 排序顺逆的常量定义 const iOrderAsc = 0 const iOrderDesc = 1 生成列表的文件数量 const iShowCount = 20 显示的日期格式函数 Function Cndate2(date1,intDateStyle) dim strdate,dDate1 strdate=cstr(date1) If Isdate(strdate) Then If Left(cstr(strdate),1)=0 Then dDate1=Cdate(20+cstr(strdate)) else dDate1=Cdate(strdate) End If Else dDate1=Now() End If Select case intDateStyle Case 1: Cndate2 = Cstr(Year(dDate1))+-+Cstr(Month(dDate1))+-+Cstr(Day(dDate1)) Case 2: Cndate2 = Cstr(Month(dDate1))+-+Cstr(Day(dDate1)) Case 3: Cndate2 = Cstr(Month(dDate1))+月+Cstr(Day(dDate1))+日 Case 4: Cndate2 = Cstr(year(dDate1))+年+ Cstr(Month(dDate1))+月+Cstr(Day(dDate1))+日 End Select End Function Function ListFile(strFiletype,intCompare,intOrder,intShowCount) Dim sListFile Dim fso, f, f1, fc, s,ftype,fcount,i,j,k Dim t1,t2,t3,t4,t5 Dim iMonth,iDay sListFile = Set fso = CreateObject(Scripting.FileSystemObject) Set f = fso.GetFolder(sShowPath) Set fc = f.Files fcount = fc.count redim arrFiles(fcount,5) redim arrFiles2(fcount,5) i=0 排序 For Each f1 in fc