Hi,
You can use System.IO Namespace to get the folders or files under a specific directory, and then you can loop through them to display them. If it is folder, you can add Link to another page to list its sub-folders or files; if it is a file, you can use a link to point its path to allow user to download it.
For example:
Sub GetFiles()
Try
Dim strDir As String = Request.QueryString("d")
strParent = strDir.Substring(0, strDir.LastIndexOf("\"))
'strParent += strParent.EndsWith(":") ? "\\" : ""
if strParent.endswith(":") then
strParent=strParent & "\"
End If
upLink.NavigateUrl = "files.aspx?d=" + strParent
txtCurrentDir.Text = "Address: <b>" + strDir + "</b>"
Dim DirInfo As New DirectoryInfo(strDir)
Dim subDirs As DirectoryInfo() = DirInfo.GetDirectories()
Dim Files As FileInfo() = DirInfo.GetFiles()
txtFileList.Text = "<table border=""0"" width=""50%"">"
Dim i As Integer
For i = 0 To subDirs.Length - 1
txtFileList.Text += "<tr><td><img src='images/folder.gif'><a href=""files.aspx?d=" & _
subDirs(i).Fullname & _
chr(34) &">" & subDirs(i).Name & "</a></td><td valign='bottom'>" & _
subDirs(i).LastWriteTime & "</td></tr>"
Next i
For i = 0 To Files.Length - 1
if right(Files(i).Name, 3) = "gif" or right(Files(i).Name, 3) = "jpg" then
txtFileList.Text += "<tr><td><img src='images/file.gif'><a href='" & _
strDir & "/" & Files(i).Name & "' target='_blank'>" & _
Files(i).Name & "</a></td><td valign='bottom'>" & _
Files(i).LastWriteTime & "</td></tr>"
else
txtFileList.Text += "<tr><td><img src='images/file.gif'>" & _
Files(i).Name & "</td><td valign='bottom'>" & _
Files(i).LastWriteTime & "</td></tr>"
End If
Next i
txtFileList.Text += "</table>"
Catch
txtFileList.Text = "Error retrieving directory info - Check Drive (" & strParent & ")"
End Try
End Sub
For more information, see http://aspnet101.com/aspnet101/tutorials.aspx?id=12
Besides, you can use Converter (http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx) to convert C# code to VB.NET code easily.
I look forward to receiving your test results.
Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.