ASP创建多级文件夹

来源:赵克立博客分类: ASP 标签：--发布时间:2014-04-29 06:04:39最后更新:2014-04-29 06:04:39浏览:3079

本文为博主原创文章，转载请声明原文链接...谢谢。o_0。

原文链接:

http://www.zhaokeli.com /article/1635.html

更新时间：

2014-04-29 06:04:39

温馨提示：

学无止境,技术类文章有它的时效性,请留意文章更新时间,如发现内容有误请留言指出,防止别人"踩坑",我会及时更新文章

'============================== '
'创建多级目录，可以创建不存在的根目录' 
'参数：要创建的目录名称，可以是多级' 
'创建目录的根目录从当前目录开始' 
'''调用举例 '
''Call CreateFolder("/upload/jumbot/myphoto/")' 
'============================== 
	Function CreateMultiFolder(ByVal CFolder) 
		Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder 
		Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo 
		BlInfo = False 
		CreateFolder = CFolder 
		On Error Resume Next 
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
		If Err Then 
		Err.Clear() 
		Exit Function 
		End If 
		If Right(CreateFolder, 1) = "/" Then 
		CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) 
		End If 
		CreateFolderArray = Split(CreateFolder, "/") 
		For i = 0 To UBound(CreateFolderArray) 
		CreateFolderSub = "" 
		For ii = 0 To i 
		CreateFolderSub = CreateFolderSub & CreateFolderArray(ii) & "/" 
		Next 
		PhCreateFolderSub = Server.MapPath(CreateFolderSub) 
		If Not objFSO.FolderExists(PhCreateFolderSub) Then 
		objFSO.CreateFolder(PhCreateFolderSub) 
		End If 
		Next 
		If Err Then 
		Err.Clear() 
		Else 
		BlInfo = True 
		End If 
		CreateFolder = BlInfo 
		set objfso=nothing
	End Function