<%@ Language=VBScript %> <% set oDSProp = Server.CreateObject("DSOleFile.PropertyReader") Set oProp = oDSProp.GetDocumentProperties("c:echnung.doc") Author = oProp.Author Title = oProp.Title Kommentare = oProp.Comments Kategorie = oProp.Category Firma = oProp.Company erstellDatum = oProp.DateCreated DocHatMakros = oProp.HasMacros Absaetze = oProp.ParagraphCount ZeilenAnzahl = oProp.LineCount Woerter = oProp.WordCount Buchstaben = oProp.CharacterCount DateiGroesse = oProp.ByteCount set oDSProp = nothing Response.Write Author ... %> |