LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

ASP怎样检测某个目录是否存在,不存在则自己主动创建

admin
2024年9月24日 12:9 本文热度 576

folder=server.mappath("/imagess")

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(Server.mappath(filepath)) then

  respnse.write("都有了还建什么建")

else

  fso.createfolder(folder)

end if

Set fso = nothing


Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(Server.MapPath(SavePath))=false Then

  objFSO.CreateFolder(Server.MapPath(SavePath))

End If


folder=server.mappath("/imagess")

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileexists(Server.mappath(filepath)) then

  respnse.write("都有了还建什么建")

else

  fso.createfolder(folder)

end if

Set fso = nothing


都不完好,我想楼主的意思是创建无极深度文件夹吧,给个我写的: 

'创建新目录(同意无级创建)

Public Function CreateFolder(FolderPath)

Dim sObjFSO

Dim arrFolder

Dim i


Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject")

FolderPath = Replace(FolderPath,"\","/")

arrFolder = Split(FolderPath,"/")

On Error Resume Next


For i = 0 To UBound(arrFolder)

If i > 0 Then arrFolder(i) = arrFolder(i-1) & "/" & arrFolder(i)

If Not sObjFSO.FolderExists(arrFolder(i)) Then

sObjFSO.CreateFolder(arrFolder(i))

End If

Next

CreateFolder = True


If Err.number <> 0 Then

CreateFolder = False

Err.Clear

End If

End Function


创建目录

dim fso,SavePath

SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")

set fso = server.CreateObject("scripting.filesystemobject") 

if fso.FolderExists(SavePath)=false then 

fso.createfolder(SavePath) 

end if

set fso=nothing


删除目录

dim fso,SavePath

SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")

set fso = server.CreateObject("scripting.filesystemobject") 

if fso.FolderExists(SavePath)=true then 

fso.deletefolder(SavePath) 

end if

set fso=nothing


拷贝文件

dim fso

set fso=server.CreateObject("scripting.filesystemobject")


sub copyfiles(path,path2)

  set mycopy=fso.getfile(path)

  response.flush()

  mycopy.copy path2

  response.write("<b>installed success !  </b>"&path2&"<br>")

  response.Flush()

end sub

call copyfiles(Server.MapPath("../无标题2.bmp"),"D:\站点项目\photo\aspupload\07_images\")


该文章在 2024/9/24 16:57:14 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved