Mr王卡

错误800a004c.....行119..

这是那一段的代码：
Function CreateFolder(FolderPath)
        dim lpath,fs,f
  lpath=Server.MapPath(FolderPath)
  Set fs=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
  If not fs.FolderExists(lpath) then
          Set f=fs.CreateFolder(lpath)       这行出错！
          CreateFolder=F.Path
        end if
  Set F=Nothing
  Set fs=Nothing
End Function

客服星移

谢谢楼主分享，楼主辛苦了

夏天夏天1

楼主辛苦啦