说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

怎样得到当前目录下的文件列表

编辑:说三道四文库 发布时间:2018-01-22 08:43
HTML文档下载 WORD文档下载 PDF文档下载
我是一个初学者谢谢
<%@ Language=VBScript %>

<BODY>
<form action="http://mengxianhui/asp/File.asp" method="post">
文件夹:<input name=fd value="d:\">
<input type=submit>
</form>

<%
'On Error Resume Next
If Request.Servervariables("REQUEST_METHOD") = "POST" Then

Dim fso
Dim TabStop
Dim NewLine
NewLine = Trim(Request.Form("fd"))

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Dim strRootDoc
Dim html
getFolderList fso.GetFolder(NewLine),"",0

'给出一个文件夹,列出其下的所有文件夹

End IF
Function getFolderList(oFolder,html,n)
Set fc = oFolder.Files
For Each f1 in fc
Response.write "文件名字:" & f1.name & ",<font color=red>路径:" & f1.ParentFolder & "</font><br>"
        Next

End Function

%>
</BODY>
</HTML>
TOP30专访:Splashtop研发中心总经理Alex Xu 2012Q3国内App开发者半数以上入不敷出 细微之处见真章 为什么要在try-catch-finally里加大括号 独立开发者:面对攻击就要“脸皮厚+更自豪” IBM纳米光子芯片对付大数据 单个通道25Gbps 【严肃帖】急问,中兴通讯(深圳)的海外营销部要我明天签,签不签咧? VB6在WIN98中如何仅仅只屏蔽掉WIN键? 在datagrid中绑定一个多表联结的select语句后,如何使用update的存储过程. (c#.net) 急切:WinXP Pro 安装.net IIS中的默认网站不能启动 一启动即报“发生意外错误0x8ffe2740”!!!请教思归等高手!在线 oracle9i odbc出错 如何解决web自定义控件设计时,属性不能呈现的问题? 谁有vmware for linux的注册机呀(注册后没有时间限制) Directx3D测试时说内存不足,3D游戏不能玩,怎么办啊,! 求一对多表数据的处理方案,急! 超导体的电阻率为零吗?超导体的电阻率一定为零吗? 气体、液体和固体都有扩散现象,由扩散现象,我们可以 未来新能源要环保和可再生的,我实在想不出来. 某些物质在很低的温度时,电阻就变成了零,这种现象称 关于未来新能源要写作文,未来新能源,要求忘了··· 超导时,电阻变为0,电阻里到底发生了什么?为什么就 新能源有哪些?其前景如何? 发生超导现象,导体电阻将变为(_)? 我们未来的新能源是什么? 英国乔治小王子教父母共7人 多为威廉美军将撤离阿富汗 价值70亿美元军需分析称政府再停摆凸显美国政治新焦点劝诫移民“回家”广告遭批 英国取消推新加坡消费者花数万元上金融课讲师竟是五大联赛重燃战火金陵中学河西分校自己编教材五大联赛重燃战火传联想有意全盘收购黑莓2032年撞地球?我的罪恶我不是盗墓贼火影无限之恨明星笔记三千综漫古运河旅游武昌起义纪念馆旅游洪山广场旅游黄崖水关旅游黄崖关旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘