Filename without extension 1

[wmbb]

I have a variable called f and defined as file.
Now I display the filename using f.Name (picture.tif)
I want to display only the filename without the extension (picture).
Is this possible ?

 

[PHV]

Left(f.Name, InStrRev(f.Name, ".") - 1)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[wmbb]

OK, Thanks for your quick response.
This is the work-around, I thought maybe there was a command like f.SmallName or something like that.

I will use this option.

Thanks again

 

[PHV]

Have a look here:

http://msdn.microsoft.com/en-us/library/1ft05taf(VS.85).aspx

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[strongm]

fso's GetBaseName method

 

[MakeItSo]

This is nice, strongm!
Didn't know about that method.



[navy]"We had to turn off that service to comply with the CDA Bill."[/navy]
- The Bastard Operator From Hell

 

[SkipVought]

I've often used Split for this...

=FName = Split(f.name, ".")(0)

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[MakeItSo]

Yeah, that would of course also do it.
Alas, despite my strong "discouragement" of such habits, some of our project managers occasionally put dots in the folder name (e.g. date)!!
It's a major drawback for any such use.
GetBaseName does not get confused by this, neither does the InStrRev way, neither does

NoExt=left(f.name,len(f.name)-4)

The latter however will get confused if there is such a nice thing as a "Thumbs.db" file in that folder, as it only has a 2 char extension... [rolleyes]


So, both GetBaseName and InstrRev are my preferred.

[navy]"We had to turn off that service to comply with the CDA Bill."[/navy]
- The Bastard Operator From Hell

 

[SkipVought]

MakeItSoe,

In that case...

Function NameSansExtension(sName As String) As String
    Dim a, i As Integer
    a = Split(sName, ".")
    NameSansExtension = a(UBound(a) - 1)
    If UBound(a) > 1 Then
        For i = UBound(a) - 2 To 0 Step -1
              NameSansExtension = a(i) & "." & NameSansExtension
        Next
    End If
End Function

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

Why make it simple when you can make it overcomplicated ? <grin>

 

[SkipVought]

Absolutely! ;-)

Because its there!

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[fumei]

Skip are you seriously suggesting that all that yaddayaddayadda is better than:

fso.GetBaseName(f.Path)

???? Surely you jest.


Gerry