تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود التعامل مع الملفات
#1
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه
وجزاكم الله خيرا Smile
الرد }}}
تم الشكر بواسطة:
#2
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

السلام عليكم و رحمة الله 

السؤال الأول و السؤال الثاني : 

.rar   Scripting.FileSystemObject.rar (الحجم : 423.58 ك ب / التحميلات : 73)
الرد }}}
تم الشكر بواسطة: anes , bidaya , awidan76 , عبد العزيز البسكري
#3
(12-01-18, 08:28 PM)Amir_alzubidy كتب :
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

السلام عليكم و رحمة الله 

السؤال الأول و السؤال الثاني : 
انا بالمبيل ساجرب اخي عند العودة
الله يجازيك الف خير?
الرد }}}
تم الشكر بواسطة: bidaya , awidan76
#4
(12-01-18, 08:28 PM)Amir_alzubidy كتب :
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

السلام عليكم و رحمة الله 

السؤال الأول و السؤال الثاني : 

الف شكر لك اخي العزيز امين على المثال الجميل
الله يجازيك الف خير Smile
الرد }}}
تم الشكر بواسطة: awidan76
#5
(13-01-18, 07:56 PM)anes كتب :
(12-01-18, 08:28 PM)Amir_alzubidy كتب :
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

السلام عليكم و رحمة الله 

السؤال الأول و السؤال الثاني : 

الف شكر لك اخي العزيز امين على المثال الجميل
الله يجازيك الف خير Smile
اخي الكريم هناك مشكلة صغيرة بالكود
هو لما غير المسار لا يعطيني عدد الملفات الموجودة صحيح

                                                 كود الزر

كود :
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
الرد }}}
تم الشكر بواسطة:
#6
السلام عليكم و رحمة الله 
هذا تعديل السطر التابع لمسار المجلد : 
PHP كود :
FolderPath "C:\Users\" & Environ("USERNAME") & "\AppData" & "\bt\
الرد }}}
تم الشكر بواسطة: anes
#7
(14-01-18, 05:59 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
هذا تعديل السطر التابع لمسار المجلد : 
PHP كود :
FolderPath "C:\Users\" & Environ("USERNAME") & "\AppData" & "\bt\

نفس المشكل اخي الكريم


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#8
تأكد من وجود المجلد في المسار المحدد !
تم انشاء جدول في المسار المحدد و تم التحقق من محتوياته و يأتي بنتائج ايجابية
ما المشكلة ؟
الرد }}}
تم الشكر بواسطة: anes , anes
#9
(14-01-18, 04:04 PM)Amir_alzubidy كتب : تأكد من وجود المجلد في المسار المحدد !
تم انشاء جدول في المسار المحدد و تم التحقق من محتوياته و يأتي بنتائج ايجابية
ما المشكلة ؟

المجلد موجود اخي
تم الحل اخي  Smile Smile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] امل المساعده في مثال التعامل مع المخزون allayl 10 4,363 05-11-21, 05:52 PM
آخر رد: Abdellah
  مساعدة فى إخفاء الملفات عبد الرحمن على 3 2,549 22-07-19, 10:14 AM
آخر رد: أحمد على إبراهيم
  التعامل مع البرنامج على الشبكة الحزين اوى 1 1,387 27-05-19, 10:10 PM
آخر رد: Ahmed_Mansoor
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 1,938 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  التعامل مع الماسحات الضوئية هل يوجد حل ؟ dr.mostashar 8 2,994 18-04-18, 12:19 AM
آخر رد: dr.mostashar
  التعامل مع الاداة listview dr.mostashar 1 1,852 19-03-18, 12:50 PM
آخر رد: hannileo
  [ تمّ الحل ] : إضافة الملفات أثناء تصطيب البرامج التّنفيذيّة عبد العزيز البسكري 13 6,066 18-01-18, 10:22 PM
آخر رد: الوايلي
  استخراج الملفات من قاعدة البيانات anes 8 2,898 16-01-18, 07:03 PM
آخر رد: مصمم هاوي
  السبيل لكود تقسيم الملفات عبدالله الصافي 19 5,603 20-12-17, 08:40 PM
آخر رد: Mohamad Anan
  عدد الملفات في مجلد dr.mostashar 1 2,491 19-07-17, 01:41 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم