iis asp でのディレクトリ取得

DataDirectory = "C:\Temp"
'----------------- フォルダ表示 -----------------
Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(DataDirectory)
      For Each fn in f.subfolders
          ErrorFlag = (Err.Number > 0)
          if not ErrorFlag then
            Response.Write fn.Name
          end if
      Next
  Set f = nothing
Set fs = nothing
'-----------------------------------------------