كيف اعمل ataach

السلام عليكم ..

1. في الــ ASP.NET يوجد مكون FileUpload تجده في الــ Tool Box الذي يأخذ نسخة من الملف و يرفعها إلى السيرفر في المكان المحدد (مع بقاء نسخة من الملف على جهاز الذي تم الرفع منه) ..
2. <form id="form1" runat="server">
   	<asp:FileUpload id="FileUploadControl" runat="server" />
   	<asp:Button runat="server" id="UploadButton" text="Upload" onclick="UploadButton_Click" />
   	<br /><br />
   	<asp:Label runat="server" id="StatusLabel" text="Upload status: " />
   </form>

3. protected void UploadButton_Click(object sender, EventArgs e)
   {
   	if(FileUploadControl.HasFile)
   	{
       	try
       	{
           	string filename = Path.GetFileName(FileUploadControl.FileName);
           	FileUploadControl.SaveAs(Server.MapPath("~/") + filename);
           	StatusLabel.Text = "Upload status: File uploaded!";
       	}
       	catch(Exception ex)
       	{
           	StatusLabel.Text = "Upload status: The file could not be uploaded. The following error occured: " + ex.Message;
       	}
   	}
   }

4. رابط المثال

بس كيف اجلب الملف

اذا عملت صفحة بحث للموظف

يا اخي استخدمت الكود التالي

 If FileUpload1.HasFile Then
            Try
                Dim filename As String = Path.GetFileName(FileUpload1.FileName)
                FileUpload1.SaveAs(Server.MapPath("E:\mm") & filename)

                Label2.Text = "Upload status: File uploaded!"
            Catch ex As Exception
                Label2.Text = "Upload status: The file could not be uploaded. The following error occured: " + ex.Message
            End Try
        End If

يظهر الي الخطأ

Upload status: The file could not be uploaded. The following error occured: 'E:\mm' is not a valid virtual path.

السلام عليكم ..

1. الــ Server.MapPath تقوم بتحويل المسار الأفتراضي (مسار ضمن الموقع) مثل

    ~/images/folder1

   إلى مسار كامل e:\images\folder1 ...

2. إما نستخدم الــ Server.MapPath مع مسار افتراضي أو مسار فيزيائي كامل مثال :

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       	If FileUpload1.HasFile Then
           	Try
               	Dim filename As String = Path.GetFileName(FileUpload1.FileName)
               	FileUpload1.SaveAs("e:\" & filename)
   
   
               	Label1.Text = "Upload status: File uploaded!"
           	Catch ex As Exception
   
               	Label1.Text = "Upload status: The file could not be uploaded. The following error occured: " + ex.Message
           	End Try
       	End If
   
   	End Sub

3. يفضل تخزين ضمن ملفات الموقع .. منعا لحدوث مشاكل عند نشر الموقع ..

جاء لي الخطأ

Upload status: The file could not be uploaded. The following error occured: Access to the path 'e:\MM266.pdf' is denied.

السلام عليكم ...

1. برمجيا , كل شئ صحيح .... و رسالة الخطأ تعني انه لا يوجد سماحيات لوضع الملف على القرص E ...
2. تاكد انك سجلت دخولك إلى الويندوز كــ Administrator ..
3. قم بحفظ الملف في مجلد , و أعطه السماحيات الكافية .. نقرة يمينية على المجلد ثم خصائص ثم Security و تأكد أن السماجية Full control هي Allow بالنسبة لــ Every One أو لــ( ASPNET أو Network Service) .
   
   رابط
4. علما أنني قمت بتجريب المثال و عمل دون خطأ على ويندوز 7 لكني أوقفت الــ User Account Control رابط

اشتغلت تمام التمام جزاك الله خير الجزاء

بس يا اخي عندما اريد ان اجلب الملف بمعنى عندما اقوم بالبحث عن موظف ما اريد اوراقه تجلب من السيرفر كيف استطيع ذلك

السلام عليكم ..

1. تقوم بتسجيل اسم الموظف و اسم الملف المرفق له في قاعدة البيانات (المنتدى ملئ بالكتب عن الأتصال بقواعد البيانات) ..
2. ضع عنصر Hyperlink على الصفحة , عندما تجد اسم الموظف و اسم الملف الخاص به استخدم الكود التالي

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       	If FileUpload1.HasFile Then
           	Try
               	Dim filename As String = Path.GetFileName(FileUpload1.FileName)
               	FileUpload1.SaveAs(Server.MapPath("~/") & filename)
               	Label1.Text = "Upload status: File uploaded!"
               	If Not String.IsNullOrEmpty(filename) Then
                   	HyperLink1.NavigateUrl = filename
               	End If
           	Catch ex As Exception
   
               	Label1.Text = "Upload status: The file could not be uploaded. The following error occured: " + ex.Message
           	End Try
       	End If
   
   	End Sub

   بشرط تخزين المرفق ضمن ملفات المشروع Server.MapPath ...