ASP如何用fso检测某文件夹是否存在,不存在则自动创建——同城生活贴吧——123发布网|123同城网|123同城信息网|免费发布信息|123招聘|123交友|123房产

登录123 | 账号: 密码: 商铺贴吧

今天是：


供应求购	免费商铺	商业资讯	库存二手	黄页大全		生活贴吧	房屋租售	招聘求职	婚恋交友	自助广告

ASP如何用fso检测某文件夹是否存在,不存在则自动创建

发布时间：2010/11/10 11:22:39 发布人：网络游民点击：201

Function CreateDIR(ByVal LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
On Error Resume Next
LocalPath = Replace(LocalPath, "\ ", "/ ")
Set FileObject = server.CreateObject( "Scripting.FileSystemObject ")
patharr = Split(LocalPath, "/ ")
path_level = UBound(patharr)
For i = 0 To path_level
If i = 0 Then pathtmp = patharr(0) & "/ " Else pathtmp = pathtmp & patharr(i) & "/ "
cpath = Left(pathtmp, Len(pathtmp) - 1)
If Not FileObject.FolderExists(cpath) Then FileObject.CreateFolder cpath
Next
Set FileObject = Nothing
If Err.Number <> 0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function

newdir = "c:\200308 "
cRes = CreateDIR(newdir)

回复此帖

#1楼回复： re:ASP如何用fso检测某文件夹是否存在,不存在则自动创建

网络游民 [2010/11/10 11:23:12]

楼主给出的是功能很完备的函数，如果就事论事也可以写的简单一点：

dim fso, folderPath
set fso = server.CreateObject( "Scripting.FileSystemObject ")
folderPath = server.MapPath( "200308 ")
if not fso.FolderExists(folderPath) then
fso.CreateFolder(folderPath)
end if
set fso = nothing

#2楼回复： re:ASP如何用fso检测某文件夹是否存在,不存在则自动创建

网络游民 [2010/11/10 11:23:41]

'定义 FileSystemObject 对象，文件夹路径
dim fso, folderPath
'创建 FileSystemObject 对象
set fso = server.CreateObject( "Scripting.FileSystemObject ")
'将相对目录转换为绝对路径
folderPath = server.MapPath( "200308 ")
'如果不存在这个文件夹
if not fso.FolderExists(folderPath) then
'创建之
fso.CreateFolder(folderPath)
end if
'用完了，释放 FileSystemObject 对象(不要忘了这一步)
set fso = nothing

页次：1/1 每页10 总记录数2　

分页： 1

※

发布回复

↓请遵循123发布网同城生活贴吧/论坛发帖规则；↓寻一夜情、包养、招嫖类信息的一律全部删除，并报公安备案↓

回复标题：
回复内容：
上传图片：
验证码：