منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود التعامل مع الملفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود التعامل مع الملفات (/showthread.php?tid=23291)

كود التعامل مع الملفات - anes - 12-01-18

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


RE: كود التعامل مع الملفات - anes - 13-01-18

(12-01-18, 08:28 PM)Amir_alzubidy كتب :
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

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

السؤال الأول و السؤال الثاني : 
انا بالمبيل ساجرب اخي عند العودة
الله يجازيك الف خير?

RE: كود التعامل مع الملفات - anes - 13-01-18

(12-01-18, 08:28 PM)Amir_alzubidy كتب :
(12-01-18, 06:16 PM)anes كتب :
بسم الله الرحمن الرحيم
احتاج كود التاكد من المجلد ان كان فارغ ام لا
وكود انشاء ملف تكست والكتابة عليه

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

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

الف شكر لك اخي العزيز امين على المثال الجميل
الله يجازيك الف خير Smile

RE: كود التعامل مع الملفات - anes - 14-01-18

(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


RE: كود التعامل مع الملفات - anes - 14-01-18

(14-01-18, 05:59 AM)Amir_alzubidy كتب : السلام عليكم و رحمة الله 
هذا تعديل السطر التابع لمسار المجلد : 
PHP كود :
FolderPath = "C:\Users\" & Environ("USERNAME") & "\AppData" & "\bt\" 

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

RE: كود التعامل مع الملفات - anes - 14-01-18

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

المجلد موجود اخي
تم الحل اخي  Smile Smile