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