用vbs遍歷文件并隨機(jī)顯示的腳本
更新時(shí)間：2007年10月23日 21:24:51 作者：
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(ws.currentdirectory)
set files=folder.files
for each file in files
d=d & file.name & ","
next
Randomize
Do Until D = ""
s = Split(D, ",")
M = UBound(s)
h = Int(Rnd * M)
N = s(h)
sn = sn & N & vbcr
D = Replace( D, N & ",", "",1,1)
Loop
MsgBox sn
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(ws.currentdirectory)
set files=folder.files
for each file in files
d=d & file.name & ","
next
Randomize
Do Until D = ""
s = Split(D, ",")
M = UBound(s)
h = Int(Rnd * M)
N = s(h)
sn = sn & N & vbcr
D = Replace( D, N & ",", "",1,1)
Loop
MsgBox sn
相關(guān)文章
基于邏輯運(yùn)算的簡(jiǎn)單權(quán)限系統(tǒng)(原理,設(shè)計(jì),實(shí)現(xiàn)) VBS 版
基于邏輯運(yùn)算的簡(jiǎn)單權(quán)限系統(tǒng)(原理,設(shè)計(jì),實(shí)現(xiàn)) VBS 版...2007-03-03
VBS教程：VBscript屬性-Number 屬性...2006-11-11
用vbscript實(shí)現(xiàn)文件的復(fù)制功能，主要用于一般的備份等操作2008-06-06
將WMI中的DateTime類型轉(zhuǎn)換成VBS時(shí)間的函數(shù)代碼
WMI中的DateTime數(shù)據(jù)類型保存的時(shí)間格式是UTC，與VBS中的時(shí)間類型不同。2011-02-02
VBS教程：函數(shù)-Time 函數(shù)...2006-11-11
vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼
這篇文章主要介紹了vbs 自制數(shù)字益智游戲?qū)崿F(xiàn)代碼,需要的朋友可以參考下2019-04-04
這個(gè)腳本演示了如何保存與使用的MSXML到一個(gè)XML文件的信息。示例XML文件用于在網(wǎng)站上的相冊(cè)2011-12-12
枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)vbscript腳本（沒環(huán)境，沒測(cè)試）
枚舉域內(nèi)計(jì)算機(jī)個(gè)數(shù)的腳本，參考了微軟官方的代碼，有興趣的朋友可以參考下。2009-10-10
在一個(gè)vbs中包含其他vbs文件的方法...2007-03-03
vbs實(shí)現(xiàn)的eMule電驢自動(dòng)關(guān)機(jī)腳本代碼
verycd,eMule電驢官方網(wǎng)站上說：為了不違背共享精神，是不會(huì)為eMule電驢添加自動(dòng)關(guān)機(jī)功能的，這要多費(fèi)電呀，在網(wǎng)上看了一個(gè)方法，感覺非常不錯(cuò)，改掉了原代碼的不足之處2008-07-07