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
