مشكله في ال FileUpload1.PostedFile.ContentType

ارجو توضح الكود فكله كود HTML

انسخ الكود من Visual Studio إلى Notepad ومن ثم انسخه من Notepad إلى مكان كتابه موضوع جديد

فنسخ الكود من الفيجوال مباشرة يسبب نسخ تنسيقه أيضا

وبسبب وضعه داخل وسام منتدى code لم يظهر بالشكل المنسق

أعتقد ان الكود هو التالي:

Function Upload_Image()

If Not (FileUpload1.PostedFile Is Nothing) Then 



Dim LongFilePath As String 



Dim FileNameLength As Integer 



Dim FileName As String





LongFilePath = FileUpload1.PostedFile.FileName 



FileNameLength = InStr(1, StrReverse(LongFilePath), "\") name



FileName = Mid(LongFilePath, (Len(LongFilePath) - FileNameLength) + 2)



Select Case FileUpload1.PostedFile.ContentType

Case "image/pjpeg", "image/jpeg"



FileUpload1.PostedFile.SaveAs(Server.MapPath("Pic\Images\" & FileName))

lblLink.Text = "~/Admin/Pic/Images/" & FileName

lblState.Text = "تمت العملية بنجاج"



Return 1

Case Else



lblState.Text = "انواع الملفات المدعومه <br>image/jpeg و image/pjpeg "



Return 0

End Select



End If



Return -1

End Function

جرب اكتب اسم نوعية الملف

response.write(FileUpload1.PostedFile.ContentType)

قبل جملة select ثم انسخ النتيجة الى الكود لان كود حساس لحالة الاحرف case sensitive

جرب ما يلي:

مثلا لتفحص أن الملف من نوع jpg أو ... الخ

if(FileUpload1_Image.PostedFile.FileName.ToLower().EndsWith(".jpg"))
{
//This is jpg file
}
else
{
//Please select image (jpg) file
}

TareqVB

Arwany

شكرا على المساعده...و معذرة على الخربطه في الكود...سويت له للمشاركة بوست بدون مراجعتها.

الكود فعلا مثل ما وضحه Arwany .

عملت باقتراحاتكم ولا زالت المشكله موجوده.

قمت بكتابة الكود بدون ال select case و بدون if statement لأتأكد من عمله ...كتبته كالتالي

 

  Dim LongFilePath As String 
		Dim FileNameLength As Integer 
		Dim FileName As String


		LongFilePath = FileUpload1.PostedFile.FileName 
		FileNameLength = InStr(1, StrReverse(LongFilePath), "\") 
		FileName = Mid(LongFilePath, (Len(LongFilePath) - FileNameLength) + 2)



		FileUpload1.PostedFile.SaveAs(Server.MapPath("Pic\Images\" & FileName))
		lblLink.Text = "~/Admin/Pic/Images/" & FileName
		lblState.Text = "تمت العملية بنجاج"

		Return 1

المفاجأة أن الدود لم يعمل رغم أنه كان يعمل بشكل صحيح قبل إضافة ال select case

و الخطء يظهر في

LongFilePath = FileUpload1.PostedFile.FileName

الخطء هو"Object reference not set to an instance of an object"

Arwany..عملت بنصيحتك في الكوبي بيست :lol:

شكرا عزيزي

الظاهر انه ما في ملف موجود في fileupload1 لذلك افحص

If (fileupload1.postedfile IsNot Nothing Andalso fileupload1.postedfile.ContentLength > 0) Then

أو تأكد أن ASPNET له الصلاحيات الكاملة على المجلد الذي تقوم بالتحميل عليه

أي تأكد من الصلاحيات المعطاه على ذلك المجلد الذي تقو م بالتحميل عليه فهي خطأ وارد أيضا...

Arwany

اشتغل على ال VWD2005 و الخطء يظهر قبل الوصول للفولدر

TareqVB

فعلا...لا يوجد ملف في ال uploadfile

و تأكدت عن طريق هذا الكود

 

If Not (FileUpload1.PostedFile Is Nothing) Then
	  MsgBox("ok")
	  Return 1
Else
	  MsgBox("no")

	  Return 0
End If

من المفترض إذا اخترت ملف يظهر لي ال msgbox Ok

و لكن دائما يظهر لي No سواء اخترت ملف أو لا؟؟؟