أريد كود يحذف ملف معين اسمه YY موجود بجوار قاعدة البيانات

[mohamed_th]

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

لو سمحت أريد كود ينفذ امر حذف لملف موجود بجوار قاعدة البيانات 

انا استخدم الكود ده 

"aFile = "Path
Kill aFile

لكن المشكلة انه لازم يكون عندي المسار كامل ـ وانا مش عايز كده ــ انا أريد الملف الموجود بجوار قاعدة البيانات اينما كانت القاعدة

يعني بأختصار اريد المسار الخاص بالملف نفسه "Application.CurrentProject.Path\YY.txt" بس مش شغال اكيد في خطأ 

تم تعديل يونيو 29, 2020 بواسطه mohamed_th

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    Dim aFile As String
    aFile = CurrentProject.Path & "\" & "YY.txt"
    If Len(Dir$(aFile)) > 0 Then
        Kill aFile
    End If

تحياتي

[mohamed_th]