Mostafa_Sabeti
چهارشنبه 02 مرداد 1387, 18:26 عصر
سلام.
یک مشکل با HTML Input File دارم. من در داخل یک صفحه asp.net یک Input File گذاشته ام و میخواهم که کاربر با کلیک روی دکمه browse فایلی تصویری را انتخاب کرده و در مسیری روی سرور آپلود شود . کدهای vb که من برای این کار نوشته ام را در زیر میبینید. اما هنگام اجرای این کد یک خطایی ظاهر میشود مبنی بر اینکه :fImageBrowse.PostedFile.ContentLength خالی است. لطفا راهنمایی کنید. با تشکر:بوس:
fImageBrowse نام Input file مذکور است.
Dim size_file As Integer = fImageBrowse.PostedFile.ContentLength
Dim file_path As String = fImageBrowse.PostedFile.FileName
Dim locate_file As Integer = file_path.LastIndexOf("\")
Dim len_file As Integer = file_path.Length
Dim strSave_file As String = ""
If size_file > 10240 Then
wImgErr.Text = "حجم تصوير انتخابي شما بيش از 10 كيلوبايت است.تصوير مورد نظر قابل ارسال نمي باشد."
Exit Function
End If
If file_path <> "" Then
If locate_file > -1 Then
strSave_file = MapPath("").Substring(0, MapPath("").LastIndexOf("\")) + "Users_Image\" & file_path.Substring(locate_file, len_file - locate_file)
fImageBrowse.PostedFile.SaveAs(strSave_file)
Else
strSave_file = MapPath("").Substring(0, MapPath("").LastIndexOf("\")) + "Users_Image\" & file_path
fImageBrowse.PostedFile.SaveAs(strSave_file)
End If
End If
یک مشکل با HTML Input File دارم. من در داخل یک صفحه asp.net یک Input File گذاشته ام و میخواهم که کاربر با کلیک روی دکمه browse فایلی تصویری را انتخاب کرده و در مسیری روی سرور آپلود شود . کدهای vb که من برای این کار نوشته ام را در زیر میبینید. اما هنگام اجرای این کد یک خطایی ظاهر میشود مبنی بر اینکه :fImageBrowse.PostedFile.ContentLength خالی است. لطفا راهنمایی کنید. با تشکر:بوس:
fImageBrowse نام Input file مذکور است.
Dim size_file As Integer = fImageBrowse.PostedFile.ContentLength
Dim file_path As String = fImageBrowse.PostedFile.FileName
Dim locate_file As Integer = file_path.LastIndexOf("\")
Dim len_file As Integer = file_path.Length
Dim strSave_file As String = ""
If size_file > 10240 Then
wImgErr.Text = "حجم تصوير انتخابي شما بيش از 10 كيلوبايت است.تصوير مورد نظر قابل ارسال نمي باشد."
Exit Function
End If
If file_path <> "" Then
If locate_file > -1 Then
strSave_file = MapPath("").Substring(0, MapPath("").LastIndexOf("\")) + "Users_Image\" & file_path.Substring(locate_file, len_file - locate_file)
fImageBrowse.PostedFile.SaveAs(strSave_file)
Else
strSave_file = MapPath("").Substring(0, MapPath("").LastIndexOf("\")) + "Users_Image\" & file_path
fImageBrowse.PostedFile.SaveAs(strSave_file)
End If
End If