WSH - VBscript - Length function

[alfie002]

Dear all,

I want to return the file extension of a give file. I am having a problem with it

Sample code as follows;

extension = lcase(substr(file_name,(len(file_name-3)),(len(file_name)) ))

This syntax should work, but I cannot remember if I should be using the "len" or "length" function !!!

Any reminder much appreciated.

Thanks

Alf

 

[PHV]

extension = LCase(Right(file_name,3))

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

 

[dilettante]

Len() not Length().

Keep in mind that only a subset of file extensions are 3 characters though.

 

[alfie002]

Dear PHV and dilettante,

thank you both for your contributions

Much appreciated.

Alf

 

[guitarzan]

Another way that avoids the problem dilettante brings up (and allows for extensions with less than, or more than 3 characters) is to use the GetExtensionName method of the FileSystemObject, as long as you know the full path to the file.

Dim sMyFile
sMyFile = "C:\Pathtofile\Filename.ext"
wscript.echo GetAnExtension(sMyFile)

Function GetAnExtension(DriveSpec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   GetAnExtension = fso.GetExtensionName(Drivespec)
End Function

 

[PHV]

OK, without FSO:
extension = LCase(Mid(file_name,InStrRev(file_name,".")+1))

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