![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \nHey, CK. Listen, when it comes to scripting, anything is possible. (Well, except for the things that aren\u2019t possible, of course.) And while dates can often times be tricky to work with in your WMI scripts, this is one time when WMI\u2019s date format actually makes it easy<\/I> to carry out a task.<\/P>\n
To help explain how to do this, let\u2019s break the task into two pieces. First, how do we list all the files in a folder, as well as their creation dates? Well, one way is to use a script similar to this:<\/P>
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts\\\\” & strComputer & “\\root\\cimv2”)<\/p>\nSet FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Logs’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList\n Wscript.Echo objFile.CreationDate\nNext\n<\/PRE>\n
In this script, we bind to the WMI service and then use an association query to return a collection of all the files in the folder C:\\Logs. If you aren\u2019t familiar with association queries, they do pretty much what the name implies: they provide a way to associate two separate WMI classes, in this case, Win32_Directory and CIM_DataFile. The net effect is that this enables us to get back a collection of all the files in the associated folder.<\/P>\n
After we have all the files, we simply create a For-Each loop, and then echo the value of the CreationDate<\/B> property for each of these files. Because WMI uses the UTC (Universal Time Coordinate) format, we\u2019ll get back values that look like this:<\/P>20041201202723.695209-480\n<\/PRE>\nSure, that\u2019s weird-looking, but guess what: the first eight characters happen to correspond to the year, month, and day, the very values you want to use as file names. You want a file name like 20041201? Take a look at the first eight characters in our UTC date: 20041201<\/B>202723.695209-480. Just what the doctor ordered.<\/P>\n
In fact, to get the file name, all we need to do is use VBScript\u2019s Left function to grab those first eight characters in our UTC date. This modified script takes those first eight characters, stores them in a variable named strDate, and then echoes that<\/I> value:<\/P>strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\nSet FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’c:\\Logs’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList\n strDate = Left(objFile.CreationDate, 8)\n Wscript.Echo strDate\nNext\n<\/PRE>\n
So much for step 1. Now it\u2019s time for the second – and final – step: renaming each of the files. Let\u2019s show you the script, and then explain how it works:<\/P>
strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\nSet FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Logs’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList\n strDate = Left(objFile.CreationDate, 8)\n strNewName = objFile.Drive & objFile.Path & strDate & “.” & “log”\n errResult = objFile.Rename(strNewName)\nNext\n<\/PRE>\n
The tricky part here lies in constructing the new file name. When you rename a file using WMI, you can\u2019t just specify a new name; for example, we can\u2019t simply rename the file Wednesday.log<\/B> to 20041201.log<\/B>. Instead, we have to specify the entire path, and rename the file C:\\Logs\\20041201.log<\/B>. That\u2019s what this line of code does:<\/P>strNewName = objFile.Drive & objFile.Path & strDate & “.log”\n<\/PRE>\nWhat we\u2019re doing here is combining the drive where the file resides (C:<\/B>), the folder path on that drive (\\Logs\\<\/B>), the new name for the file (20041201<\/B>, the value of our variable strDate), and the new file extension (.log<\/B>). Put those all together, and you end up with C:\\Logs\\20041201.log<\/B>, which just happens to be the complete path we want to assign the file. All we have to do now is call the Rename method and we\u2019ll change the file name.<\/P>\n
Incidentally, we know it seems a bit odd to have to supply the entire path just to rename a file. If there\u2019s a bright side to this, however, it\u2019s the fact that you can use this same approach to move files to another folder. For example, suppose you not only wanted to rename the files, but you also wanted to move them to a folder name C:\\Backups. In that case, you could use a script similar to this, which replaces the current file path (\\Logs\\<\/B>) with the new path (\\Backups\\<\/B>). Run this script, and the files will not only be renamed, they will also be moved to C:\\Backups:<\/P>strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\nSet FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’C:\\Logs’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList\n strDate = Left(objFile.CreationDate, 8)\n strNewName = objFile.Drive & “\\Backups\\” & strDate & “.log”\n errResult = objFile.Rename(strNewName)\nNext\n<\/PRE>\n
The only problem with the script we\u2019ve shown you is that it will blow up if you have files with the same creation date; after all, the script will try to create two files named, say, 20041201.log, and the file system just doesn\u2019t like to have identically-named files in the same folder. If that\u2019s an issue, here\u2019s a sample script that checks to see if a file name is unique before it actually renames the file. For example, suppose the folder already has a file named 20041201.log. If that happens, this script (which we won\u2019t explain in detail today) will create a new file name: 20041201_2.log and check to see if that<\/I> file exists. If it does, it will try 20041201_3.vbs, and continue trying until it creates a unique name. At that point it renames the file:<\/P>strComputer = “.”\nSet objWMIService = GetObject(“winmgmts:\\\\” & strComputer & “\\root\\cimv2”)<\/p>\nSet FileList = objWMIService.ExecQuery _\n (“ASSOCIATORS OF {Win32_Directory.Name=’c:\\Logs’} Where ” _\n & “ResultClass = CIM_DataFile”)<\/p>\n
For Each objFile In FileList\n strDate = Left(objFile.CreationDate, 8)\n strNewName = objFile.Drive & objFile.Path & _\n strDate & “.” & “log”\n strNameCheck = Replace(strNewName, “\\”, “\\\\”)<\/p>\n
i = 1\n Do While True\n Set colFiles = objWMIService.ExecQuery _\n (“Select * from Cim_Datafile Where Name = ‘” & strNameCheck & “‘”)\n If colFiles.Count = 0 Then\n errResult = objFile.Rename(strNewName)\n Exit Do\n Else\n i = i + 1\n strNewName = objFile.Drive & objFile.Path & _\n strDate & “_” & i & “.” & “log”\n strNameCheck = Replace(strNewName, “\\”, “\\\\”)\n End If\n Loop\nNext\n<\/PRE>\n
Yes, it\u2019s a little complicated, which is why we\u2019re saving the explanation for another day. Hey, you don\u2019t really expect to put in any overtime on this column, do you?<\/P><\/p>\n","protected":false},"excerpt":{"rendered":"
Hey, Scripting Guy! I have a folder that contains a bunch of log files. I would like to rename each file based on the date the file was created; for example, if a file was created on December 1, 2004, I\u2019d like to rename it 20041201.log. Is that possible?— CK Hey, CK. Listen, when it […]<\/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,3,12,5],"class_list":["post-70843","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-files","tag-scripting-guy","tag-storage","tag-vbscript"],"acf":[],"blog_post_summary":"
Hey, Scripting Guy! I have a folder that contains a bunch of log files. I would like to rename each file based on the date the file was created; for example, if a file was created on December 1, 2004, I\u2019d like to rename it 20041201.log. Is that possible?— CK Hey, CK. Listen, when it […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70843","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=70843"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/70843\/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=70843"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=70843"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=70843"}],"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,")