MusicGet 类(4)

        If IsExists(flName)=false then 
            GetNewsFold=split(flName,"/")
        For i=0 to Ubound(GetNewsFold)-1
            if fldr="" then
                fldr=GetNewsFold(i)
            else
                fldr=fldr&"\"&GetNewsFold(i)
            end if
            If IsFolder(fldr)=false then
                CreateFolder fldr
            End if
        Next
        SaveFiles FromUrl,flName
        End if
    End function

    '*****************************************************************
    '    function（公有）
    '    作用 ：取得远程数据
    '    参数 ：url（远程文件地址），getmode （模式:0为二进制，1为中文编码）
    '*****************************************************************
    Public Function GetData(byref url,byref GetMode) 
        'on error resume next 
        SourceCode = OXML.open ("GET",url,false)
        OXML.send() 
        if OXML.readystate<>4 then exit function
        if GetMode=0 then
        GetData = OXML.responseBody
        else
        GetData = BytesToBstr(OXML.responseBody)
        end if
        if err.number<>0 then err.Clear
    End Function

    '*****************************************************************
    '    function（公有）