MusicGet 类(3)

        IsExists = True
        Else
        IsExists = False
        End If
    End Function

    '*****************************************************************
    '    function（私有）
    '    作用 ：利用fso检测文件夹是否存在,存在返回true,不存在返回false
    '    参数 ：folder（文件夹位置）
    '*****************************************************************
    Private Function IsFolder(byref Folder)
        If FSO.FolderExists(server.MapPath(Folder)) Then  
        IsFolder = True
        Else
        IsFolder = False
        End If
    End Function

    '*****************************************************************
    '    function（私有）
    '    作用 ：利用fso创建文件夹
    '    参数 ：fldr（文件夹位置）
    '*****************************************************************
    Private Function CreateFolder(byref fldr) 
        Dim f
        Set f = FSO.CreateFolder(Server.MapPath(fldr))
        CreateFolder = f.Path
        Set f=nothing
    End Function

    '*****************************************************************
    '    function（公有）
    '    作用 ：保存文件，并自动创建多级文件夹
    '    参数 ：fromurl（远程文件地址），tofiles （保存位置）
    '*****************************************************************
    Public Function SaveData(byref FromUrl,byref ToFiles)
        ToFiles=trim(Replace(ToFiles,"//","/"))
        flName=ToFiles
        fldr=""