yldfree的博客

vscript 流程控制语句

'创建快捷方式 Dim deskTopPath,shell,link Set shell = CreateObject("wscript.shell") deskTopPath = shell.SpecialFolders("DeskTop")                              ' 获得桌面路径 Set link = shell.CreateShor

Dim shell,index Dim arrayTemp,ArrayLen Dim aryStr aryStr = "Please Keep The Desktop Clearing Thank You!" arrayTemp = Split(aryStr)                             ' 将字符串转为数组空格分隔 ArrayLen = UBound

vbscript 过程和函数

' 对文件夹进行遍历 Dim fso,folder,file,FileInfo Set fso = CreateObject("scripting.filesystemobject") Set folder = fso.GetFolder("D:\yld的文件\常见问题") ' 获得文件夹对象 ' 文件夹对象的属性中有个files这是个文件对象数组,  For Eac