Shamim832
جمعه 02 مهر 1389, 21:07 عصر
مهندسین عزیزخسته نباشید
دوستان من می خوام بررسی کنم که اگه کاربران فایل هایی با نام یکسان اپلود کردند نمی خوام روی فایل قبلی نوشته شود(over write ) و می خوام با نام جدید ذخیره شود
ببینید برای اینکه اسامی تکراری نشه از ساعت دقیقه ثانیه و صدم ثانیه بصورت ترکیبی برای نام فایل می خوام استفاده کنم
یعنی نام تصاویرآپلودشده به این شکل باشن یعنی زمان آپلود به نام تصویراضافه بشه که دراینصورت فکرنکنم هیچ تصویری همنام باشه :image.jpeg/20:15:12:454
اما نمی دونم چطوری نام فایل رو تغییر بدم؟؟؟؟؟؟؟
نمی دونم این روش کارامده یا نه؟؟؟؟
یه نمونه سورس دیدم که تصاویر رو درپوشه هایی که نام اونا (نام پوشه ها : ساعت دقیقه ) بودذخیره می کرد اما به نظرمن این روش کارآمدنیست چون در اینصورت پوشه Uploads پرازپوشه هایی به این شکل می شه ؟؟؟؟؟
Dim savepath As String = Request.PhysicalApplicationPath
savepath += "Uploads\"
If FileUpload1.HasFile Then
If FileUpload1.PostedFile.ContentLength > 102400 Then '100*1024
Response.Write("حجم فایل ارسالی بیشتر از 100 کیلوبایت میباشد")
Else
If FileUpload1.PostedFile.ContentType = "image/jpeg" Then
savepath += FileUpload1.PostedFile.FileName
FileUpload1.SaveAs(savepath)
Response.Write("فایل موردنظرباموفقیت آپلودشد!!!")
Else
Response.Write("فقط فایل باپسوند(jpeg)میتواندآپلودشود !!")
End If
End If
Else
Response.Write("فایلی انتخاب نشده است")
End If
خودم یه کارایی کردم اما ارور می ده؟؟
Dim Time As String
Time = DateTime.Now.Hour.ToString() + ":"
Time += DateTime.Now.Minute.ToString() + ":"
Time += DateTime.Now.Second.ToString() + ":"
Time += DateTime.Now.Millisecond.ToString() + "\"
Dim FileName As String
Dim savepath As String = Request.PhysicalApplicationPath
savepath += "Uploads\"
If FileUpload1.HasFile Then
If FileUpload1.PostedFile.ContentLength > 204800 Then
Response.Write("حجم فایل ارسالی بیشتر از 200 کیلوبایت میباشد")
Else
If FileUpload1.PostedFile.ContentType = "image/jpeg" Then
FileName = Time + FileUpload1.PostedFile.FileName
savepath += FileName
FileUpload1.SaveAs(savepath)
Response.Write("فایل موردنظرباموفقیت آپلودشد!!!")
Else
Response.Write("فقط فایل باپسوند(jpeg)میتواندآپلودشود !!")
End If
End If
Else
Response.Write("فایلی انتخاب نشده است")
End If
باتشکر منتظر پاسخ شما دوستان هستم..
دوستان من می خوام بررسی کنم که اگه کاربران فایل هایی با نام یکسان اپلود کردند نمی خوام روی فایل قبلی نوشته شود(over write ) و می خوام با نام جدید ذخیره شود
ببینید برای اینکه اسامی تکراری نشه از ساعت دقیقه ثانیه و صدم ثانیه بصورت ترکیبی برای نام فایل می خوام استفاده کنم
یعنی نام تصاویرآپلودشده به این شکل باشن یعنی زمان آپلود به نام تصویراضافه بشه که دراینصورت فکرنکنم هیچ تصویری همنام باشه :image.jpeg/20:15:12:454
اما نمی دونم چطوری نام فایل رو تغییر بدم؟؟؟؟؟؟؟
نمی دونم این روش کارامده یا نه؟؟؟؟
یه نمونه سورس دیدم که تصاویر رو درپوشه هایی که نام اونا (نام پوشه ها : ساعت دقیقه ) بودذخیره می کرد اما به نظرمن این روش کارآمدنیست چون در اینصورت پوشه Uploads پرازپوشه هایی به این شکل می شه ؟؟؟؟؟
Dim savepath As String = Request.PhysicalApplicationPath
savepath += "Uploads\"
If FileUpload1.HasFile Then
If FileUpload1.PostedFile.ContentLength > 102400 Then '100*1024
Response.Write("حجم فایل ارسالی بیشتر از 100 کیلوبایت میباشد")
Else
If FileUpload1.PostedFile.ContentType = "image/jpeg" Then
savepath += FileUpload1.PostedFile.FileName
FileUpload1.SaveAs(savepath)
Response.Write("فایل موردنظرباموفقیت آپلودشد!!!")
Else
Response.Write("فقط فایل باپسوند(jpeg)میتواندآپلودشود !!")
End If
End If
Else
Response.Write("فایلی انتخاب نشده است")
End If
خودم یه کارایی کردم اما ارور می ده؟؟
Dim Time As String
Time = DateTime.Now.Hour.ToString() + ":"
Time += DateTime.Now.Minute.ToString() + ":"
Time += DateTime.Now.Second.ToString() + ":"
Time += DateTime.Now.Millisecond.ToString() + "\"
Dim FileName As String
Dim savepath As String = Request.PhysicalApplicationPath
savepath += "Uploads\"
If FileUpload1.HasFile Then
If FileUpload1.PostedFile.ContentLength > 204800 Then
Response.Write("حجم فایل ارسالی بیشتر از 200 کیلوبایت میباشد")
Else
If FileUpload1.PostedFile.ContentType = "image/jpeg" Then
FileName = Time + FileUpload1.PostedFile.FileName
savepath += FileName
FileUpload1.SaveAs(savepath)
Response.Write("فایل موردنظرباموفقیت آپلودشد!!!")
Else
Response.Write("فقط فایل باپسوند(jpeg)میتواندآپلودشود !!")
End If
End If
Else
Response.Write("فایلی انتخاب نشده است")
End If
باتشکر منتظر پاسخ شما دوستان هستم..