Notifikationer

Markér alle som læst Log ud

darrich Novice

22. oktober 2008 - 15:27 Der er 1 kommentar og
1 løsning

til tjens - align af kolloner og output filnavn med dato

Tilretning så sidste rækker er aligned (lige under hinanden) og output filnavn skal indeholde dato
http://www.eksperten.dk/spm/848759

Synes godt om

tjens Nybegynder

22. oktober 2008 - 20:12 #1

Option Explicit
Dim objFSO, objOutFile, objFolder, objFile, objSubfolder
Dim strInFolder, strOutFile, Lines, i, strWork, strDate, fields

strDate = Cstr(Year(Date))
strWork = Cstr(Month(date))
if len(strWork) = 1 then strDate = strDate & "0"
strDate = strDate + strWork
strWork = Cstr(day(date))
if len(strWork) = 1 then strDate = strDate & "0"
strDate = strDate + strWork

strInFolder = "E:\Scripts\Testdata"
strOutFile = "E:\Scripts\Testdata\report" & StrDate & ".html"

Set Lines = CreateObject("System.Collections.Arraylist")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.CreateTextFile(strOutFile)
Set objFolder = objFSO.GetFolder(strInFolder)

For Each objSubfolder in objFolder.Subfolders

for Each objFile in objSubfolder.Files
if (InStrRev(UCase(ObjFile.name), ".BIC") > 0 ) then
Lines.Add(objFile.DateLastModified & ";" & objFile.Name & ";" & objSubfolder.name & ";" & objSubfolder.DateLastModified)
end if
Next

Next

objOutFile.WriteLine("<html><body>")
objOutFile.WriteLine("<h1>" & strDate & "</h1><table border=1 >")
objOutFile.WriteLine("<tr><th>File date</th><th>File name</th><th>Folder name</th><th>Folder Date</th></tr>")
Lines.Sort
i = Lines.Count

do while i > 0
i = i - 1
fields = Split(Lines(i), ";")
objOutFile.WriteLine("<tr><td>" & fields(0) & "</td><td>" & fields(1) & "</td><td>" & fields(2) & "</td><td>" & fields(3) & "</td></tr>" )
loop
objOutFile.WriteLine("</table></body></html>")

objOutFile.Close
Wscript.Quit

Synes godt om

darrich Novice

25. oktober 2008 - 18:00 #2

takker

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
VBS Af bsn i VBscript	5	16/07/202614:01	18/07/202610:46
Ændre navn på folder Af bsn i VBscript	12	07/07/202312:45	09/07/202307:04
Outlook makro Af Webnoob i VBscript	6	09/02/202313:32	16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript	10	07/10/202200:43	07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript	2	22/04/202213:23	22/04/202214:55

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS