09-12-12, 11:08 PM
أخواني الأفاضل
يبدو أن حل الموضوع ليس متوفر إلا أنه خطرت ببالي فكرة أرجو أن تكون سهلة على ذوي الخبرة.. وهي أن يتم حذف ملف الـ pdf بعد إغلاقه مباشرة بمعنى أن يعمل كود الحذف تلقائياً بعد غلق الملف وهذا كود الحذف الذي استخدمه:
أرجو أن لايكون تطبيق هذه الفكرة أصعب من سابقتها.. مع العلم أني حاولت مع خبرتي البسيطة لكن لم أفلح
وشكراً جزيلاً على كل حال
يبدو أن حل الموضوع ليس متوفر إلا أنه خطرت ببالي فكرة أرجو أن تكون سهلة على ذوي الخبرة.. وهي أن يتم حذف ملف الـ pdf بعد إغلاقه مباشرة بمعنى أن يعمل كود الحذف تلقائياً بعد غلق الملف وهذا كود الحذف الذي استخدمه:
كود :
If System.IO.File.Exists("C:\Users\user\Documents\CrystalReport1.pdf") Then
Try
Dim F As Short = FreeFile()
FileOpen(F, "C:\Users\user\Documents\CrystalReport1.pdf", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.LockReadWrite)
FileClose(F)
File.Delete("C:\Users\user\Documents\CrystalReport1.pdf")
MsgBox(" The PDF file has been Deleted..")
Catch
End Try
End Ifوشكراً جزيلاً على كل حال
