怎么用vbs遍歷文件并隨機(jī)顯示-創(chuàng)新互聯(lián)

這篇文章主要介紹怎么用vbs遍歷文件并隨機(jī)顯示，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

創(chuàng)新互聯(lián)主營(yíng)焦作網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都App定制開發(fā),焦作h5微信小程序開發(fā)搭建,焦作網(wǎng)站營(yíng)銷推廣歡迎焦作等地區(qū)企業(yè)咨詢

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

以上是“怎么用vbs遍歷文件并隨機(jī)顯示”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站題目：怎么用vbs遍歷文件并隨機(jī)顯示-創(chuàng)新互聯(lián)
網(wǎng)址分享：http://muchs.cn/article8/cddeip.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、全網(wǎng)營(yíng)銷推廣、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站導(dǎo)航、網(wǎng)站維護(hù)、網(wǎng)站排名

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)