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.111cn.net/"

if isfile(b) then
 response.write("是檔案")
else
 response.write("不是檔案")
end if