اريد كود حزف FOLDER

atif035533 كتب:

اريد كود جزف فلدر وكود عدم حزف الفلدر, اريد كود جزف فلدر وكود عدم حزف الفلدر

atif035533 كتب:

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

اريد كود حزف فلدر وكود حزف ملف

واريد كود اخر لعدم جزف الفلدر واخر لعدم جزف ملف

درورى جدا من فضلكم

:wacko: :blink: :unsure: :o

من غير زعل يا تكتب عربى بجد يا أنجليزى بجد !

---

كود حذف ملف هو Kill حذف مجلد أبحث بالمنتدى لأن فيه شوية طرق و أنت تختار.

عدم حذف ملف / مجلد تقصد Recovery :blink: ؟

اسف جدا جدا

اريد كود حذف فلدر وملف

واخر لعدم حذف الفلدر والملف

وارجو وضع النك بتاع الكود او المشروع

لا انى بدخل النت بصعوبة جدا

وجزاكم الله خيرا

لتانى مرة :

msayed2004 كتب:

عدم حذف ملف / مجلد تقصد Recovery :blink: ؟

عموما ده كود ينفع مع أى ملف أو مجلد و به أمكانية أختيار المسح الى الـ Recycle Bin أو المسح نهائيا (أن لم يتم التحديد سيتم المسح نهائيا):

'basDeleteToRecycleBin
 Option Explicit

 Private Const FO_DELETE As Long = &H3

 Private Const FOF_NOCONFIRMATION As Long = &H10
 Private Const FOF_ALLOWUNDO As Long = &H40
 Private Const FOF_FILESONLY As Long = &H80

 Private Type SHFILEOPSTRUCT
	 hWnd As Long
	 wFunc As Long
	 pFrom As String
	 pTo As String
	 fFlags As Integer
	 fAborted As Boolean
	 hNameMaps As Long
	 sProgress As String
 End Type

 Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

 Public Function ToRecycleBin(PATH As String, Optional Recycle As Boolean = False) As Boolean
 If Right(PATH, 1) = "\" Then PATH = Left(PATH, Len(PATH) - 1)
 If Len(Dir$(PATH)) <> 0 Or Len(Dir$(PATH, vbDirectory)) <> 0 Then
	Dim SHFileOp As SHFILEOPSTRUCT

	With SHFileOp
		.wFunc = FO_DELETE
		.pFrom = PATH
		.fFlags = FOF_NOCONFIRMATION Or FOF_FILESONLY
		If Recycle Then .fFlags = .fFlags Or FOF_ALLOWUNDO
	End With

	SHFileOperation SHFileOp
	ToRecycleBin = True
 End If

 End Function

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

بالنسبة لحذف ملف او حذف فولدر فان اسهل و اقوى طريقة فى وجهة نظرى هى باستخدام VBScript لان طريقة حذف الملف باستخدام Kill تعتبر غير مضمونة لان الملف قد يكون به خاصية Read-only وبالتالى اذا حاولت ان تمسح الملف بطريقة Kill سيعطيك رسالة خطأ ولن يمكنك اتمام العملية ... المثال التالى يعطيك امكانية مسح ملف او مسح مجلد باستخدام VBScript حتى لو كان بالملف خاصية Read-only

Private Sub Command1_Click()

'Delete File

Set aa = CreateObject("scripting.filesystemobject")

aa.deletefile "the path of your file", True

'Delete Folder

aa.deletefolder "the path of your folder", True

End Sub

جزاكم الله خيران

بس انا اسف اريد شرح الكود لاانى مبتدء او سورس كود يكون افضل

وبنسبة للعدم الحذف مينفعش ميتحزفش ولا اية

اعتقد أن آخر رد لى و رد اﻷخ Black Tiger عبارة عن أكواد :rolleyes: و لو بحث فى المنتدى لوجدت دروس جيدة

atif035533 كتب:

وبنسبة للعدم الحذف مينفعش ميتحزفش ولا اية

يعنى اجى ادى للفلدر امر دليت يعطينى رسالة اعتراد وميتحزفش