VBSript til listning

Gem følgende som en .vbs fil.

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

strInFolder = "C:\VBScripts\Testdata"
strOutFile = "C:\VBScripts\Testdata\TestOut.txt"

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

Lines.Sort
i = Lines.Count

do  while i > 0
    i = i - 1
    objOutFile.WriteLine(Lines(i))
loop

objOutFile.Close
Wscript.Quit

På min XP skal jeg skrive "wscript filnavn.vbs" for at køre den
På Min Vista skal jeg bare skrive "filnavn.vbs"

Det ser ud til at klare opgaven .... mægtigt :o)
Den eneste problemstilling der er tilbage er at få de sidste to rækker til at være aligned (altså lige under hinanden)

2008-10-20 11:27:35  abccba.bic              Greblius  2008-10-20 11:27:31
2008-10-20 10:14:41  caiyazyrustacae.bic              Caiya  2008-10-20 10:12:33
2008-10-18 18:57:33  seriandthienna.bic              klukg  2008-10-18 18:57:33
2008-10-18 15:39:31  moinuslutgentian.bic              -BONEDADDY-  2008-10-18 15:39:23
2008-10-18 13:02:44  tard.bic              Scozzorro  2008-10-18 13:02:25
2008-10-17 18:26:08  sugnarrher.bic              Fernend0  2008-10-17 18:26:07
2008-10-17 08:16:26  kimasenseph.bic              wnhyde7559  2008-10-17 08:16:10
2008-10-15 13:47:50  krontorunden.bic              zafarrancho  2008-10-15 13:47:44
2008-10-13 21:27:30  bentaddams.bic              recidal  2008-10-13 21:27:26
2008-10-13 19:46:44  adailkelaben.bic              Aidaiar  2008-10-13 19:46:41
2008-10-13 12:16:15  pausnulen.bic              ytter  2008-08-15 15:41:58
2008-10-13 09:09:34  guest.bic              Unknown Nwonknu  2008-10-13 09:09:28
2008-10-12 11:45:57  mirgimirgitsi.bic              Mirgi666  2008-10-12 11:45:48
2008-10-12 11:29:26  hunarbeln.bic              Mirgi666  2008-10-12 11:45:48
2008-10-08 18:55:44  phyrex.bic              shadowstein  2008-10-08 18:55:42
2008-10-08 14:18:29  l.bic              wuja89  2008-10-08 14:18:23
2008-10-04 16:35:34  mickferry.bic              guy davidson  2008-10-04 16:34:32
2008-09-24 00:45:19  ben.bic              Nixyss  2008-08-29 20:24:06
2008-09-24 00:45:06  misha.bic              JuliaM  2008-09-23 22:35:53
2008-09-23 18:24:33  haden.bic              EJWalsh  2008-09-23 18:24:30
2008-09-17 07:52:54  mathellwaynolds.bic              Mulrich Fendt  2008-06-14 18:12:23
2008-09-10 18:26:01  daisy.bic              JuliaM  2008-09-23 22:35:53
2008-09-09 16:50:41  terinklensbane.bic              Thewilsonater  2008-09-08 20:50:49
2008-08-19 15:30:01  frellocain1.bic              Shikamaru kun  2008-08-19 15:29:56
2008-08-19 15:06:48  frellocain.bic              Shikamaru kun  2008-08-19 15:29:56
2008-08-13 18:45:29  cord.bic              yohine07  2008-08-12 21:23:38
2008-08-13 12:23:55  kallobenthenson.bic              krellhound  2008-08-13 11:57:26
2008-08-13 11:48:34  charnerkler.bic              krellhound  2008-08-13 11:57:26
2008-08-12 21:22:20  nadril.bic              yohine07  2008-08-12 21:23:38
2008-08-12 20:01:50  demnofear.bic              DEM93  2008-08-12 19:59:56
2008-07-28 18:32:10  urhurthelocksmith.bic              cmjdk  2008-06-15 17:35:48
2008-07-22 23:18:13  choishowri.bic              ShowRi  2008-07-14 09:07:00
2008-06-22 23:16:32  vasterdald.bic              ytter  2008-08-15 15:41:58

Jeg kunne også godt tænke mig at få output filens navn til at indeholde den dato, som scriptet er kørt.

Kan du klare disse to tinge også, så er der 100 point mere til dig.
(Opretter et nyt spørgsmål med henvisning her til.)

Hej Darrich

Hvis outputfilen må være HTML, i stedet for .txt, kan jeg sagtens formattere i pæne kollonner.

Og filnavn med dato i navnet kan jeg også lave.

Bare lav et nyt spørgsmål.

Okay, nyt spørgsmål oprettet
http://www.eksperten.dk/spm/849954