Strip file extension

[jonathann3891]

Is it possible to strip the file extension (.dwg) of a selected file using the method I have detailed below?

 

Here I am selecting a block and storing the block name in appdata.

(defun c:ttt (/)
  (setq PileType (getfiled "Select Pile Drawing" "Z:\\ECI CAD\\AutoCAD\\PileDriver\\Pile Data\\" "dwg" 8))
  (setcfg "AppData/PileDriver/Pile_Type" PileType)
  (princ)
  )

Here I am recalling the name of the block stored in appdata.

(defun c:foo (/)
  (setq PileType (getcfg "AppData/PileDriver/Pile_Type"))
  (setq bname (??))
  )

Is it possible to strip the file extension (.dwg) from PileType and set it as bname?

[jonathann3891]

I found my answer. Using vl-filename-base will give me the result I'm looking for

[Lee Mac]

You can also use the fnsplitl function:

_$ (fnsplitl "C:\\test.txt")
("C:\\" "test" ".txt")