Hejsan

Jag har denna kod:

<Code>
Private Sub CommandButton1_Click()

Dim sFileName As String

sFileName = Application.GetSaveAsFilename

If sFileName = "False" Then Exit Sub

ThisWorkbook.SaveAs sFileName

End Sub

</Code>

sFileName är ju en sträng som kan se ut lite hur som helst t ex. C:\Excel\Test.xls

Hur kan man göra en funktion som plockar ut Test ur denna sträng.
Har tittat på InStr, Mid och Left mm, men förstår inte riktigt hur man ska göra.

Tacksam för svar

Med InStrRev kan du hitta det "högraste" \-tecknet. Sedan kan du använda Mid för att plocka ut hela filnamnet (Test.xls) från detta. Därefter kan du använda InStrRev igen för att hitta punkten, varefter du kan få ut huvuddelen av filnamnet (Test).

Tackar för svaret. Det fungerar perfekt.

Jag löser för det mesta detta problem med Split
ex.
<code>
Dim minArray() As String
minArray = Split(sFileName,"\")
'Nu har alla delarna i minArray
'själva filnamnet står i Ubound(minArray)
</code>

Provade även detta, funkade mycket bra.

Tackar för all er hjälp