كيف احصل على اسم الملف دون امتداده

بسم الله الرحمن الرحيم

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

تفضل عزيزي هذا الكود المختصر :

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
MsgBox FSO.GetBaseName("name.mdb")

عندما تقوم بتشغيل الكود السابق سوف يقوم بعرض رسالة فيها الاسم دون الامتداد ، أرجو أن يكون هذا هو مرادك

[

private command1_click()
commondialog.showopen

fullpath=commondialog.filename
dim separate_file() as string

separate_file=split(fullpath,"\")

file=separate_file(ubound(separate_file))
list1.additem file
Text1.Text=left(list1.list(0),instr(list1.list(0),"."))

مصطفى زيداني

Try This example

example.rar