getFileType

Last week I showed you how to get the size of a file. This week I'm going to show you how to get the type of a file. This is useful if you want to display an icon or bit of text next to a hyperlink to indicate the file type. Some people like to use this to warn visitors when they link to a PDF file, because PDF readers can take a while to load.

ASP

1. function getFileType(someFile)
2.     dim fs
4.     set fs = Server.CreateObject("Scripting.FileSystemObject")
5.     getFileType = fs.GetExtensionName(Server.MapPath(someFile))
6.     set fs = nothing
7. end function

See you next week!

View ASP implementation on Snipplr

getFileSize

When you provide a link to a file for the user to download, it's sometimes nice to provide the size of the file so that they know what they're getting themselves into.

ASP

1. function getFileSize(someFile)
2.     dim fs
3.     dim file
5.     set fs = Server.CreateObject("Scripting.FileSystemObject")
6.     set file = fs.GetFile(Server.MapPath(someFile))
8.     getFileSize = FormatFileSize(file.size)
9.     set file = nothing
10.     set fs = nothing
11. end function

The size property returns the size in bytes, which could be a very large number. As you may have guessed, we're going to write a FormatFileSize function to wrap around it.

ASP

1. function FormatFileSize(size)
2.     dim units
3.     dim factor
5.     units = Array("B", "kB", "MB", "GB", "TB", "PB", "EB", "ZB", "YB")
6.     factor = log(size) \ 7
8.     FormatFileSize = Round(size / (1024 ^ factor), 2) & units(factor)
9. end function

I think it will be a very, very long time before we reach yottabytes, so this function should withstand the test of time. Next week I'll show you how to get the file type and why you might want that.

View ASP implementation on Snipplr