西安做网站ASP文件操作类

14142012-05-29

'==================================================
'函数名:myfso
'作  用:创建文件夹和index.xml文件
'参  数:path ------文件夹(url)
'返  回:无
'==================================================
function myfso(byval path)
  dim fso,f
  Set fso = CreateObject("Scripting.FileSystemObject")
  If fso.FolderExists(server.MapPath(path)) Then
    Set f = fso.GetFolder(server.MapPath(path))
  Else
    Set f = fso.CreateFolder(server.MapPath(path))
  End If
  set f=nothing
  set fso=nothing
end function
'==================================================
'函数名:myfind
'作  用:遍历文件夹
'参  数:path ------文件夹(url)
'返  回:无
'==================================================
function myfind(byval path)
  dim paths,subpath,i
  path=replace(replace(path,"\","/"),"//","/")
  paths=split(path,"/")
  for i=0 to UBound(paths)-1
  subpath=subpath & paths(i) & "/"
  if cstr(left(server.MapPath(subpath),len(server.MapPath("../"))))=cstr(server.MapPath("../")) then
  myfso(subpath)
  end if
  next
end  function
'=============================================
'判断是否本地文件
'=============================================
function localhost(byval path)
if lcase(left(path,7))="http://" then
localhost=false
else
localhost=true
end if
end function
'=============================================
'删除文件
'=============================================
function del_file(Byval path)
  dim fso,msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(server.MapPath(path))) Then
  fso.DeleteFile(server.MapPath(path))
    msg = " "
  end if
  set fso=nothing
end function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1