您正在使用IPV4(3.236.138.35)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]文明驾车我带头,文明行路我带头,礼貌让座我带头       悟空收录网      

【腾讯云】云服务器等爆品抢先购,低至4.2元/月      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2023年 元宵节 8
2023年 情人节 17
2024年 元 旦 338
2024年 春 节 378
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门文章
保存文件,并自动创建多级文件夹
内容摘要: '*****************************************************************'function(公有)'作用:保存文件,并自动创建多级文件夹'参数:fromurl(远程文件地址),tofiles(保存位置)'************************************************......
'*****************************************************************

'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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:取得远程数据 下一篇:asp生成utf-8编码静态文件
发布日期:2022/11/14
手机扫二维码直达本页
发布时间:18:39:14
点  击:13
录  入:齐天大圣
相关文章
Baidu

YiJiaCMS 6.3.5.220928(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2023