用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)文章
對(duì)于版本有點(diǎn)老，所以建議學(xué)習(xí)使用，不要隨便直接運(yùn)行。2009-08-08
今天我們學(xué)習(xí)基礎(chǔ)篇的最后一個(gè)部分:自定義函數(shù)和過(guò)程. 我們每天都在和函數(shù)打交道, inputbox()是函數(shù), msgbox()是函數(shù), int()也是函數(shù)...這些函數(shù)都是系統(tǒng)內(nèi)建的, 我們只能用不能改. 今天我就教大家怎樣自己制作一個(gè)函數(shù)2007-07-07
Dynamic Activity Window動(dòng)態(tài)活動(dòng)窗口vbs
Dynamic Activity Window動(dòng)態(tài)活動(dòng)窗口2008-12-12
用vbscript實(shí)現(xiàn)文件的復(fù)制功能，主要用于一般的備份等操作2008-06-06
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法.
用VBS模擬二叉樹(shù)，可以得到一個(gè)排序辦法....2007-03-03
SQL獲取表結(jié)構(gòu)的show_table.vbs （冰點(diǎn)極限NP）
SQL獲取表結(jié)構(gòu)的show_table.vbs，用vbs實(shí)現(xiàn)查看sql數(shù)據(jù)庫(kù)的表結(jié)構(gòu)的代碼。需要傳入用戶名密碼與數(shù)據(jù)庫(kù)名稱，具體的看程序幫助。2010-11-11
VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑（附源碼）
這篇文章主要介紹了VBS遍歷文件或文件夾路徑輸入文件的所有絕對(duì)路徑的代碼,需要的朋友可以參考下2019-12-12
我修正了幾個(gè)小bug。加了一個(gè)在對(duì)方機(jī)器上直接生成一個(gè)down.vbs，用來(lái)下載用。2009-07-07
VBS教程：屬性-Count 屬性...2006-11-11
VBS教程：屬性-IsRootFolder 屬性...2006-11-11