Ausgabe formatieren

hab ein script begonnen das den besitzer eines verzeichnises bzw. einer datei ausliest. funktioniert soweit auch. bloß die ausgabe ist total zerflettert.

' besitzer auslesen
' ----------------------------
' deklarieren
strVerzeichnis = c:\Programme

' kontakt zu befehlsbibliotecken
Set objShell = CreateObject(Shell.Application)
Set objFolder = objShell.namespace( & strVerzeichnis & )

' ausgabe
For Each strFileName In objFolder.Items
WScript.Echo strFileName & vbTab & objFolder.GetDetailsOf(strFileName, 8)
Next

wie kann ich die ausgabe sauber darstellen. danke für eure hilfe

Hi.

etwa so:

' besitzer auslesen
' ----------------------------
' deklarieren
strVerzeichnis = c:\Programme

' kontakt zu befehlsbibliotecken
Set objShell = CreateObject(Shell.Application)
Set objFolder = objShell.Namespace( & strVerzeichnis & )

' ausgabe
msg = <table border=0><tr><td><b>Ordnername</b></td><td><b>Grösse</b></td></tr>
For Each strFileName In objFolder.Items
msg = msg & <tr><td> & strFileName & </td><td align = right> & Trim(objFolder.GetDetailsOf(strFileName, 8)) & </td></tr>
Next
msg = msg & </table>
Set objExplorer = CreateObject(InternetExplorer.Application)
With objExplorer
.Navigate (about:blank)
.StatusBar = False
.MenuBar = False
.Toolbar = False
.Visible = True
.Resizable = True
.Width = 800
.Height = 600
.Left = 0
End With
Set IEDocument = objExplorer.Document
IEDocument.body.innerhtml = msg
IEDocument.title = strVerzeichnis
Set objExplorer = Nothing
Set IEDocument = Nothing
Set objShell = Nothing


MfG Anton

he, anton des mit IE is ne mächtige sache und dein beispiel wird für immer in meinen docs sein.

habs aber anders gelöst bekommen:
mit
MyTab = string(30 - Len(strFileName), )

hier wäre ein weg interessant wie man die max läge des strFileName ermitteln kann (30).


' besitzer auslesen
' ----------------------------
' deklarieren
strVerzeichnis = c:\Programme

' kontakt zu befehlsbibliotecken
Set objShell = CreateObject(Shell.Application)
Set objFolder = objShell.namespace( & strVerzeichnis & )

' ausgabe
For Each strFileName In objFolder.Items
MyTab = string(30 - Len(strFileName), )
WScript.Echo strVerzeichnis & vbTab & _ strFileName & MyTab & _
objFolder.GetDetailsOf(strFileName, 2) & vbTab & _
objFolder.GetDetailsOf(strFileName, 8)
Next



danke wie immer für eure hilfe.