بستثناء هذا المستند 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
فهنا انت لست بحاجة الى وضع الامتداد
اتمنى ان تكون الصورة كاملاً وضحت لك
تحياتى لك
وتمنياتى لك التوفيق
اشكرك اخي على هاذا الكود في مشكلة بسيطه الا وهي اين اكتب اسم او امتداد الملف المطلوب عدم حذفه