Hjælp med vb script

Hvad skal der ske med den fil, som er den nyeste?
Har jeg forstået dig ret, skal alle mapper kopieres over, men i hver mappe er der en nyeste fil, som du på en eller anden måde vil have behandlet specielt.

Hvis f.eks siger det er i mappen tirsdag, at den nyeste fil er, så er det hele stukturen under tirsdagsmappen der skal kopieres over.

Og så skal de andre mapper ikke kopieres?
Jeg håber at få set på det tirsdag.

Nej det er kun den mappe hvor access.sys er den nyeste. Alle de andre mapper er ligegyldige i denne sammenhæng.

Min adsl-linie har været nede det meste af aftenen, så derfor svarer jeg først nu.
Her er så et vbscript, der gør, det du ønsker.
Den nyeste er her den der sidst er blevet ændret.

dim oFS,oFile, A(5), filnavn, n, i, max, x

A(1)="\mandag"
A(2)="\tirsdag"
A(3)="\onsdag"
A(4)="\torsdag"
A(5)="\fredag"
filnavn="\access.sys"
set oFS=WScript.CreateObject("Scripting.FileSystemObject")

set oFile=oFS.GetFile("E:" & A(1) & filnavn)
max=Cdbl(oFile.DateLastModified)
n=1

for i=2 to 5
  set oFile=oFS.GetFile(A(i) & filnavn)
  x=Cdbl(oFile.DateLastModified)
  if max<x then
    max=x
    n=i
  end if
next

oFS.CopyFolder A(n),"S:" & A(n)

Ups: Der indsneg sig et par fejl. Her er den rettede version:

dim oFS,oFile, A(5), filnavn, n, i, max, x

A(1)="\mandag"
A(2)="\tirsdag"
A(3)="\onsdag"
A(4)="\torsdag"
A(5)="\fredag"
filnavn="\access.sys"
set oFS=WScript.CreateObject("Scripting.FileSystemObject")

set oFile=oFS.GetFile("E:" & A(1) & filnavn)
max=Cdbl(oFile.DateLastModified)
n=1

for i=2 to 5
  set oFile=oFS.GetFile("E:" & A(i) & filnavn)
  x=Cdbl(oFile.DateLastModified)
  if max<x then
    max=x
    n=i
  end if
next

oFS.CopyFolder "E:" & A(n),"S:" & A(n)

Takker for point.
Jeg går ud fra, du har fået det til at virke, men vend endelg tilbage her, hvis du skal have ændret lidt i scriptet.

Hej
Det virker præcist som det skal. Du har gjort en gråhåret mand lykkelig, med det script. Jeg takker for din hjælp. Point er kun en fattig tak i denne sammenhæng.

men det var da rart at høre. :o)

En lille forbedring:
Tilføj denne linie som en ekstra linie til allersidst:

MsgBox A(n) & ": Kopieringen er slut."

Så får du at vide, hvornår koperingen er færdig og hvilket katalog, der blev kopieret.

Hej
Jeg bukker og nejer for den lille ekstra tilføjelse. Det er faktisk rigtigt godt. Tusind tak.