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

نسخة كاملة : كود حذف الملفات في المسار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بستثناء هذا المستند FXSAPIDebugLogFile
سلام عليكم


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

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


الكود راح يكون في زر في الفروم
وعليكم السلام ورحمة الله وبركاته

حتى تقوم بتفريغ الملفات داخل مجلد 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

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

تحياتى لك
وتمنياتى لك التوفيق
(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

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

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

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