{"id":64163,"date":"2007-08-24T01:41:00","date_gmt":"2007-08-24T01:41:00","guid":{"rendered":"https:\/\/blogs.technet.microsoft.com\/heyscriptingguy\/2007\/08\/24\/how-can-i-delete-the-oldest-file-from-a-folder-if-and-when-that-folder-exceeds-a-specified-size\/"},"modified":"2007-08-24T01:41:00","modified_gmt":"2007-08-24T01:41:00","slug":"how-can-i-delete-the-oldest-file-from-a-folder-if-and-when-that-folder-exceeds-a-specified-size","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/scripting\/how-can-i-delete-the-oldest-file-from-a-folder-if-and-when-that-folder-exceeds-a-specified-size\/","title":{"rendered":"How Can I Delete the Oldest File From a Folder If and When That Folder Exceeds a Specified Size?"},"content":{"rendered":"

\"Hey, \n

Hey, Scripting Guy! I need to check the size of a folder once every hour; if the folder has exceeded a specified size, I then need to delete the oldest file in that folder. How can I do that?

— JC <\/P>\"Spacer\"\"Hey,\"Script<\/A> \n

Hey, JC. You know, a lot of you are thinking, \u201cGee, I wonder what was the very best, very coolest thing that the Scripting Guy who writes that column saw on his recent trip to Italy?\u201d As it turns out, that\u2019s an easy question to answer: the very best, very coolest thing that the Scripting Guy who writes this column saw on his recent trip to Italy was housed at the Vatican Museum and \u2013 What\u2019s that? The Sistine Chapel? Oh, is that at the Vatican? Well, what do you know? No, the \u2013 the Raphael Rooms? Sorry; never heard of them. At any rate, without a doubt the very best, very coolest thing the Scripting Guy who writes this column saw on his recent tip to Italy was housed at the Vatican Museum: a Pepsi-Cola!<\/P>\n

You heard right: a Pepsi-Cola. The Scripting Guy who writes this column had been to Europe a couple times prior to his recent vacation, and never once had he even seen<\/I> a Pepsi, let alone have the opportunity to drink one. But after completing their tour of the Museum the Scripting Family stopped off at the Museum cafeteria to get something to drink. And there it was: a can of Pepsi. <\/P>\n

Needless to say, it was a profoundly moving experience, at least for a Scripting Guy who doesn\u2019t really like Coca-Cola all that much.<\/P>\n\n<\/THEAD>\n\n\n
\n

Scripting Dad and Scripting Son note<\/B>. As we mentioned, the family stopped off in the cafeteria just to get something to drink. Eat lunch there? Oh, please, not in a museum cafeteria. But then, just as the Scripting Dad and Scripting Son were reaching for their drinks, a cafeteria worker came by and plopped down a huge tub of pasta, pasta completely smothered with broiled cheese. For some reason, eating lunch at a museum cafeteria no longer seemed like such a bad idea after all.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n

<\/DIV>\n

Of course, it goes without saying that drinking a Pepsi, in Europe, mind you, is an experience that will never be topped. So then what was the second-best and second-coolest thing the Scripting Guy who writes this column saw in Italy? That would have to be this vintage Italian script (made by artisans using the same materials and techniques Italian scripters have used for hundreds of years), a script that can check to see if a folder has exceeded a specified size and, if it has, delete the oldest file in that folder:<\/P>

strOldestFile = “”\ndtmOldestDate = Now<\/p>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFolder = objFSO.GetFolder(“C:\\Scripts”)<\/p>\n
intFolderSize = Int((objFolder.Size \/ 1024) \/ 1024)<\/p>\n
If intFolderSize >= 25 Then\n    Set colFiles = objFolder.Files<\/p>\n
    For Each objFile in colFiles\n        strFile = objFile.Path\n        dtmFileDate = objFile.DateCreated\n        If dtmFileDate < dtmOldestDate Then\n            dtmOldestDate = dtmFileDate\n            strOldestFile = strFile\n        End If\n    Next<\/p>\n
    objFSO.DeleteFile(strOldestFile) \nEnd If\n<\/PRE>\n
A couple quick notes before we begin. First, this script is designed to run only on the local computer. Why? Well, to run against a remote computer, the obvious technology of choice would be WMI. Unfortunately, though, there\u2019s a bug in WMI\u2019s Win32_Directory class: any time you retrieve the size of a folder the size comes back as 0 bytes. (If only we all had bathroom scales that worked in similar fashion!) That makes WMI a somewhat less-than-ideal technology for any task involving folder sizes. Could<\/I> we perform this task remotely, even if that involves using a work-around or two? Yes we can, and that\u2019s something we\u2019ll take up in a future column, if anyone\u2019s interested.<\/P>\n
Second, this script is designed to run once and then stop. But wait, you say, didn\u2019t JC need the script to check the folder size every hour<\/I>? That\u2019s correct. However, rather than add in code that pauses the script for an hour we recommend that you set up a scheduled task and have that task run the script once an hour. That\u2019s a much better, much easier, and much more foolproof approach to getting a script to run once every hour.<\/P>\n\n<\/THEAD>\n\n\n
\n
Note<\/B>. Why foolproof? Well, suppose something happens and the script process terminates (e.g., the command window in which the script is running is closed). In that case, you\u2019ve lost your ability to monitor the folder, at least until you restart the script. With a scheduled task, you don\u2019t ever have to worry about things like processes terminating prematurely and needing to be restarted.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
OK, so much for all that; let\u2019s see if we can figure out how the script actually works. To begin with, we assign values to a pair of variables, strOldestFile and dtmOldestDate:<\/P>
strOldestFile = “”\ndtmOldestDate = Now\n<\/PRE>\n
We\u2019re going to use the variable strOldestFile to keep track of the path to the oldest file in the folder C:\\Scripts. Of course, at the beginning of the script we don\u2019t know<\/I> the path to the oldest file in the folder, so we simply assign this variable an empty string (\u201c\u201d). <\/P>\n
Now, how are we going to determine which file is<\/I> the oldest file in the folder? Well, we could<\/I> figure that out by using some sort of complicated WMI query and sorting algorithm. However, we opted to do something a little easier: we\u2019re simply going to assign a beginning value to the variable dtmOldestDate (in this case, that value being the current date and time, something we can calculate by using the VBScript Now<\/B> function). After that, we\u2019ll just loop through the collection of files found in the folder C:\\Scripts. For each file, we\u2019ll check to see if the file creation date is older than the value stored in dtmOldestDate. If it is, then we\u2019ll assign the file path of that file to strOldestFile and the file creation date to dtmOldestDate. If it isn\u2019t, well, then we\u2019ll simply move on and repeat the process with the next file in the collection.<\/P>\n
But more on that in a minute.<\/P>\n
After initializing our variables we create an instance of the Scripting.FileSystemObject<\/B>, then use the GetFolder<\/B> method to bind us to the folder C:\\Scripts; that\u2019s what we do with this block of code:<\/P>
Set objFSO = CreateObject(“Scripting.FileSystemObject”)\nSet objFolder = objFSO.GetFolder(“C:\\Scripts”)\n<\/PRE>\n
Once we\u2019ve created an object reference (objFolder) to C:\\Scripts we then use this line of code to store the size of that folder in the variable intFolderSize:<\/P>
intFolderSize = Int((objFolder.Size \/ 1024) \/ 1024)\n<\/PRE>\n
You know, you\u2019re right: that is<\/I> a somewhat-complicated looking bit of code, isn\u2019t it? And, to be honest, there\u2019s no need for it to be<\/I> that complicated; instead, we could have simply assigned the value of the Size<\/B> property to the variable intFolderSize, like so:<\/P>
intFolderSize = objFolder.Size\n<\/PRE>\n
So then why didn\u2019t we just do that? Well, as it turns out, folder sizes are returned in bytes; that means a 25-megabyte folder will have a size equal to this:<\/P>
26214400\n<\/PRE>\n
There\u2019s nothing wrong with that, but very few people (or, at least, very few Scripting Guys) can glance at the number 26214400 and immediately think, \u201cOh, 25 megabytes, eh?\u201d Therefore, we did a little bit of math: we took the value of the Size property and divided it by 1024, giving us the size in kilobytes. We then took that<\/I> value and divided it by 1024 once more, thus giving us a size (e.g., 25.1637182137) in megabytes. Finally, and because we really don\u2019t care about the .1637182137, we used the Int<\/B> function to strip off the decimal places.<\/P>\n
The net result? We end up assigning a nice, clean value (25) to the variable intFolderSize. Because, as we all know, cleanliness is<\/I> next to godliness.<\/P>\n\n<\/THEAD>\n\n\n
\n
Scripting Guys trivia<\/B>. Contrary to popular belief, the phrase \u201cCleanliness is next to godliness\u201d does not<\/I> appear in the Bible. Instead, the quote comes from a sermon by John Wesley, founder of the Methodist church: \u201cLet it be observed, that slovenliness is no part of religion; that neither this, nor any text of Scripture, condemns neatness of apparel. Certainly this is a duty, not a sin. Cleanliness is, indeed, next to godliness.”<\/P>\n
If that<\/I> information doesn\u2019t win you a bunch of bar room bets, well, you\u2019re obviously hanging out in the wrong bar rooms.<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n
<\/DIV>\n
OK, back to work. (After all, idle hands are<\/I> the Devil\u2019s plaything.) As soon as we know the folder size we can use code like this to determine if that size is greater than or equal to a specified value (in this case, 25 megabytes):<\/P>
If intFolderSize >= 25 Then\n<\/PRE>\n
If the size is less<\/I> than 25 megabytes, then we\u2019re done; because the size is within the allowed limits we don\u2019t have to delete anything. If the size is greater than (or equal to) 25 megabytes, however, our next step is to use this line of code to retrieve a collection of all the files in the folder:<\/P>
Set colFiles = objFolder.Files\n<\/PRE>\n
Once we have the collection in hand we set up a For Each loop to loop through each and every file in the folder. Inside the loop, the first thing we do is assign the file Path<\/B> to a variable named strFile, then assign the file creation date and time (the DateCreated<\/B> property) to a variable named dtmFileDate:<\/P>
strFile = objFile.Path\ndtmFileDate = objFile.DateCreated\n<\/PRE>\n
So far so good, right? We then compare the value of dtmFileDate to the variable dtmOldestDate:<\/P>
If dtmFileDate < dtmOldestDate Then\n<\/PRE>\n
If the value of dtmFileDate (for example, 1\/1\/2007) is less than the value of dtmOldestDate (for example, 2\/2\/2007) that can mean only one thing: this particular file is \u2013 so far anyway \u2013 the oldest file in the folder. Therefore, we assign the file\u2019s creation date to dtmOldestDate, and assign the file path to a variable named strOldestFile:<\/P>
dtmOldestDate = dtmFileDate\nsttrOldestFile = strFile\n<\/PRE>\n
See what we\u2019re doing there? That\u2019s right: we\u2019re just using these two variables to keep track of the oldest file in the folder, replacing the values of the two variables each and every time we run into a file older than any other file we\u2019ve looked at.<\/P>\n
After that we loop around and repeat the process with the next file in the collection. When we\u2019re done, the path to the oldest file in the collection will be stored in the variable strOldestFile. In turn, that means we can delete the oldest file in the folder simply by passing that variable to the DeleteFile<\/B> method:<\/P>
objFSO.DeleteFile(strOldestFile)\n<\/PRE>\n
And that should do it.<\/P>\n
Incidentally, it should be obvious which side the Scripting Guy who writes this column takes in the great Pepsi vs. Coke debate. However, even though he doesn\u2019t like Coke very much, the Scripting Guy who writes this column would never disparage anyone who does<\/I> prefer Coke over Pepsi. The truth is, he refuses to say anything bad about Coke at all, even though the fact that Pepsi is sold at the Vatican Museum does<\/I> suggest that Pepsi is the official soft drink of heaven.<\/P>\n
Not that Coke drinkers have to worry much about making it to heaven, mind you. <\/P>\n\n<\/THEAD>\n\n\n
\n
Legal and theological disclaimer<\/B>. The preceding statements do not represent the opinions of Microsoft, Pepsi-Cola, Coca-Cola, the Vatican Museum, or heaven. Although the Scripting Editor does seem to think that the Scripting Guy who writes this column is really on to something.<\/P>\n
Oops; never mind. Turns out that that the Scripting Editor thinks that the Scripting Guy who writes this column is on<\/I> something. That\u2019s a little different.<\/P><\/TD><\/TR><\/TBODY><\/TABLE><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I need to check the size of a folder once every hour; if the folder has exceeded a specified size, I then need to delete the oldest file in that folder. How can I do that?— JC Hey, JC. You know, a lot of you are thinking, \u201cGee, I wonder what was […]<\/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,11,3,12,5],"class_list":["post-64163","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-files","tag-folders","tag-scripting-guy","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I need to check the size of a folder once every hour; if the folder has exceeded a specified size, I then need to delete the oldest file in that folder. How can I do that?— JC Hey, JC. You know, a lot of you are thinking, \u201cGee, I wonder what was […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64163","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=64163"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64163\/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=64163"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64163"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64163"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}