PDA

View Full Version : سوال: حذف فایل



pedram_ns
جمعه 16 مرداد 1388, 11:02 صبح
با سلام
من با برنامه aspupload یک فایل رو آپلود کردم حالا برای حذف اون فایل در هاست اول نام اون رو از دیتابیس می گیرم و سپس بوسیله کد های زیر می خوام حذفش کنم
pic=objrs("pic")
Upload.DeleteFile (Server.MapPath("images/'pic"))
اما حذف نمی شه در قسمت اخر کد که نام گرفته شده از دیتابیس بوسیله رکوردست objrs است باید چه کدی بنویسم چون اگر در قسمت اخر نام فایل موجود رو بنویسم فایل رو حذف می کنه ولی اینطوری نه؟
چه باید بکنم؟

aryaei2000
جمعه 16 مرداد 1388, 13:50 عصر
با سلام
میتونید از این کد استفاده کنید


Dim objFile
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
File_name = objrs("pic")
Upload = "/Upload"
Up_folder = server.mappath("Upload")
File_path = Up_folder & "\" & File_name
On Error Resume Next
objFile.DeleteFile(File_path)
objFile.DeleteFile(Up_folder & "\File_name)

Set ObjFile = Nothing

موفق باشید