I use common dialog. I set filter to this extension *.shp. I don't want include the extension to display the filename. I just want file1 only not file1.shp


Code:
CommonDialog1.Filter = "ESRI Shapefiles (*.shp)|*.shp"
CommonDialog1.CancelError = True
CommonDialog1.InitDir = App.path
CommonDialog1.DefaultExt = ".shp"
CommonDialog1.ShowOpen
CommonDialog1.DialogTitle = "Add data"
sfname = CommonDialog1.FileTitle
path = Left(CommonDialog1.FileName, _
            Len(CommonDialog1.FileName) - _
            Len(CommonDialog1.FileTitle))