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

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

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

.rar   Scripting.FileSystemObject.rar (الحجم : 423.58 ك ب / التحميلات : 61)
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة فى إخفاء الملفات عبد الرحمن على 3 1,420 22-07-19, 10:14 AM
آخر رد: أحمد على إبراهيم
  التعامل مع البرنامج على الشبكة الحزين اوى 1 605 27-05-19, 10:10 PM
آخر رد: Ahmed_Mansoor
  مشكلة عندي مشكلة في فتح قاعدة بيانات اكسس 2000 بيتم التعامل مع اكسس 97 fathyfarag122 3 835 03-10-18, 02:54 AM
آخر رد: عبدالله الصافي
  التعامل مع الماسحات الضوئية هل يوجد حل ؟ dr.mostashar 8 1,505 18-04-18, 12:19 AM
آخر رد: dr.mostashar
  التعامل مع الاداة listview dr.mostashar 1 807 19-03-18, 12:50 PM
آخر رد: hannileo
  [ تمّ الحل ] : إضافة الملفات أثناء تصطيب البرامج التّنفيذيّة عبد العزيز البسكري 13 3,260 18-01-18, 10:22 PM
آخر رد: الوايلي
  استخراج الملفات من قاعدة البيانات anes 8 1,261 16-01-18, 07:03 PM
آخر رد: مصمم هاوي
  السبيل لكود تقسيم الملفات عبدالله الصافي 19 2,765 20-12-17, 08:40 PM
آخر رد: Mohamad Anan
  عدد الملفات في مجلد dr.mostashar 1 1,352 19-07-17, 01:41 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] شرح شامل و و افي حول التعامل مع اداة الفلكس قريد larbihamri 11 2,376 04-06-17, 10:49 PM
آخر رد: larbihamri

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


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