[Adeeb alghamdi]

السلام عليكم
اشكر سورياتي وابو إيهاب على انهم ساعدوني وأفادوني
صراحه استفدت وسويت الي ابيه
الحين الكود ذا

PHP كود :

If System.IO.Directory.GetFiles("مسار المجلد").Length > 0 Then
            Kill("مسار المجلد\*.*")
            MsgBox("تم حذف الملف")
        Else
            Msg Box("الملف غير موجود أو ربما تم حذفه سابقا")
        End If 


مثلا ابي الملف temp ينحذف الي مساره
C:\Windows\Temp
ويوم احطه بالكود
عند مسار المجلد
واجرب البرنامج
يقلي " لا يمكن للعملية الوصول إلى الملف 'C:\Users\AdEeB\AppData\Local\Temp\FXSAPIDebugLogFile.txt' لأنه قيد الاستخدام بواسطة عملية أخرى. "
هذا الي يقلي
وجربت بالمسار ذا
C:\Users\AdEeB\Recent
يقلي " تم رفض الوصول إلى المسار 'C:\Users\AdEeB\Recent'. "
وطيعا يا رب يا رب تفيدوني
وسلام عليكم في لقاء اخر
وشكرا
برب

[kslawy]

طبيعي تأتيك رسالة بأن الملف مستخدم من برنامج آخر لأن بعض البرامج تستخدم مجلد temp لأداء مهامها فتقوم بإنشاء ملف فيه وعندما تريد أنت حذفه ستأتي الرسالة سالفة الذكر

بخصوص رسالة تم رفض الوصول ستظهر (ربما) عندما تريد حذف أو تعديل ملف أو مجلد نظام (ملفات النظام محمية لا يمكنك التعديل عليها في بعض الأحيان)

أخيراً الرجاء تصحيح شهادة التوحيد في توقيعك (السطر الثاني)

***
**
*

[@@أبورائد@@]

[COLOR="#FF0000"]شكر وإعجاب
[/COLOR]

kslawy كتب :الرجاء تصحيح شهادة التوحيد في توقيعك (السطر الثاني)

بارك الله فيك لحرصك وأكثر من أمثالك

[kslawy]

ولك مثلها وأكثر

[Adeeb alghamdi]

يعطيكم الف افيه
وشكرا على اهتمامكم

[Adeeb alghamdi]

يا شباب طيب ابي حل
مافي حل

[سعود]

هذا اللي مطلعا روحي بعد
حتى البحث ونت ماتبي تسوي شي فقط تبحث فيه مجلدات لا يمكن الوصول لها.
لكن مع الهاكر كل شيء ممكن.

[Adeeb alghamdi]

بالله ما في حل؟

[sooriaty03]

Adeeb alghamdi كتب :بالله ما في حل؟

السلام عليكم ورحمة الله وبركاته
أخي الكريم
هذا الكود سيقوم بحذف الملفات الموجودة في ملف Temp مع ترك الملفات التي تكون قيد الاستعمال وذلك بواسطة الأمر المكتوب باللون الأحمر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Files As String() = IO.Directory.GetFiles("c:\windows\Temp")
        [color=#FF0000]On Error Resume Next[/color]
        For Each File In Files
            Kill(File)
        Next
    End Sub

بالتوفيق

[@@أبورائد@@]

شكر هذه المشاركة @@أبورائد@@

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




على عجالة

أعتقد المستخدم ليس لديه صلاحية الا للمجلد التالي (لست متأكدا)
Environment.SpecialFolder.Templates





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