Script maken die kijkt naar datum en extensie

[ConanTheB]

Beste mensen,

Ik ben met een script bezig die kijkt naar de ouderdom van bestanden en extensie en deze weer verplaatst naar een ander map. Vervolgens worden de bestandsnamen die in de onderliggende map staan weergegeven. De probleem met het script is, deze werkt niet op het gebied van datum controle en bevat geen extensie controle nog. Hij kopieert nu alle bestanden. Graag reacties van jullie, hoe ik dit script wel goed kan laten werken.

Code die ik tot nu toe heb.

Visual Basic:

Dim Directory

Dim Modified

Dim Files

Set Fso = CreateObject("Scripting.FileSystemObject")

Set Directory = Fso.GetFolder("E:\test")

Set Files = Directory.Files

For Each Modified In Files

If DateDiff("D", Modified.DateLastModified, Now) > 20 Then Fso.MoveFile "E:\test\*.txt" , "\\E:\test\dump"

Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer)

Set colFileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='E:\test\dump'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In colFileList
    Wscript.Echo objFile.Name
Next

[André]

En wat werkt er niet dan? Wat gaat er fout? Waar denk je dat het fout gaat?

[ConanTheB]

Alle bestanden met txt extensie worden verplaatst. Hij kijkt niet naar de ouderdom van de bestanden.

Kan ik niet anders opgeven dat die gelijk moet zijn aan de txt extensie en moet kijken naar bestanden ouder dan 20 dagen?

[ Voor 38% gewijzigd door ConanTheB op 28-01-2009 15:46 ]

[RobIII]

Waar hoort mijn topic?
WEB >> PRG

Als je nou eens begint met zelf wat uit te zoeken (slash googlen); dit is gewoon een ordinair scriptrequest en daar doen we hier niet aan. En als iets niet werkt horen we graag wat er niet werkt. Krijg je foutmeldingen? Doet 't gewoon niets? Of werkt het niet zoals je graag zou willen? Etc. Aan "deze werkt niet op het gebied van datum controle" hebben we geen drol.

[ Voor 26% gewijzigd door RobIII op 28-01-2009 15:50 ]

[ConanTheB]

Ik heb zelf al uitgezocht via google enz..., alleen is mijn vraag wat fout kan zijn aan die bepaalde regel

[Spiral]

ConanTheB schreef op woensdag 28 januari 2009 @ 14:04:

Visual Basic:

Fso.MoveFile "E:\test\*.txt" , "\\E:\test\dump"

Ik ben niet zo bekend met VBScript maar volgens mij kopieer je nu *.txt > dump en dan mag jij raden wat * inhoud

[Creepy]

ConanTheB schreef op woensdag 28 januari 2009 @ 15:51:
Ik heb zelf al uitgezocht via google enz..., alleen is mijn vraag wat fout kan zijn aan die bepaalde regel

En wat heb je zelf dan geprobreerd? Wast lukte daar niet mee? Ben je al aan het debuggen geslagen? Het is geen helpdesk om ff snel een oplossing te scoren. "Ja ik heb al gezocht en vanalles geprobeerd" is leuk om te melden maar we willen natuurlijk wel weten hoe en wat je dan allemaal gezocht, geprobeerd etc. Niet om jou te pesten maar om zoveel mogelijk informatie te hebben.... Dus kom aub eens met wat meer info.

[ Voor 33% gewijzigd door Creepy op 28-01-2009 16:12 ]

[ConanTheB]

Ik dacht dat dit een forum was, blijkbaar niet meer. Van mij mag je dit afsluiten, ik ben sneller af bij andere forums.

[MrDummy]

Als ik code zo zie, vind ik wel beetje beperkt met weinig controle routines op extensies.
Daardoor lijkt het dat het alles pakt of alle TXT files pakt.

Je zou gewoon voor jezelf meer regels moeten schrijven om dingen in juiste paden te leiden zoals je wilt.
Stap voor stap uitbouwen totdat het naar de wens loopt.

[RobIII]

ConanTheB schreef op donderdag 29 januari 2009 @ 08:00:
Ik dacht dat dit een forum was, blijkbaar niet meer. Van mij mag je dit afsluiten, ik ben sneller af bij andere forums.

Dat zeg je goed. Dit is een forum. Geen afhaalbalie voor al uw kant-en-klare oplossingen.