2015 年 1月 13 日随笔档案 - futrueface

公告

2015年1月13日

摘要： Dim picPathpicPath="d:\pictrue\"Set fso=CreateObject("scripting.filesystemobject")Set files=fso.GetFolder(picpath).FilesFor Each file In files If I... 阅读全文

posted @ 2015-01-13 23:21 futrueface 阅读(309) 评论(0) 推荐(0)

VBS在指定范围内生成不重复的随机数

摘要： Dim Z()ReDim Z(15)For i=0 To UBound(Z) Z(i)=GetRndNum(i-1,UBound(Z)) WScript.Echo Z(i)NextFunction GetRndNum(n,length) Randomize x=CInt(le... 阅读全文

posted @ 2015-01-13 14:20 futrueface 阅读(512) 评论(0) 推荐(0)

vbs下载文件

摘要： Dim Url,SavePath,FilenameUrl="http://www.kumi.cn/photo/43/7e/63/437e636e413071e3.jpg"SavePath = "C:\Users\Administrator\Desktop\"Filename ="a.png"down... 阅读全文

posted @ 2015-01-13 13:50 futrueface 阅读(493) 评论(0) 推荐(0)