当前位置:asp编程网>技术教程>Asp教程>  正文

asp创建多级文件夹,可以创建不存在的根目录

2012-07-03 10:47:04   来源:网络    作者:佚名   浏览量:2476   收藏
'==============================================
' 作用:asp创建多级文件夹,可以创建不存在的根目录
' 参数:要创建的目录名称,可以是多级
' 返回逻辑值,True成功,False失败
' 创建目录的根目录从当前目录开始
' 自动创建指定的多级文件夹 
' strPath为绝对路径 
'==============================================
Function AutoCreateFolder(strPath) 'As Boolean 
        ''On Error Resume Next 
        Dim astrPath, ulngPath, i, strTmpPath 
        Dim objFSO 
        If InStr(strPath, "\") <=0 or InStr(strPath, ":") <= 0 Then 
                AutoCreateFolder = False 
                Exit Function 
        End If 
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
        If objFSO.FolderExists(strPath) Then 
                AutoCreateFolder = True 
                Exit Function 
        End If 
        astrPath = Split(strPath, "\") 
        ulngPath = UBound(astrPath) 
        strTmpPath = "" 
        For i = 0 To ulngPath 
                strTmpPath = strTmpPath & astrPath(i) & "\" 
                If Not objFSO.FolderExists(strTmpPath) Then 
                        '创建 
                        objFSO.CreateFolder(strTmpPath) 
                End If 
        Next 
        Set objFSO = Nothing 
        If Err = 0 Then 
                AutoCreateFolder = True 
        Else 
                AutoCreateFolder = False 
        End If 
End Function   
(鼠标移到代码上去,在代码的顶部会出现四个图标,第一个是查看源代码,第二个是复制代码,第三个是打印代码,第四个是帮助)


关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网