basic_forum
چهارشنبه 16 شهریور 1390, 22:08 عصر
سلام
کد زیر برای آپلود فایل است ، تا وقتی که روی هارد باشه ( قبل از ارسال به هاست ) مشکلی نداره اما بعد از قرارگرفتن بر روی هاست Error میده و فایلو آپلود نمیکنه .
Protected Sub cmdUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSendNIC.Click
If FileUpload1.HasFile Then
Try
Dim filename As String = FileUpload1.FileName
FileUpload1.SaveAs(Server.MapPath("~/upload/") & txtGetRahgiti.Text.ToString + "_NationalIC_" + filename)
lblPath_NIC.Text = "~/upload/" & txtGetRahgiti.Text.ToString + "_NationalIC_" + filename
MsgBox("ارسال عکس شناسنامه با موفقیت انجام شد", MsgBoxStyle.OkOnly)
imgTik1.Visible = True
Catch ex As Exception
MsgBox("خطا در ارسال ، مجدداً سعی کنید", MsgBoxStyle.OkOnly)
End Try
End If
End Sub
مشکلش چیه ؟
کد زیر برای آپلود فایل است ، تا وقتی که روی هارد باشه ( قبل از ارسال به هاست ) مشکلی نداره اما بعد از قرارگرفتن بر روی هاست Error میده و فایلو آپلود نمیکنه .
Protected Sub cmdUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSendNIC.Click
If FileUpload1.HasFile Then
Try
Dim filename As String = FileUpload1.FileName
FileUpload1.SaveAs(Server.MapPath("~/upload/") & txtGetRahgiti.Text.ToString + "_NationalIC_" + filename)
lblPath_NIC.Text = "~/upload/" & txtGetRahgiti.Text.ToString + "_NationalIC_" + filename
MsgBox("ارسال عکس شناسنامه با موفقیت انجام شد", MsgBoxStyle.OkOnly)
imgTik1.Visible = True
Catch ex As Exception
MsgBox("خطا در ارسال ، مجدداً سعی کنید", MsgBoxStyle.OkOnly)
End Try
End If
End Sub
مشکلش چیه ؟