CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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
Æ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
Batch fil Af BDV i VBscript	1	12/01/202210:00	12/01/202210:05

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

04/07

Test: Lille dansk højttaler til sommer og strand giver de store producenter kamp til stregen

04/07

Nørgaard: Microsoft har store problemer med AI - det kommer ikke til at gå godt

04/07

Find ly i skyggen - og søg et af disse 10 spændende it-job, der er ledige netop nu

04/07

Vil fyre tusindvis af ansatte globalt: Nu reagerer Microsofts danske organisation med 800 medarbejdere

04/07

Staten binder sig med ny aftale til Microsoft i usædvanlig lang tid - og det er der en særlig årsag til

04/07

Cepheo-chefer trods røde tal: "Vi har en stærkere pipeline, end vi har haft længe"

04/07

Pengene vælter ud af den danske Dynamics-kæmpe Cepheo i selskabets andet leveår - men forretningen buldrer frem

04/07

Om få uger er det slut med adgangskoder i Authenticator: Har du husket at flytte dine adgangskoder?

04/07

Du skal opdatere hurtigst muligt: Alvorlig sårbarhed opdaget i Citrix-software

04/07

AI i sundhed: Stort potentiale – og lige så store barrierer

04/07

Handelskrigen letter: USA løfter forbud mod eksport til Kina af software til chip-design

Vis flere artikler

IT-JOB

Capgemini Danmark A/S

Experienced SAP S/4HANA consultant - Business controlling

Økonomistyrelsen

UX-designer til Økonomistyrelsens interne designteam

Netcompany A/S

Data Management Consultant

KMD A/S

Senior Product Owner

Capgemini Danmark A/S

Data Governance consultant

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 12:27	Office Pro 2019 forsvinder Af mort1 i Office & Kontorpakker
I går 16:34	Se filmen : "Vi, som går køkkenvejen" (Hovedperson : Birgitte Reimer Af Ikke-ekspert i Fri debat
02/0719:07	Mellem tidspunkter Af nyhavn18 i Excel
02/0710:02	Oversigt over antal feriedage Af AnjaJesse i Excel
02/0706:56	manglende filter Af skaanning i E-mail programmer