تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود حذف الملفات في المسار
#1
بستثناء هذا المستند FXSAPIDebugLogFile
سلام عليكم


مطلوب كود حذف كل الملفات اللي في هذا المسار

C:\Users\user\AppData\Local\Temp


الكود راح يكون في زر في الفروم
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

حتى تقوم بتفريغ الملفات داخل مجلد Temp
كل ما عليك استخدام الكود التالى داخل الزر
كود :
       Dim Patch_ As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Temp\"
       For Each deleteFile In System.IO.Directory.GetFiles(Patch_, "*.*", System.IO.SearchOption.TopDirectoryOnly)
           Try
               If Not System.IO.Path.GetFileName(deleteFile) = "FXSAPIDebugLogFile" Then
                   System.IO.File.Delete(deleteFile)
               End If
           Catch
           End Try
       Next
       For Each deleteFolder In System.IO.Directory.GetDirectories(Patch_)
           Try
               System.IO.Directory.Delete(deleteFolder, True)
           Catch
           End Try
       Next

تذكر اذا كان الملف المطلوب عدم حذفه
له امتداد مثل .txt أو .log او اى كان يجب ان يتم وضعه بعد الاسم فى الكود

واذا كان الملف المشار اليه مجلد وليس ملف
فكل ما عليك استبدال السطر التالى
كود :
System.IO.Directory.Delete(deleteFolder, True)

ليصبح
كود :
               If Not System.IO.Path.GetFileName(deleteFolder) = "FXSAPIDebugLogFile" Then
                   System.IO.Directory.Delete(deleteFolder, True)
               End If

فهنا انت لست بحاجة الى وضع الامتداد
اتمنى ان تكون الصورة كاملاً وضحت لك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
(25-08-18, 09:19 AM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

حتى تقوم بتفريغ الملفات داخل مجلد Temp
كل ما عليك استخدام الكود التالى داخل الزر
كود :
       Dim Patch_ As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Temp\"
       For Each deleteFile In System.IO.Directory.GetFiles(Patch_, "*.*", System.IO.SearchOption.TopDirectoryOnly)
           Try
               If Not System.IO.Path.GetFileName(deleteFile) = "FXSAPIDebugLogFile" Then
                   System.IO.File.Delete(deleteFile)
               End If
           Catch
           End Try
       Next
       For Each deleteFolder In System.IO.Directory.GetDirectories(Patch_)
           Try
               System.IO.Directory.Delete(deleteFolder, True)
           Catch
           End Try
       Next

تذكر اذا كان الملف المطلوب عدم حذفه
له امتداد مثل .txt أو .log او اى كان يجب ان يتم وضعه بعد الاسم فى الكود

واذا كان الملف المشار اليه مجلد وليس ملف
فكل ما عليك استبدال السطر التالى
كود :
System.IO.Directory.Delete(deleteFolder, True)

ليصبح
كود :
               If Not System.IO.Path.GetFileName(deleteFolder) = "FXSAPIDebugLogFile" Then
                   System.IO.Directory.Delete(deleteFolder, True)
               End If

فهنا انت لست بحاجة الى وضع الامتداد
اتمنى ان تكون الصورة كاملاً وضحت لك

تحياتى لك
وتمنياتى لك التوفيق

اشكرك اخي على هاذا الكود في مشكلة بسيطه الا وهي اين اكتب اسم او امتداد الملف المطلوب عدم حذفه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ما هي الملفات المطلوب إرفاقها لتشغيل تقرير Microsoft Report sulim 2 195 26-11-20, 12:47 PM
آخر رد: sulim
  [VB.NET] المشكلة انني لم استطيع استدعاء الملفات pdf من قاعدة البيانات sql 304 0 199 31-10-20, 05:40 PM
آخر رد: 304
  الملفات الناتجة اكثر من المستخدمة في مكونات ديفاكسبريس ابو محمد محمد محمد 3 500 30-09-20, 12:29 AM
آخر رد: محمد كريّم
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 718 13-09-20, 06:05 PM
آخر رد: eman kh
  [سؤال] تنظيم ارفاق المستندات في قاعدة البيانات Sql واحضار الملفات حسب قيمة البحث محمد العامر 10 895 07-09-20, 12:28 AM
آخر رد: محمد العامر
  استعراض الملفات الموجودة في سلة المحذوفات EbrNaj00 2 444 02-09-20, 02:24 AM
آخر رد: EbrNaj00
  ممكن مساعده من اخواتي ومعلميني الكرام بخصوص الملفات اليوم السابع 4 511 17-08-20, 01:24 PM
آخر رد: اليوم السابع
  [VB.NET] مشاكل تحزيم المشروع وإضافة الملفات المطلوبة محمد العامر 15 1,617 11-06-20, 03:12 AM
آخر رد: محمد العامر
  عمل بحث في مجموعة من الملفات النصية Basil Abdallah 0 321 08-06-20, 06:00 PM
آخر رد: Basil Abdallah
  [سؤال] تشفير الملفات منه 1 332 28-05-20, 03:26 AM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم