12-01-18, 06:16 PM
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه
وجزاكم الله خيرا 
12-01-18, 08:28 PM
13-01-18, 03:01 PM
13-01-18, 07:56 PM
(12-01-18, 08:28 PM)Amir_alzubidy كتب : [ -> ](12-01-18, 06:16 PM)anes كتب : [ -> ]بسم الله الرحمن الرحيماحتاج كود التاكد من المجلد ان كان فارغ ام لاوكود انشاء ملف تكست والكتابة عليه
السلام عليكم و رحمة الله
السؤال الأول و السؤال الثاني :
الف شكر لك اخي العزيز امين على المثال الجميل
الله يجازيك الف خير
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 Sub14-01-18, 05:59 AM
14-01-18, 02:39 PM
14-01-18, 04:04 PM
14-01-18, 04:06 PM
(14-01-18, 04:04 PM)Amir_alzubidy كتب : [ -> ]تأكد من وجود المجلد في المسار المحدد !
تم انشاء جدول في المسار المحدد و تم التحقق من محتوياته و يأتي بنتائج ايجابية
ما المشكلة ؟
المجلد موجود اخي
تم الحل اخي