tlayt kamal قام بنشر أكتوبر 31, 2019 مشاركة قام بنشر أكتوبر 31, 2019 اخواني اعضاء المنتدى فضلا لدي ملف اكسيل رئيسي اريد وضع كود في فورم لحدف الملف المختار من الكومبوبوكس وهذه الملفات مخزنة داخل مجلد اسمه "my_f" في 😧 جزاكم الله خيرا my_regestrer.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة الـعيدروس قام بنشر أكتوبر 31, 2019 أفضل إجابة مشاركة قام بنشر أكتوبر 31, 2019 السلام عليكم بهذا الكود Private Sub CommandButton1_Click() Dim pth, Nm pth = "D:\my_f\" Nm = Me.ComboBox1.Value & ".*" If Dir(pth & Nm, vbDirectory) = "" Then MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" Else Kill pth & Nm & ".*" MsgBox "تم حذف الملف بنجاح" End If End Sub 2 رابط هذا التعليق شارك More sharing options...
tlayt kamal قام بنشر أكتوبر 31, 2019 الكاتب مشاركة قام بنشر أكتوبر 31, 2019 استاذي العيدروس مشكور على ردك السريع جربت الكود ولكن لا يحذف الملف المختار يعطي رسالة "لا يوجد ملف بنفس الاسم في المسار المحدد" اذكرك ان المجلد my_f بداخل مجلد اخر اسمه my_regestrer في D: رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 31, 2019 مشاركة قام بنشر أكتوبر 31, 2019 روح للمجلد الذي بالمسار وانسخ المسار وحطه في المتغير pth = "D:\my_f\" ولاتنسى تحط علامة "\" في نهاية المسار 1 رابط هذا التعليق شارك More sharing options...
tlayt kamal قام بنشر أكتوبر 31, 2019 الكاتب مشاركة قام بنشر أكتوبر 31, 2019 استادي العيدروس ربنا يحفظك ويزيدك من علمه بس في لمسة لم تكمل بعد لايحدف اسم الملف من الرئيسي العمود "A" رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 31, 2019 مشاركة قام بنشر أكتوبر 31, 2019 اذا كان بنفس مسار الملف الذي به الكود Private Sub CommandButton1_Click() Dim pth, Nm, Pt, pth1 pth = "D:\my_f\" pth1 = ThisWorkbook.Path & "\" Nm = Me.ComboBox1.Value & ".*" Ar = Array(pth, pth1) For Each Pt In Ar If Dir(Ar & Nm, vbDirectory) = "" Then MsgBox "لايوجد ملف بنفس الاسم بالمسار المحدد لحذفه" & Pt Else Kill Ar & Nm & ".*" MsgBox "تم حذف الملف بنجاح من المسار" & " :" & Pt End If Next Pt End Sub 1 رابط هذا التعليق شارك More sharing options...
tlayt kamal قام بنشر أكتوبر 31, 2019 الكاتب مشاركة قام بنشر أكتوبر 31, 2019 لا ينفذ رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 31, 2019 مشاركة قام بنشر أكتوبر 31, 2019 (معدل) اخي الكريم حط مسار المجلد الرئيسي الذي ذكرته بهذا السطر pth1 = ThisWorkbook.Path & "\" فليكن مثلاً "C:\Users\aad\Desktop" يكتب بالمتغير كالتالي pth1 = "C:\Users\aad\Desktop" & "\" تم تعديل أكتوبر 31, 2019 بواسطه الـعيدروس 1 رابط هذا التعليق شارك More sharing options...
tlayt kamal قام بنشر أكتوبر 31, 2019 الكاتب مشاركة قام بنشر أكتوبر 31, 2019 عمل ممتاز اسأل الله ان يجعل هذا في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.