كود لتحقق من وجود ملف في الجهاز

بدأه khalid antry في 17 سبتمبر 2010 · 11 رد · 1,312 مشاهدة · في قواعد بيانات Microsoft Access

#117 سبتمبر 2010 في 17:37 صاحب الموضوع

يأخوان السلام عليكم ورحمة الله وبركاته

لدي هذا الكود لتحقق من وجود ملف بالجهاز

Dim xFile
Set xFile = createObject("Scripting.FileSystemObject")
If xFile.FileExists("c:\FILLNAME.Txt") = False Then
MsgBox "الملف غير موجود"
Else
MsgBox "الملف موجود "
End If

لا أعلم ما هو الخطأ فيه وما ذا تعني هذه الرسالة

يأخوان من لديه حل أو كود آخر يقوم بتحقق من وجود ملف بالجهاز

أكون له من الشاكرين

منتظركم

ابو عمر

المرفقات

#217 سبتمبر 2010 في 19:01

ادخل ال نافذة الفيجول بيسك ثم tools ومن ثم refrence ةقم بختيار المكتبه الخاصة بهذا الكود وهو createObject ضمن قائمة المراجع الموجوده لكي يتمكن من قرائتها في الكود

حكمتي الخاصة كلما ابتعدت عن الناس صغرت في اعينهم وكلما اقتربت زاد حجمك في نضرهم

#317 سبتمبر 2010 في 20:32

فعلا ماتفضل به الاخ :: اهدنا الصراط صحيح

المثال ينقصه مكتبة أنشاء الملفات يجب تفعيلها

لأني جربت الكود وعمل معي بلا مشاكل

بالتوفيق .. شكرا أخي اهدنا الصراط

#417 سبتمبر 2010 في 22:50

ألف شكر على تجاوبكم ولكني لم أجد هذه المكتبة

هل لها اسم آخر أم ماذا

ياليت أحد يتكرم ويحملها لنا هنا

#517 سبتمبر 2010 في 23:11

حمل هذا المرفق عزيزي ،

dao360.rar

وفك الضغط عنه ، ومن ثم ضعه في هذا المسار :

C:\Program Files\Common Files\Microsoft Shared\DAO

إن كان موجودا ، إستبدله

ومن ثم إذهب إلى

start

run

واكتب :

RegSvr32 C:\Program Files\Common Files\Microsoft Shared\DAO

وإن شاء الله توفق بإذن الله تعالى

ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم

تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .

#617 سبتمبر 2010 في 23:30

اشكر اخي hamidymom

ولكن ظهرت رسالة تقول فشل العثور على الوحدة النمطية المحددة

ما هو الحل

وهل لديك كود آخر بدلا من هذا الكود لا يطلب مرجع أو مكتبة

منظرك اخوي

#717 سبتمبر 2010 في 23:44

عفوا عزيزي ، ولكن مشكلتك تنحصر في هذه المكتبة !

لذا في وقت فراغك أعد تنزيل برنامج الأوفيس عندك على الجهاز

حاول مع هذا الكود عزيزي وهو للتأكد من وجود الملف على المسار المحدد داخل الكود :

Option Compare Database

Private Sub Command0_Click()
On Error Resume Next
Dim sf As String

' حدد هنا الملف الذي تود التأكد منه عزيزي
sf = "C:\Documents and Settings\Hamidy\Desktop\pic\img\NewRecord.jpg"

If Len(Dir(sf)) = 0 Then
MsgBox "الملف على المسار: " & sf & " غير موجود ، تأكد من المسار مرة أخرى", vbInformation, "الملف غير موجود"
Else
MsgBox "الملف موجود"
End If
End Sub

وهذا ملف تطبيقي على الكود

للتأكد من أن المملف موجود على المسار المحدد.rar

ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم

تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .

#817 سبتمبر 2010 في 23:50

ألف شكر على المثال شغال 100%

اخوي هنا خطأ طريقة تسجيل المكتبة في مشاركة السابقة

regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL"

نجحة الطريقة ولكن ما هو اسم المكتبة في قائمة المراجع

اسف على الازعاج استاذي

ألف شكر مرة ثانية

#917 سبتمبر 2010 في 23:59

عفوا ، كتبت لك طريقة التسجيل بطريقة خاطئة بسببب السرعة ، آسف!

هذه هي المكتبة

المرفقات

ومامن يد إلا يد الله فوقها *** وما من ظالم إلا سيبلى بأظلم

تفضل أخي الكريم | موسوعة الحميدي الذهبية | بأجزائها الثلاثة مع هدية الموسوعة .

#1018 سبتمبر 2010 في 00:25

اشكرك على تجاوبك معي اخوي hamidymom

للأسف لم أجدها في قامة المراجع

بكره ان شاء الله اعيد تركيب الأوفس

ألفشكر لك اخي

بالتوفيق

#1118 سبتمبر 2010 في 00:34

بالاضافة الى ما ذكر اخى محمد

اليك اخى هذه الدالة و هى لا تحتاج الى مراجع

Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean
    'Purpose:   Return True if the file exists, even if it is hidden.
    'Arguments: strFile: File name to look for. Current directory searched if no path included.
    '           bFindFolders. If strFile is a folder, FileExists() returns False unless this argument is True.
    'Note:      Does not look inside subdirectories for the file.
    'Author:    Allen Browne. http://allenbrowne.com June, 2006.
    Dim lngAttributes As Long

    'Include read-only files, hidden files, system files.
    lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)

    If bFindFolders Then
        lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well.
    Else
        'Strip any trailing slash, so Dir does not look inside the folder.
        Do While Right$(strFile, 1) = "\"
            strFile = Left$(strFile, Len(strFile) - 1)
        Loop
    End If

    'If Dir() returns something, the file exists.
    On Error Resume Next
    FileExists = (Len(Dir(strFile, lngAttributes)) > 0)

End Function

و يمكنك استخدامها بهذه الطريقة

Look for a file named MyFile.mdb in the Data folder: