السلام عليكم ورحمة الله وبركاته
اريد ان اعمل برنامج مشايه لبرنامج
windows clean up
فاريد ان اعرف كيفية مسح محتويات فولدر بالكامل مثل مجل الtemp دون ان تظهر للمستخدم اي رسالة خطا اثاء المسح
ولكم جزيل الشكر
سبحان الله وبحمده سبحان الله العظيم
الله وحده لا شريك له له الملك وله الحمد وهو علي كل شيئ قدير
سبحان الله والحمد لله ولا اله الا الله الله اكبر
لا حول ولا قوة الا بالله العلي العظيم
ما زال الرجل عالما طالما يتحري العلم فان قال علمت .... فقد جهل .
سنعتمد على خاصية KILL وهذا هو الكود لعمل ذلك
Private Sub Command1_Click()
Dim it As String
it = ("C:\Folder" & "\" & "*.*")
Kill it
End Subقم بعمل مجلد بأسم Folder على القرص C وضع بداخله ملفات وجرب
تم تعديل هذه المشاركة بواسطة HnHn في 6 نوفمبر 2006 في 16:45
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةهذه الطريقة الأفضل لمسح الفولدر وكل محتوياته
Public Function deldir(chemin As String) As Boolean
traitement:
deldir = False 'indicateur de fonction
myname = Dir(chemin & "\*.*", vbDirectory)
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If (GetAttr(chemin & "\" & myname) And vbDirectory) = vbDirectory Then
result = deldir(chemin & "\" & myname)
If result = False Then
Exit Function
End If
GoTo traitement
Else
Kill chemin & "\" & myname
End If
End If
myname = Dir
Loop
RmDir chemin
deldir = True
End Function
مشكورين ASDSUEZ و الاخ العزيز hnhn و min2max
ما زال الرجل عالما طالما يتحري العلم فان قال علمت .... فقد جهل .
Project menu -> References
ثم أختر
Microsoft Scripting Runtime
وأضغط موافق
ثم أستعمل الكود التالى :
Dim FSO As New FileSystemObject
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…