怎樣判斷一個(gè)盤上是否有文件
更新時(shí)間:2006年10月28日 00:00:00 作者:
<%
dim objfolder
dim objfso
dim j
set fso=server.CreateObject("scripting.filesystemobject")
set objfolder=fso.GetFolder("d:/")
if objfolder.size>0 then
j=0
for each objfile in objfolder.files
j=j+1
next
if j>0 then '此盤上有文件,共有j個(gè)文件
.....
else
..... '此盤上沒有文件
end if
else
.... '此盤上沒有文件
end if
%>
dim objfolder
dim objfso
dim j
set fso=server.CreateObject("scripting.filesystemobject")
set objfolder=fso.GetFolder("d:/")
if objfolder.size>0 then
j=0
for each objfile in objfolder.files
j=j+1
next
if j>0 then '此盤上有文件,共有j個(gè)文件
.....
else
..... '此盤上沒有文件
end if
else
.... '此盤上沒有文件
end if
%>
相關(guān)文章
用ASP實(shí)現(xiàn)對(duì)MP3曲目信息的操作
用ASP實(shí)現(xiàn)對(duì)MP3曲目信息的操作...2006-10-10
vithink小文件自動(dòng)實(shí)現(xiàn)文件瀏覽下載
vithink小文件自動(dòng)實(shí)現(xiàn)文件瀏覽下載...2006-10-10
asp(vbs)fso OpenTextFile方法參數(shù)說明
OpenTextFile是asp語言中的一個(gè)方法,打開指定的文件并返回一個(gè) TextStream 對(duì)象,可以通過這個(gè)對(duì)象對(duì)文件進(jìn)行讀、寫或追加2015-04-04
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的
用XML+FSO+JS實(shí)現(xiàn)服務(wù)器端文件的...2006-10-10

