'function（公有）

'作用：保存文件，并自动创建多级文件夹

'参数：fromurl（远程文件地址），tofiles（保存位置）

'*****************************************************************

PublicFunctionSaveData(byrefFromUrl,byrefToFiles)

ToFiles=trim(Replace(ToFiles,"//","/"))

flName=ToFiles

fldr=""

IfIsExists(flName)=falsethen

GetNewsFold=split(flName,"/")

Fori=0toUbound(GetNewsFold)-1

iffldr=""then

fldr=GetNewsFold(i)

else

fldr=fldr&"\"&GetNewsFold(i)

endif

IfIsFolder(fldr)=falsethen

CreateFolderfldr

Endif

Next

SaveFilesFromUrl,flName

Endif

Endfunction