Set objFolder = objFSO.GetFolder(“C:\\Upload”)\n<\/PRE>\nAfter we\u2019ve made a connection to the Upload folder we can then use this line of code to retrieve a collection of all the files found in the folder:<\/P>
Set colFiles = objFolder.Files\n<\/PRE>\nNow the fun begins. What we need to do is pick a baseline time to start with; if the creation time for the first file in the collection is older than the baseline time then we\u2019ll call file 1 \u2013 for the time being \u2013 the oldest file in the collection. To get the starting baseline, we create a variable named dtmOldestDate and assign that variable the current date and time:<\/P>
dtmOldestDate = Now\n<\/PRE>\nOnce we\u2019ve established this baseline time we set up a For Each loop to loop through all the files in the collection. For the first file in the collection we use this line of code to see if the value of the file\u2019s DateCreated<\/B> property is older than the baseline value dtmOldestDate:<\/P>If objFile.DateCreated < dtmOldestDate Then\n<\/PRE>\nNeedless to say, it\u2019s likely that this first file will<\/I> have a creation time older than dtmOldestDate. But suppose it doesn\u2019t; what then? No big deal; in that case we simply loop around and check the next file in the collection.<\/P>\n
For the sake of argument, however, let\u2019s say that dtmOldestDate has the value 7\/25\/2006 8:00 AM<\/B> and the first file in the collection (a.txt) has a creation date of 7\/24\/2006 7:30 AM<\/B>. In this case, the file a.txt truly is older than the baseline value. Therefore, we execute these two lines of code:<\/P>dtmOldestDate = objFile.DateCreated\nstrOldestFile = objFile.Path\n<\/PRE>\nWe\u2019re doing two things here. First, we\u2019re assigning dtmOldestDate a new value, the value of a.txt\u2019s DateCreated property. Why? Because this value now represents the oldest file in the folder. Second, we assign the path of the file (C:\\Upload\\a.txt) to a variable named strOldestFile. We use the variable dtmOldestDate to keep track of the oldest creation time; likewise, we use the variable strOldestFile to keep track of which<\/I> file (by file path) is the oldest file in the folder.<\/P>\n
And then, of course, we simply loop around and repeat this process with the next file in the collection. When all is said and done strOldestFile will contain the path to the oldest file in the folder. In turn, that means we can move the file using one line of code:<\/P>
objFSO.MoveFile strOldestFile, “C:\\Download\\”\n<\/PRE>\nNothing too complicated there: we simply call the MoveFile<\/B> method, using strOldestFile to represent the file we want to move, and using C:\\Download\\<\/B> (note the \\ at the end) to indicate the Folder we want to move the file to. There you have it: the oldest file in C:\\Upload will now reside in C:\\Download.<\/P>\n
Now, where were we? Oh, that\u2019s right: we were going to tell you a story about your mother, weren\u2019t we? Well, you won\u2019t believe this, but your mother was a bit of a rapscallion when she was younger; she was always getting into mischief. For example, one time she wrote a WMI script that could identify and move the oldest file in a folder. That\u2019s right: your mother did that. The script looked something like this:<\/P>
Const CONVERT_TO_LOCAL_TIME = True<\/p>\nSet dtmOldestDate = CreateObject(“WbemScripting.SWbemDateTime”)\ndtmOldestDate.SetVarDate Now, CONVERT_TO_LOCAL_TIME<\/p>\n
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\n
Set FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Upload’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList<\/p>\n
If objFile.CreationDate < dtmOldestDate Then\n dtmOldestDate = objFile.CreationDate\n strOldestFile = objFile.Name\n End If\nNext<\/p>\n
strFile = Replace(strOldestFile, “\\”, “\\\\”)<\/p>\n
Set colFiles = objWMIService. _\n ExecQuery(“Select * from CIM_DataFile where Name = ‘” & strFile & “‘”)<\/p>\n
For Each objFile in colFiles\n strOldName = LCase(objFile.Name)\n strNewName = Replace(strOldName, “c:\\upload”, “c:\\download”)\n objFile.Copy(strNewName)\n objFile.Delete\nNext\n<\/PRE>\n
Of course, because this script uses the SWbemDateTime<\/B> object it runs on only Windows XP and Windows Server 2003. But that was just like your mother: all she ever talked about was Windows XP this and Windows Server 2003 that. For example, there was this one time \u2013 this was shortly after the war, mind you \u2013 when she came to our house \u2013 that was back when we lived on 38th<\/SUP>, in the blue house, you remember, your dad used to bring you by every now and then and you\u2019d pick blackberries in the backyard \u2013 boy, you liked those blackberries although you didn\u2019t like the thorns, there was this one time \u2013 this is such a cute story \u2013 there was this one time \u2026.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"Hey, Scripting Guy! How can I move the oldest file in the folder C:\\Upload to C:\\Download?— DD Hey, DD. Funny you should mention the word \u201coldest.\u201d The Scripting Guy who writes this column recently attended a family reunion and, for the first time ever, came face-to-face with the whole idea of getting old. This Scripting […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[38,40,11,3,12,5],"class_list":["post-66823","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-files","tag-filesystemobject","tag-folders","tag-scripting-guy","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! How can I move the oldest file in the folder C:\\Upload to C:\\Download?— DD Hey, DD. Funny you should mention the word \u201coldest.\u201d The Scripting Guy who writes this column recently attended a family reunion and, for the first time ever, came face-to-face with the whole idea of getting old. This Scripting […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/66823","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=66823"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/66823\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=66823"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=66823"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=66823"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n