• 相关软件
    >怎样判断一个盘上是否有文件 创建者:webmaster 更新时间:2005-07-02 00:18

    <%
    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个文件
    .....
    else
    ..... '此盘上没有文件
    end if
    else
    .... '此盘上没有文件
    end if
    %>

    相关文章
    本页查看次数: