Showing File Extension

If you'll notice, there's a comment in this snippet that drops the extension. How can this be modified so that the extension IS shown?

Set myFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = myFileSys.GetFolder(Server.MapPath("/meetings"))
for each file in Folder.Files
If Not file.name = "index.asp" Then
FileName = Left(file.name, (Len(file.name) - 4)) 'drop the extension
FileSize = cint(file.size / 1024) 'convert into kilobytes and drop the decimal
Response.Write("<li><a href='/meetings/" & file.name & "'>" & FileName & "</a> - " & FileSize & " K<br>" & chr(13))
End If
next

Set myFileSys = nothing