14-01-18, 04:22 AM
(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