(13-01-18, 07:56 PM)anes كتب : (12-01-18, 08:28 PM)Amir_alzubidy كتب : (12-01-18, 06:16 PM)anes كتب : بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه
السلام عليكم و رحمة الله
السؤال الأول و السؤال الثاني :
الف شكر لك اخي العزيز امين على المثال الجميل
الله يجازيك الف خير 
اخي الكريم هناك مشكلة صغيرة بالكود
هو لما غير المسار لا يعطيني عدد الملفات الموجودة صحيح
كود الزر
كود :
Private Sub Command1_Click()
On Error GoTo Test_Error:
Dim Object_System, FolderPath, UDBI_System
Set Object_System = CreateObject("Scripting.FileSystemObject")
FolderPath = Environ("AppData") & "\bt\" ' ÇÓã ÇáãÌáÏ æ ãÓÇÑå
Set UDBI_System = Object_System.GetFolder(FolderPath)
If (UDBI_System.Files.Count = 0) Then
MsgBox "ÇáãÌáÏ ÝÇÑÛ", vbInformation
Else
MsgBox "ÇáãÌáÏ áíÓ ÝÇÑÛÇð æ íÍÊæí Úáì ãáÝÇÊ ÚÏÏåÇ : " & UDBI_System.Files.Count & " ãáÝ ", vbExclamation, "ãáÇÍÙÉ"
End If
Set Object_System = Nothing
Exit Sub
Test_Error:
If Err.Number = 76 Then MsgBox "ÊÃßÏ ãä æÌæÏ ÇáãÌáÏ Ýí ÇáãÓÇÑ ÇáãÍÏÏ", vbCritical, "ãáÇÍÙÉ"
End Sub
