strDir = "~/directoryname/"<br>
<br>
Private Sub createHyperlinks(ByVal strDir As String)
Dim i As Integer = 1
For Each file As String In Directory.GetFiles(Server.MapPath(strDir))
If Path.GetFileName(file).EndsWith(".aspx") Then
Dim lnk As New HyperLink
PlaceHolder1.Controls.Add(GetLiteral("<br />"))
lnk.ID = "lnk" & i.ToString()
lnk.NavigateUrl = strDir & Path.GetFileName(file)
lnk.Text = Mid(Path.GetFileName(file), 1, (Path.GetFileName(file)).IndexOf("."))
PlaceHolder1.Controls.Add(lnk)
i += 1
End If
Next
End Sub
Private Function GetLiteral(ByVal text As String) As Literal
Dim rv As Literal
rv = New Literal
rv.Text = text
Return rv
End Function
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:PlaceHolder ID="PlaceHolder1" runat="server"></asp:PlaceHolder>
</div>
</form>
</body>
</html>
No comments :
Post a Comment