最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 文件自动复制 文件移动 安装程序
时间：2022-07-02 23:01:23 编辑：袖梨 来源：一聚教程网
sub install()
call fs()
set folder=fsobject.getfolder(server.mappath("."))
response.write("Installation documentation is complete,Installation of the following documents
")
for each fd in folder.files
fname=server.MapPath("./"&fd.name)
path2=server.MapPath("../"&fd.name)
for b=0 to 20
response.flush()
next
call copyfiles(fname,path2)
for s=0 to 10
response.flush()
next
next
end sub
sub copyfiles(path,path2)
set mycopy=fsobject.getfile(path)
response.flush()
mycopy.copy path2
response.write("installed success ! "&path2&"
")
response.Flush()
end sub
%>
调用方法
call install()
本站原创转载注明
相关文章
- 碧优蒂的世界角色怎么选择 09-16
- 地下城堡4骑士与破碎编年史王国骑士如何玩 09-16
- 魔法工艺拼图怎么通关 09-16
- 新三国志曹操传孙权有哪些技能 09-16
- 异星探险家超市如何搭建 09-16
- 逆战未来机甲武器怎么选择 09-16