怎樣判斷一個(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)文章
同文件夾內(nèi)文本搜索器(vbs)...2006-10-10
關(guān)于用ADO STREAM做的無組件上傳程序簡(jiǎn)單介紹
關(guān)于用ADO STREAM做的無組件上傳程序簡(jiǎn)單介紹...2006-10-10
寫入文本文件的過程函數(shù)(ASP)...2007-02-02
清空iis log 中自己登錄ip的vbs...2006-10-10
fso的一些特殊功能...2006-10-10
讀取目錄下的所有文件(包括子目錄下的所有文件)...2006-10-10
對(duì)文件的操作--建立移動(dòng)刪除文件夾...2006-10-10
fso的一些特殊功能...2006-10-10
FileSystemObject 對(duì)象...2006-10-10
FileSystemObject處理文件...2006-10-10