asp常用文件操作函数(一)

<%
    
    '*******************************************************
    '函数名：CreateFolder(sPath)
    '作  用: 创建目录
    '参  数：sPath : 创建的相对目录路径
    '返回值：成功 true , 失败 false
    '*******************************************************
    'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
    Function CreateFolder(sPath)
        On Error Resume Next
        
        Dim Fso,Arrfolder,Folder,i,j    
        If sPath="" then
            CreateFolder = False
            Exit Function
        End If
        
        If Left(sPath,1) = "/" Then
            Folder = "/"
            sPath = Mid(sPath,2,Len(sPath))
        Else
            Folder = "./"
        End If
        
        if Right(sPath,1) = "/" then sPath = Left(sPath,Len(sPath)-1)
        ArrFolder = Split(sPath,"/")
        
        Set Fso = Server.CreateObject("Scripting.FileSyste