Imports System.IO
Partial Class Test_directory
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim dir As New DirectoryInfo("c:\Architecture")
'Dim dir As New DirectoryInfo("\Architecture")
Dim Files As Array
Files = dir.GetFiles()
GridView1.DataSource = Files
GridView1.DataBind()
End Sub
End Class
|