'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Script : Verzeichnis in einer HTML-Datei ausgeben ' ' File : 04_02_Dir2HTML.vbs ' ' Date : 2007-02-08 - Last modified: 2007-02-08 ' ' ' ' Michael Puff - http://www.michael-puff.de ' ' ' ' Durch ein File-Container Attribut iterieren ' ' Erzeugen einer Textdatei ' ' Aufruf des IE-COM Objektes ' ' Funktionsaufrufe ' ' ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Constants ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' FOLDER = "D:\Homepage\michael-puff.de\" HTMLFILE = "index.html" STYLESHEET = "D:\stylesheet.css" OUTFOLDER = "d:\" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Subs ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Page header private sub HTMLHeader(ts) ts.WriteLine "" ts.WriteLine "" ts.WriteLine "" end sub ' Page footer private sub HTMLFooter(ts) ts.WriteLine "" ts.WriteLine "" end sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' list files and create HTML-Table ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile(OUTFOLDER & HTMLFILE) HTMLHeader(ts) Set fo = fso.GetFolder(FOLDER) title = "Index of " & fo.Path ts.WriteLine "

" & title & "



" ts.WriteLine "" ts.WriteLine "" Set files = fo.Files For Each file in files Filedate = file.DateLastModified Filesize = file.Size Filename = file.Name ts.WriteLine "" ts.WriteLine "" ts.WriteLine "" ts.WriteLine "" ts.WriteLine "" Next ts.WriteLine "" ts.WriteLine "
Last modifiedSizefile name
" & Filedate & "" & Filesize & "" & Filename & "
File(s): " & fo.files.Count & "
" HTMLFooter(ts) ts.Close ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' open HTML file ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set ie = CreateObject("InternetExplorer.Application.1") ie.Visible = True ie.Navigate(OUTFOLDER & HTMLFILE)