ASP生成文件夹

sub MakeNewsDir(foldername)
  dim folderos,fileos,myfolder
  set fileos=createobject(fso_sys_var)
  if foldername<>"" then
    myfolder=server.mappath(foldername)
    if not fileos.folderexists(myfolder) then
      set folderos=fileos.createfolder(myfolder)
    end if
  end if
  set fileos=nothing
end sub



      '栏目文件夹生成
      call makenewsdir("../"&m_index_url)
      call makenewsdir("../"&m_index_url&"/inc")

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 生成生成
相关日志: