try
<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<script language="VB" runat="server">
Sub Page_Load(sender as Object , e as EventArgs)
Dim sDir as string = Server.MapPath(".")
Dim di as DirectoryInfo = new DirectoryInfo(sDir)
Dim flist as FileInfo() = di.GetFiles("*.*") DropDownList1.DataSource = flist
DropDownList1.DataBind()
End Sub
</script>
<form runat="server">
<asp:DropDownList id="DropDownList1" runat="server" />
</form>