Hur skall jag skriva för att denna kod skall bli smartare/snyggare/effektivare?
<code>
'här är rootkatalogen
path = InStrRev(CommonDialog1.FileName, "\")
' Info.Caption = Left(CommonDialog1.FileName, path)
'Här är enbart filnamnet
slut = Len(CommonDialog1.FileName) - path + 1
filnamnet = Mid(CommonDialog1.FileName, path + 1, slut)
' Info.Caption = filnamnet
'enbart filnamnet utan extension
exten = Right(filnamnet, 4)
filnamnet = Replace(filnamnet, exten, "")
' Info.Caption = filnamnet
</code>
Vad jag vill ha ut är,
rootkatalogen
finamn med extension
finamn utan extension
Det känns som om jag har jobbat lite grovhugget.

Så här skulle jag lösa det

Dim path() As String
Dim rot As String, fName As String, fNamex As String
path = Split(CommonDialog1.FileName, "\")
rot = path(0)
fNamex = path(UBound(path))
fName = Left$(fNamex, Len(fNamex) - 4)

Det ser snyggt ut
Tack för hjälpen