استخراج اسم الملف من المسار

[Barna]

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

اسعد الله مساءكم جميعا ....... لدي قاعدة بيانات ..... يظهر فيها المسار الكامل للملف المختار ... أريد أن يستخرج اسم الملف بدون امتداد الملف في مربع النص path3 

barna_1.accdb

[ابوخليل]

Me.path3 = Left(fille, Len(fille) - 4)

 

barna_1.mdb

[Barna]

اشكرك أخي الفاضل ولكن عند استخدام ملف ذاي صيغة مثل accdb تختلف الامور ...

 

[ابوخليل]

تفضل يستخرج اسم الملف على اي صيغة كانت

Dim si As Object
Set si = CreateObject("Scripting.FileSystemObject")
me.text1 = si.GetBaseName(strPath)

 

barna_2.mdb

[Barna]

جزاك الله خيرا واحسن اليك.... هو المطلوب

[kanory]

وهذه مشاركة مع مشاركة أخي الفاضل @ابوخليل ضع هذا الكود

Me.path3 = Left(fille, InStrRev(fille, ".") - 1)

 

[Barna]

بارك الله فيك أخي @kanory هذا هو المطلوب

[kanory]

الحمد لله رب العالمين