كود Kill المعروف لايقوم بحذف الملفات المخفية اريد كود لحذفه

أما أنك تظهر الملف أو تستعمل الكود التالى لمسح ملف أو مجلد , نهائيا أو الى سلة المحذوفات :

'This program needs a Common Dialog Box, named CDBox.
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
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 Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
	'KPD-Team 1998
	'URL: http://allapi.mentalis.org/
	Dim SHFileOp As SHFILEOPSTRUCT
	'Set the dialog's title
	CDBox.DialogTitle = "Select a file to delete ..."
	'Set the dialog's filter
	CDBox.Filter = "All Files (*.*)|*.*"
	'Show the 'Open File' dialog
	CDBox.ShowOpen
	With SHFileOp
		'Delete the file
		.wFunc = FO_DELETE
		'Select the file
		.pFrom = CDBox.filename
		'Allow 'move to recycle bn'
		.fFlags = FOF_ALLOWUNDO
	End With
	'perform file operation
	SHFileOperation SHFileOp
	MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title
End Sub

أما أنك تظهر الملف أو تستعمل الكود التالى لمسح ملف أو مجلد , نهائيا أو الى سلة المحذوفات :

'This program needs a Common Dialog Box, named CDBox.
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
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 Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Sub Form_Load()
	'KPD-Team 1998
	'URL: http://allapi.mentalis.org/
	Dim SHFileOp As SHFILEOPSTRUCT
	'Set the dialog's title
	CDBox.DialogTitle = "Select a file to delete ..."
	'Set the dialog's filter
	CDBox.Filter = "All Files (*.*)|*.*"
	'Show the 'Open File' dialog
	CDBox.ShowOpen
	With SHFileOp
		'Delete the file
		.wFunc = FO_DELETE
		'Select the file
		.pFrom = CDBox.filename
		'Allow 'move to recycle bn'
		.fFlags = FOF_ALLOWUNDO
	End With
	'perform file operation
	SHFileOperation SHFileOp
	MsgBox "The file '" + CDBox.filename + "' has been moved to your Recycling Bin !", vbInformation + vbOKOnly, App.Title
End Sub

قم بالتأكد من وجود الملف .

فا إن وجد يقوم بتغير حالته من الحاله المخفيه الى العاديه ومن ثم يقوم بحذفه .

كما هو موضح بالكود التالي :

	If Dir("c:\x.txt", vbHidden) <> "" Then
		SetAttr ("c:\x.txt"), vbNormal
		Kill "c:\x.txt"
	End If

بإفتراض ان مسار الملف هو ( c:\x.txt )

بالتوفيق ,,,,

A7med_prof

msayed2004 كتب:

أما أنك تظهر الملف أو تستعمل الكود التالى لمسح ملف أو مجلد , نهائيا أو الى سلة المحذوفات :

بسم الله

الاخ العزيز كيف يمكن استخدام هذه الدالة في حذف مجلدات بأكملها

افادكم الله

وشكرا

فى المثال بتاع الـ KPD Team أعتمدوا على أختيار ملف بالـ Common Dialog و مسحه , عموما المسار يعطى للدالة بالجزء pFrom من الـ Structure المسمى SHFILEOPSTRUCT

يعنى أى مسار بدل CDBox.filename

ممكن شرح الداله دي يا اخ احمد

اقتباس
SetAttr ("c:\x.txt"), vbNormal

وشكرا جزيلاا

الدالة SetAttr

وظيفتها تغيرحالة الملف فيمكنها ان تجعله مخفي او للقراءه فقط .... الخ .

وتكون صيغة هذه الدالة كالاتي:

SetAttr("مسار الملف الذي تريد اخفائة"), vbHidden

حيث انها ستقوم بإخفاء هذا الملف .

وهذه بقية البرامترز او المعاملات القاني بالقيم التالية :

- vbNormal 0 عادي

- vbReadOnly 1 للقراءة فقط

- vbHidden 2 مخفي

- vbSystem 4 ملف نظام

- vbArchive 3 أرشيف

الأخ الفاضل ...

راجع: كيفية حذف جميع الملفات داخل مجلد

شكراً