منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

المشكلة ان عدد الملفات كتير
طيب سؤال متى يتم حذف الملف من Temp

ali.alfoly كتب :المشكلة ان عدد الملفات كتير
طيب سؤال متى يتم حذف الملف من Temp

السلام عليكم ورحمة الله وبركاته






هذا الأمر متروك لنظام التشغيل Windows أو إذا قمت بتنظيف الهارديسك عن طريق أداة خاصة بذلك في النظام.





السلام عليكم ورحمة الله وبركاته

انت ممكن تستخرج الملف الى مجلد انت تحدده وكذا تقدر تحذفه متى ماحبيت.
الطريقة
امسح امتداد الملف مثلا هكذا file.pdf
اجعله هكذا file
ثم اضف الملف الى الريسورس باختيار نوع other
وعند الاستخراج
وبعد ذلك تسند للاداة بشكل طبيعي

آمل ان تكون توصلت للمطلوب سواء من مشاركتي الاخيرة او من المشاركات السابقة للاخوة الفضلاء.

اظن انه يريد حماية للملفات .. فالمجلد المؤقت (اظن) انه يناسب الملفات الغير مهمة للمبرمج.

سعود كتب :اظن انه يريد حماية للملفات .. فالمجلد المؤقت (اظن) انه يناسب الملفات الغير مهمة للمبرمج.

السلام عليكم ورحمة الله وبركاته





عفواً... الحماية من ماذا؟! هل تقصد أخذ نسخة من الملف.

إذا كان كذلك، فالأداة تظهر زر الحفظ فطريقتين، وبهذه يمكن للمستخدم من حفظ نسخة من الملف.






السلام عليكم ورحمة الله وبركاته

طيب هل يمكن تعطيل ذلك الزر من الكود؟

اخوانى جزاكم الله خيرا وزادكم من علمه ونفعكم به فى الدنيا والاخرة
فعلا كان المقصود الحماية من البداية لذلك وضعت الملفات فى الريسورس وقررت عرضها فى البرنامج عن طريق هذه الاداة ولاكن فجائنا اخى ابو رائد بذلك الزر
وكما ذكر اخى سعود هل من حل لتعطيل هذا الزر

وللعلم عدد هذه الملفات يتعدى 1600 ملف
وحجمها يتعدى 1 جيجة

سعود كتب :طيب هل يمكن تعطيل ذلك الزر من الكود؟

ali.alfoly كتب :اخوانى جزاكم الله خيرا وزادكم من علمه ونفعكم به فى الدنيا والاخرة
فعا كان المقصود الحماية من البداية لذلك وضعت الملفات فى الريسورس وقررت عرضها فى البرنامج عن طريق هذه الاداة ولاكن فجائنا اخى ابو رائد بذلك الزر
وكما ذكر اخى سعود هل من حل لتعطيل هذا الزر

السلام عليكم ورحمة الله وبركاته




الحمد لله...... وجدت هذا الكود (كود الحيلة) يقوم بغلق مربع حوار Save As عند بداية ظهوره... لعله يفيد.. ولكن يجب تجربته على ويندوز عربي أيضاً للإطمئنان

ضع تايمر Timer
Enabled=True
Interval=1

وضع هذا الكود

PHP كود :

Const WM_CLOSE As UInteger = &H10
    <Runtime.InteropServices.DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True)> _
    Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
    <Runtime.InteropServices.DllImport("user32.dll", CharSet:=Runtime.InteropServices.CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInt32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Dim dialogBoxText As String = "Save As"
        SendMessage(FindWindow(Nothing, dialogBoxText), WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
    End Sub 


السلام عليكم ورحمة الله وبركاته