vb.net 写的 asp.net 读取指定文件夹里的全部文件

[LHRSoft]

需要一个 vb.net 写的 asp.net 读取网站下一个指定目录里的全部文件，显示在网页上，要求有文件的大小。

[Overriding]

Dim ss As New DirectoryInfo(directorypath)
dim aa as new arraylist=ss.GetFiles("*.txt")
dim counter as integer
for counter=0 to aa.count-1
dim file as new fileinfo(aa(counter))
response.write(file.length)

next

[Overriding]

ss.getfiles("*.txt")可以指定类型，如果未空表示全部文件。

[LHRSoft]

to zhanqiangz(闲云野鹤):

前面要引入什么命名空间呢？能把前面的引用也写出来吗？比如 System.IO.DirectoryInfo

[nnh]

<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
Dim dirInfo as New DirectoryInfo(Server.MapPath(""))
articleList.DataSource = dirInfo.GetFiles("*.aspx")
articleList.DataBind()
End Sub
</script>
<asp:DataGrid runat="server" id="articleList" Font-Name="Verdana"
AutoGenerateColumns="False" AlternatingItemStyle-BackColor="#eeeeee"
HeaderStyle-BackColor="Navy" HeaderStyle-ForeColor="White"
HeaderStyle-Font-Size="15pt" HeaderStyle-Font-Bold="True">
<Columns>
<asp:HyperLinkColumn DataNavigateUrlField="Name" DataTextField="Name" HeaderText="File Name" />
<asp:BoundColumn DataField="LastWriteTime" HeaderText="Last Write Time"
ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundColumn DataField="Length" HeaderText="File Size"
ItemStyle-HorizontalAlign="Right" DataFormatString="{0:#,### bytes}" />
</Columns>
</asp:DataGrid>