vbs: ab einen gewissen char soll er schreiben

Hi,

Habe ne ausgabe:

wscript.echo FileDate
wscript.echo FileSize
wscript.echo FileType
wscript.echo vbCrLf

Dann sollte es so sein:
wscript.echo FileDate & " " & FileDate1
wscript.echo FileSize & " " & FileSize1
wscript.echo FileType & " " & FileType1
wscript.echo vbCrLf

Nur anstadt " " Sollte er automatisch ab einen gewissen char zum schreiben anfangen (dammit das ganze schöner is)...

Danke!
lg
EVERMIND

Code:

Function Beautify(data,offset)
  Dim chars

  chars = offset - Len(data)
  if chars <= 0 then
    exit function
  end if

  Beautify = data

  for i=1 to chars
    Beautify = Beautify & " "
  next

End Function

' Main
Dim number1, _
    number2, _
    output

number1 = 12345
number2 = 1

output = Beautify(number1,15) & "offsettext" & Chr(13) & _
         Beautify(number2,15) & "offsettext"

WScript.echo output

allerdings brauchst eine konsolen schrift, damits auch wirklich auf selber höhe ist.

edited