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

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

编辑:说三道四文库 发布时间:2018-04-24 07:10
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>
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘