Formats passed string based on length. Perfect for emails and text files.
----------------------------------------------------------------------------
<%
\' Company: Sabra Inc
\' Author: Dave Hoffenberg
\' Date: 10/5/00
\' Function: Formats passed string based on length. Perfect for emails and text files.
\' Freeware

Function Padding(Value, Length)
\' If the length of the value is less than the variable \'length\'
If Len(Value) < Length Then
charcount = Length - len(Value)

for i = 1 to (charcount - 1)

padding = padding & " "

next

mystring = Value & padding
\' If the length of the value is greater than the variable \'length\'
Elseif len(Value) > Length Then
mystring = Left(Value,Length)

Else
set mystring = Value

End If

Padding = mystring

End Function


Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(Server.MapPath("test.txt"), True)

MyFile.WriteLine Padding("this is a test", 25) & "end of line."

Set fso = Nothing
Set MyFile = Nothing

response.write "done"
%>

Retrieves file size(K) of any file passed to it.
---------------------------------------------------------------------------

<%
\' Company: Sabra Inc
\' Author: Dave Hoffenberg
\' Function: Retrieves file size(K) of any file name passed to it.
\' Freeware

Function ShowFileSize(filespec)
file = Server.MapPath(filespec)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
Set f = fso.GetFile(file)
intSizeB = f.Size
intSizeK = Int((intSizeB/1024) + .5)
If intSizeK = 0 Then intSizeK = 1
ShowFileSize = intSizeK & "k"
Else
ShowFileSize = "File Doesn\'t Exist"
End If
Set fso = Nothing
End Function

response.write ShowFileSize("test.txt")
%>