الداونلود

السلام عليكم ورحمه الله وبركاته

اختي قومي بانشاء GridView وربطها ب SqlDataSource من ثم جربي

اخوي في بي شكرا لك ع مساعدتي الله يجعله في ميزان حسناتك ان شاءالله

ذحين انا عملت القريد فيو التالي

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
                        CellPadding="4" ForeColor="#333333" GridLines="None" 
                    style="direction: rtl" Width="100%">
                        <RowStyle BackColor="#EFF3FB" />
                        <Columns>
                            <asp:TemplateField HeaderText="اسم الملف">
                                <EditItemTemplate>
                                    <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
                                </EditItemTemplate>
                                <ItemTemplate>
                                    <asp:Label ID="Lbl_File_Name" runat="server" Text='<%# Bind("FILE_NAME") %>'></asp:Label>
                                </ItemTemplate>
                            </asp:TemplateField>
                            <asp:TemplateField HeaderImageUrl="~/Images/download16.png" 
                                HeaderText="حفظ/تحميل">
                                <ItemTemplate>
                                    <asp:HyperLink ID="HpLink_File" runat="server" 
                                        NavigateUrl='<%# Eval("FILE_URL") %>' Target="_blank">[HpLink_File]</asp:HyperLink>
                                </ItemTemplate>
                            </asp:TemplateField>
                            <asp:TemplateField>
                                <ItemTemplate>
                                    <asp:ImageButton ID="ImgBtn_Doc" runat="server" 
                                        AlternateText='<%# Bind("FILE_EXT") %>' 
                                        CommandArgument='<%# Bind("FILE_URL") %>' ImageUrl="~/Images/download16.png" 
                                        onclick="ImgBtn_Doc_Click" />
                                </ItemTemplate>
                            </asp:TemplateField>
                        </Columns>
                        <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                        <PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" />
                        <SelectedRowStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
                        <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                        <EditRowStyle BackColor="#2461BF" />
                        <AlternatingRowStyle BackColor="White" />
                    </asp:GridView>

وحطيت فولدر اسمه Documents

وداتا سيت فيها الحقول FILE_NAME,FILE_URL,FILE_EXT

وفي مكان الكود حطيت التالي

Imports System.IO

Partial Class DownloadFiles
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Fill_Grd_Documents()
        End If
    End Sub
    Private Sub Fill_Grd_Documents()
        Dim DirDoc As DirectoryInfo = New DirectoryInfo(MapPath("~\Documents"))
        Dim files() As FileInfo = DirDoc.GetFiles()
        Dim DsetFl As New DataSet1.DOCUMENTSDataTable
        Dim dr As DataSet1.DOCUMENTSRow
        For i = 0 To files.Length - 1
            dr = DsetFl.NewRow()
            dr.FILE_NAME = files(i).Name
            dr.FILE_EXT = files(i).Extension
            dr.FILE_URL = files(i).FullName '"http://localhost:56642/Neighborhood_New_v3/Documents/aa.pptx" '"D:\Downloads\Neighborhood_New_v3\Documents\aa.pptx" 'files(i).FullName
            DsetFl.Rows.Add(dr)
        Next
        GridView1.DataSource = DsetFl
        GridView1.DataBind()
    End Sub
    Protected Sub ImgBtn_Doc_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim I As New ImageButton
        Dim App_Type As String
        I = CType(sender, ImageButton)

        Select Case I.AlternateText
            Case ".doc", ".DOC"
                App_Type = "application/msword" 'application/ms-word

            Case ".docx", ".DOCX"
                App_Type = "application/vnd.ms-word"

            Case ".xls", ".XLS", ".xlsx", ".XLSX"
                App_Type = "application/vnd.ms-excel"

            Case ".pdf", ".PDF"
                App_Type = "application/pdf"

            Case ".ppt", ".PPT"
                App_Type = "application/ms-powerpoint"

            Case ".pptx", ".PPTX"
                App_Type = "application/vnd.ms-powerpoint"

            Case ".zip", ".ZIP"
                App_Type = "application/zip"

            Case ".jpg", ".JPG", ".jpeg", ".JPEG", ".jpe", ".JPE"
                App_Type = "image/jpeg"
            Case Else
                Exit Sub
        End Select

        Response.ContentType = App_Type
        Response.WriteFile(I.CommandArgument)
        Response.End()
    End Sub

End Class

طيب لما اجي احمل ينزل لي ملف نوت باد فيه اكواد غريبة وينزلي صفحتي الي اسمها DownloadForms

اش الخطأ الي ممكن فيه او التعديل الي ممكن اسويه

وبالنسبه للسطر

dr.FILE_URL = files(i).FullName '"http://localhost:56642/Neighborhood_New_v3/Documents/aa.pptx" '"D:\Downloads\Neighborhood_New_v3\Documents\aa.pptx" 'files(i).FullName

هل يمكنني استبداله بقيمه ثابته لاني ححط البرنامج ع سي دي فمش معقول في كل مره حغير الاكستنشن

وجزاك الله كل خير

السلام عليكم ورحمه الله وبركاته

اختي الكود الذي كتبته في السابق سيحل مشكلتك .. يعني تحطي ملفاتك كروابط, اما انت قمت بعبء في الكود لتعريف انواع الملفات .. بس ماذا لو اردت اضافة ملفات اخرى؟؟

بس اخوي ماعندي تيبل من وين حجيب الاس كيو ال داتا سورس

السلام عليكم ورحمه الله وبركاته

اختي يعني تقرأيهم من القرص الصلب؟!! مو مشكله يمكن عمل Bind لل GridView واسناد الداله GetFiles كمصدر لها

حطيت فولدر عندي اسمه documents فيها النماذج بس ماعرفت اكمل

يعني لما احمل يحملي الصفحة نفسها وليس الملف

وموضوع الامتداد انا ححطه في سي دي فكيف اغير الامتداد

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load