asp 判断是文件或目录函数

'二款简单asp来判断文件存或目录存在的函数，在asp中这样做只要用到filesystemobject就ok了。
function isdir(givepath)
dim realpath,path,num,fs,i
set fs = createobject("scripting.filesystemobject")
path=givepath
if fs.folderexists(path)=true then
isdir=true
else
isdir=false
'fs.createfolder(realpath)
end if
set fs=nothing
end function

function isfile(fpath)
dim fs
set fs = createobject("scripting.filesystemobject")

if fs.fileexists(fpath)=false then
isfile=false
else
isfile=true
end if

set fs=nothing
end function

dim d="a"
if isdir(a) then
response.write("是目录")
else
response.write("不是目录")
end if

dim b="www.111com.net/"

if isfile(b) then
response.write("是文件")
else
response.write("不是文件")
end if