ارور تو Upload

[Blackk_lightt]

سلام
لطفا هر چه زودتر کمکم کنید.عجله دارم:گریه:
من برای Upload این کد ها رو نوشتم


If FileUpload1.HasFile Then
If (FileUpload1.PostedFile.ContentLength / 1024) > 250 Then
lblAllSuccess1.Text = "فایل انتخابی بیش از 250 کیلو بایت است"
lblAllSuccess1.Visible = True
Save = False
Exit Sub
End If
Image1 = Server.MapPath("Image\") & DateTime.Now.Month.ToString & "\" & DateTime.Now.ToLongDateString & "\Time(" & DateTime.Now.Hour.ToString & "," & DateTime.Now.Minute.ToString & "," & DateTime.Now.Second & ")"
Dim SourceDir As New DirectoryInfo(Image1)
If Not (SourceDir.Exists) Then
SourceDir.Create()
End If
Image1 += "\" + "1_" + FileUpload1.FileName
FileUpload1.SaveAs(Image1)

End If


رو سیستم خودم جواب میده ولی وقتی میزارم رو هاست ارور میده:متفکر:

[Nightbat]

چه error ی میده؟ ممکنه host امکان ایجاد دایرکتوری نده یا ...
error رو هم بنویس

[Blackk_lightt]

سلام
من قسمت ساخت دایرکتوری رو هم برداشتم ولی بازم درست نشد :


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Image1 As String
If FileUpload1.HasFile Then
Dim FileName As String
FileName = DateTime.Now.Day.ToString() & "_-_" & DateTime.Now.Month.ToString() & "_-_" & DateTime.Now.Year.ToString() & "_-_Time(" & DateTime.Now.Hour.ToString & "," & DateTime.Now.Minute.ToString & "," & DateTime.Now.Second & ")"
Image1 = Server.MapPath("Image")
Image1 += "\" + "1_" + FileName + FileUpload1.FileName
FileUpload1.SaveAs(Image1)
End If
End Sub

[Blackk_lightt]

اینجا برای نمونه گذاشتم:
http://www.gefp.ir/uptest.aspx
کسی نمیدونه چرا ؟

[eyes_shut_number1]

فکر کنم مشکل از هاسته

[asgari2005]

دوست گرامي
مشكل در مجوز دسترسي به كاربر Asp.net مي باشد كه فولدر مورد نظر اجازه Write نداده است
نياز مي باشد شما از طريق كنترل پنل هاست اجازه دسترسي را بدهيد و گرنه بايد با هاست تماس بگيريد و از اونها درخواست كنيد اين كار براي شما انجام بدهند

[Blackk_lightt]

سلام
ممنون مشگل تو اجازه دسترسی به پوشه بود
حل شد