اشکال در createobject

[mandana.k]

دوستان عزیز من یک تکه برنامه با asp 3 نوشته ام که می خواهم با زدن دکمه طراحی شده در برنامه عکس جدیدی که مد نظرم است برروی عکس قدیمی که به صورت defult از طریق ole object در crystal 7 قرار داده ام کپی شود وبرنامه عکس مد نظر مرا نشان دهد ولی متاسفانه این کد تنها مسیر ونام عکس جدید را برروی مسیر ونام عکس قدیمی که از آن در گزارش استفاده کرده ام کپی می کند واگر در مسیر عکس قدیمی برویم می بینیم نام عکس جدید برروی آن کپی و عکس جدید را نشان می دهد واز عکس قدیمی خبری نیست همچنین با وجود تغییر اسم وشکل عکس قدیمی که به طور defult در گزارش استفاده شده هیچ تغییری در گزارش نشان داده نمی شود حال آن که باید در گزارش هم شکل تغییر کند .

<%
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("D:\eimpact\Attachments\Sketches\SKETCH-1.BMP") Then
filesys.CopyFile "D:\pact\Attachments\Sketches\SKETCH-7.BMP", "D:\pact\Attachments\Sketches\SKETCH-1.BMP"
%>