讀取目錄下的文件得到一個數(shù)組
更新時(shí)間：2006年10月28日 00:00:00 作者：
filename=dir("盤符:\*.*")
i = 0
do while filename = ""
array1 (i)=filename
i = i + 1
filename = dir("c:\*.*")
loop
VB好象也有比較好的方法，但是我不太清楚了
VBScript
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("盤符:\")
Set fc = f.Files
i = 0
For Each f1 in fc
array1(i)=f1.name
i=i+1
Next
資料來源：碧波山莊Visual Basic http://ctsvb.126.com
i = 0
do while filename = ""
array1 (i)=filename
i = i + 1
filename = dir("c:\*.*")
loop
VB好象也有比較好的方法，但是我不太清楚了
VBScript
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("盤符:\")
Set fc = f.Files
i = 0
For Each f1 in fc
array1(i)=f1.name
i=i+1
Next
資料來源：碧波山莊Visual Basic http://ctsvb.126.com
相關(guān)文章
一個實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)
一個實(shí)用的FSO－實(shí)時(shí)統(tǒng)計(jì)在線人數(shù)...2006-10-10
ASP的Global.asa使用說明...2007-07-07
在線修改Serv-U 4.2用戶密碼...2006-10-10
在線實(shí)時(shí)開通FTP&WEB...2006-10-10
ASP中FSO的神奇功能 - 權(quán)限許可...2006-10-10
FSO文件對象介紹及常用函數(shù)...2006-11-11
遍歷目錄以及目錄下文件的函數(shù)...2006-10-10
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)
用asp實(shí)現(xiàn)的代碼批量修改程序，fso相關(guān)...2006-10-10
fso的一些特殊功能...2006-10-10
用ASP做一個TOP COOL的站內(nèi)搜索...2006-10-10