Strip file name (in a string) of extention

[Garrett]

How would I strip a filename (in a string) of its extention.

eg
filestr="Textfile.txt"

I want filestr to = "Textfile"

Thanks

Garrett

[Static]

x = instr(filestr,".")
filestr = left(filestr,x-1)


dim tmp() as string
tmp = SPlit(filestr,".")
filestr = tmp(0)

[md_huhn]

dim intPosition as integer
dim newString as string

intPosition = inStr(1, textfile.txt, ".")
NewString = left(textfile.txt, intPosition - 1)

NewString should end up = to txtfile

[Lethal]

Or..

Private Sub Command1_Click()
    x = InStrRev(Text1, ".")
    z = Mid(Text1, 1, x - 1)
    Print z
End Sub

[Static]

for x = 1 to len(filestr)
i = mid(filestr,x,1)
if i = "." then exit for
tmp = tmp & i
next x

filestr = tmp




gotta cover all possibilities right?

[jbart]

Or, one more option.

Private Sub Command1_Click()
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    MsgBox fs.GetBaseName("c:/extension.txt")
End Sub

[noble]

what if there are multiple "." in a file....?

for x = 0 to len(filestr)
i = mid(filestr,x,1)
if i = "." then exit for
tmp = tmp & i
next x

filestr = tmp

should be......

For x = len(filestr) to 0 step -1
     i = mid(filestr,x,1)
     if i = "." then exit for
     tmp = tmp & i
Next x

filestr = tmp

:P

[Lethal]

You code print "txt", he wants the other way around.

[Static]

if there are multiple "."'s....

jbart's code would be best....

just change it to take the variable

Private Sub Command1_Click()
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    MsgBox fs.GetBaseName(filestr)
End Sub

good thinking jbart

[noble]

neat piece of code, i learned something new :P

btw, how come vb doesn't autocomplete those properties
for me? I'm referencing the microsoft scripting runtime.

Is there anything else i need to reference?

[Lethal]

It's because your using "CreateObject", if you use the syntax, you will get the IntelliSense.

Dim fso as FileSystemObject
Set fso = New FileSystemObject
fso.GetBaseName

[Static]

when you use creatobject...VB doesnt know what the Object will be until it is run...so it does not recognize the object name.

[Lethal]

yep, Late Binding

[noble]

ty

[jbart]

Thanks Lethal. I have been blindly using the code as it appears in the MSDN examples for the FileSystemObject.

With your way I get to see all the options.

[Lethal]

Hey no prob, we both learned something new

Just sharing more code of how to get the filename and not the extension.

Private Sub Command1_Click()

    Dim sFile As String
    Dim vArray As Variant
    Dim uArray As Integer
    
    sFile = "C:\Textfile.txt"
    vArray = Split(sFile, ".")
    uArray = LBound(vArray)

    MsgBox vArray(uArray)

End Sub

If you wish to get the extension and not the filename...

Private Sub Command1_Click()

    Dim sFile As String
    Dim vArray As Variant
    Dim uArray As Integer
    
    sFile = "C:\Textfile.txt"
    vArray = Split(sFile, ".")
    uArray = UBound(vArray)

    MsgBox Chr$(46) & vArray(uArray)

End Sub