Sort Folder Collection 1

[x75]

Hi, I have a Folder Collection.
The name of the folders is the date they where created.
How can I sort the collection, so that the oldest folder is first and so on?

Or if that is not possible how can I get the name of the oldest folder?

Thanks for any reply
Johannes

 

[Jonax]

Are we talking FSO? This is not a bug - it's an undocumented feature...
;-)

 

[x75]

Yes

 

[Jonax]

I don't think you can sort the contents of FSO, but you could insert the results in a db, or you might be able to do some magic with the dictionary object...
This is not a bug - it's an undocumented feature...
;-)

 

[Jonax]

...or you could loop through your returns and use datediff to find the highest/lowest value... This is not a bug - it's an undocumented feature...
;-)

 

[x75]

I know that I can not sort the contents of FSO. But I was hoping some one had a trick on how to do this.

I thought of putting them into a db, but I would prefer not to do that.

I found a code on how to do it in VB 6.
But I can't figure out how to create a new collection in Vb script.

http://www.vbrad.com/pf.asp?p=source/src_sortcollection.htm

Don't you think their is a way to at least get the oldest one?

Thanks

 

[x75]

never mind just found a trick on how to do it!

 

[Jonax]

Do share! This is not a bug - it's an undocumented feature...
;-)

 

[x75]

I was going to,
but I had to code my Idea first. Here it is:

getoldestBackup = Date()
For each Folder in objRootFolder.SubFolders
If getoldestBackup < cdate(Folder.Name) then
getoldestBackup = cdate(Folder.Name)
End If
next

once it's done I'll have the date of the oldest Backup. That's all I needed. Because now I have a function that keeps calling itself and delets the oldes backup until only 5 are left.

 

[Jonax]

Ok This is not a bug - it's an undocumented feature...
;-)

 

[x75]

One little mistake!
must be
If getoldestBackup > cdate(Folder.Name) then
and not
If getoldestBackup < cdate(Folder.Name) then

thanks for your replies!

 

[x75]

Oh,
I didn't saw your reply on &quot;..loop through your returns and use datediff..&quot;

Would be kind of the same thing!

Thanks again

 

[Jonax]

Thx for all the stars! Much obliged This is not a bug - it's an undocumented feature...
;-)