منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - شباب خطأ لا يمكن للعملية الوصول إلى الملف

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

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'. "
وطيعا يا رب يا رب تفيدوني
وسلام عليكم في لقاء اخر
وشكرا
برب

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

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

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

***
**
*

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

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

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

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

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

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

هذا اللي مطلعا روحي بعد Smile

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

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

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

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

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

Adeeb alghamdi

kslawy

@@أبورائد@@

kslawy

Adeeb alghamdi

Adeeb alghamdi

سعود

Adeeb alghamdi

sooriaty03

@@أبورائد@@