<div>
Hello Sharath! 
This should accomplish what you're after. 
 
Set this up against a test folder, drop a few JPG files in there and change the StartFolder to that test folder. 
Run it once and it will generate a log file of what would change. &nbsp;It won't actually perform the change until you uncomment line 49 by removing the apostrophe ('). 
 
~sb 

<pre><code class="code-10 nolinks" id="code-125194">LogFile = &quot;C:\RenameReport.log&quot;
StartFolder=&quot;C:\Pictures\&quot;
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objRenamed : Set objRenamed = objFSO.CreateTextFile(LogFile)
 
Main()
 
Sub Main
 objRenamed.WriteLine &quot;Rename details for &quot; &amp; Date &amp; vbnewline &amp; &quot;Began at &quot; &amp; time &amp; vbNewLine
 EnumFolders(objFSO.GetFolder(StartFolder))
 objRenamed.WriteLine &quot;Renaming process completed at &quot; &amp; time
 objRenamed.Close
End Sub
 
Sub EnumFolders(objFld)
 wscript.echo &quot;Scanning &quot; &amp; objFld
 EnumFiles(objFld.Files)
 On Error Resume Next
 If objFld.Subfolders.Count &gt; 0 Then
 If Err.Number &lt;&gt; 0 Then
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; objFld
 Exit Sub
 End If
 On Error Goto 0
 For Each fld in objFld.Subfolders
 EnumFolders(objFSO.GetFolder(fld))
 Next
 End If
End Sub 
 
Sub EnumFiles(arrFiles)
On Error Resume Next
 For Each file in arrFiles
 If Err.Number &lt;&gt; 0 Then 
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; file
 Exit Sub
 End If
 On Error Goto 0
 strExt=LCase(objFSO.GetExtensionName(file.Name))
 If strExt=&quot;jpg&quot; Then
 strYear=Year(file.DateCreated)
 strMonth=Month(file.DateCreated)
 If Len(strMonth) = 1 Then strMonth = 0 &amp; strMonth
 strDay=Day(file.DateCreated)
 If Len(strDay) = 1 Then strDay = 0 &amp; strDay
 NewName = strYear &amp; strMonth &amp; strDay &amp; &quot;_&quot; &amp; file.Name
 objRenamed.WriteLine &quot;Renaming &quot; &amp; file &amp; &quot; to &quot; &amp; NewName
' objFSO.MoveFile file, file.ParentFolder &amp; &quot;\&quot; &amp; NewName
 End If
 Next
End Sub
</code></pre>
</div>

<div>
Hi, 
&nbsp; 
I got this in the report 
&nbsp; 
Rename details for 7/24/2008 
Began at 11:11:55 PM 
Renaming D:\Rename\New Bitmap Image.jpg to 20080724_New Bitmap Image.jpg 
Renaming process completed at 11:11:57 PM 
 
But the file was not renamed 

</div>

<div>
Can i have the date as 
MM-DD-YYY please... 

</div>

<div>
 

<pre><code class="code-10 nolinks" id="code-125222">LogFile = &quot;C:\RenameReport.log&quot;
StartFolder=&quot;C:\Pictures\&quot;
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objRenamed : Set objRenamed = objFSO.CreateTextFile(LogFile)
 
Main()
 
Sub Main
 objRenamed.WriteLine &quot;Rename details for &quot; &amp; Date &amp; vbnewline &amp; &quot;Began at &quot; &amp; time &amp; vbNewLine
 EnumFolders(objFSO.GetFolder(StartFolder))
 objRenamed.WriteLine &quot;Renaming process completed at &quot; &amp; time
 objRenamed.Close
End Sub
 
Sub EnumFolders(objFld)
 wscript.echo &quot;Scanning &quot; &amp; objFld
 EnumFiles(objFld.Files)
 On Error Resume Next
 If objFld.Subfolders.Count &gt; 0 Then
 If Err.Number &lt;&gt; 0 Then
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; objFld
 Exit Sub
 End If
 On Error Goto 0
 For Each fld in objFld.Subfolders
 EnumFolders(objFSO.GetFolder(fld))
 Next
 End If
End Sub 
 
Sub EnumFiles(arrFiles)
On Error Resume Next
 For Each file in arrFiles
 If Err.Number &lt;&gt; 0 Then 
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; file
 Exit Sub
 End If
 On Error Goto 0
 strExt=LCase(objFSO.GetExtensionName(file.Name))
 If strExt=&quot;jpg&quot; Then
 strYear=Year(file.DateCreated)
 strMonth=Month(file.DateCreated)
 If Len(strMonth) = 1 Then strMonth = 0 &amp; strMonth
 strDay=Day(file.DateCreated)
 If Len(strDay) = 1 Then strDay = 0 &amp; strDay
 NewName = strMonth &amp; &quot;-&quot; &amp; strDay &amp; &quot;-&quot; &amp; strYear &amp; &quot;_&quot; &amp; file.Name
 objRenamed.WriteLine &quot;Renaming &quot; &amp; file &amp; &quot; to &quot; &amp; NewName
 objFSO.MoveFile file, file.ParentFolder &amp; &quot;\&quot; &amp; NewName
 End If
 Next
End Sub
</code></pre>
</div>

<div>
Thanks this works...But the Created day is showing as todays date. And the Modified date shows the exact date the file was create. Can you please change it to rename as the modified date.
</div>

<div>
 

<pre><code class="code-10 nolinks" id="code-125235">LogFile = &quot;C:\RenameReport.log&quot;
StartFolder=&quot;C:\Pictures\&quot;
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objRenamed : Set objRenamed = objFSO.CreateTextFile(LogFile)
 
Main()
 
Sub Main
 objRenamed.WriteLine &quot;Rename details for &quot; &amp; Date &amp; vbnewline &amp; &quot;Began at &quot; &amp; time &amp; vbNewLine
 EnumFolders(objFSO.GetFolder(StartFolder))
 objRenamed.WriteLine &quot;Renaming process completed at &quot; &amp; time
 objRenamed.Close
End Sub
 
Sub EnumFolders(objFld)
 wscript.echo &quot;Scanning &quot; &amp; objFld
 EnumFiles(objFld.Files)
 On Error Resume Next
 If objFld.Subfolders.Count &gt; 0 Then
 If Err.Number &lt;&gt; 0 Then
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; objFld
 Exit Sub
 End If
 On Error Goto 0
 For Each fld in objFld.Subfolders
 EnumFolders(objFSO.GetFolder(fld))
 Next
 End If
End Sub 
 
Sub EnumFiles(arrFiles)
On Error Resume Next
 For Each file in arrFiles
 If Err.Number &lt;&gt; 0 Then 
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; file
 Exit Sub
 End If
 On Error Goto 0
 strExt=LCase(objFSO.GetExtensionName(file.Name))
 If strExt=&quot;jpg&quot; Then
 strYear=Year(file.DateCreated)
 strMonth=Month(file.DateCreated)
 If Len(strMonth) = 1 Then strMonth = 0 &amp; strMonth
 strDay=Day(file.DateLastModified)
 If Len(strDay) = 1 Then strDay = 0 &amp; strDay
 NewName = strMonth &amp; &quot;-&quot; &amp; strDay &amp; &quot;-&quot; &amp; strYear &amp; &quot;_&quot; &amp; file.Name
 objRenamed.WriteLine &quot;Renaming &quot; &amp; file &amp; &quot; to &quot; &amp; NewName
 objFSO.MoveFile file, file.ParentFolder &amp; &quot;\&quot; &amp; NewName
 End If
 Next
End Sub
</code></pre>
</div>

<div>
I still dont get the modified date. It still gets me the created date... 
Attached a file sample 
 
<a href="https://filedb.experts-exchange.com/incoming/2008/07_w30/44376/ScreenShot009.bmp" target="_blank" class="file-inline" title="Sample (124 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ScreenShot009.bmp</a>
</div>

ScreenShot009.bmp

<div>
Sorry sir - I wasn't paying complete attention - only changed it in one location...this should do it. 

<pre><code class="code-10 nolinks" id="code-125266">LogFile = &quot;C:\RenameReport.log&quot;
StartFolder=&quot;C:\Pictures\&quot;
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objRenamed : Set objRenamed = objFSO.CreateTextFile(LogFile)
 
Main()
 
Sub Main
 objRenamed.WriteLine &quot;Rename details for &quot; &amp; Date &amp; vbnewline &amp; &quot;Began at &quot; &amp; time &amp; vbNewLine
 EnumFolders(objFSO.GetFolder(StartFolder))
 objRenamed.WriteLine &quot;Renaming process completed at &quot; &amp; time
 objRenamed.Close
End Sub
 
Sub EnumFolders(objFld)
 wscript.echo &quot;Scanning &quot; &amp; objFld
 EnumFiles(objFld.Files)
 On Error Resume Next
 If objFld.Subfolders.Count &gt; 0 Then
 If Err.Number &lt;&gt; 0 Then
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; objFld
 Exit Sub
 End If
 On Error Goto 0
 For Each fld in objFld.Subfolders
 EnumFolders(objFSO.GetFolder(fld))
 Next
 End If
End Sub 
 
Sub EnumFiles(arrFiles)
On Error Resume Next
 For Each file in arrFiles
 If Err.Number &lt;&gt; 0 Then 
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; file
 Exit Sub
 End If
 On Error Goto 0
 strExt=LCase(objFSO.GetExtensionName(file.Name))
 If strExt=&quot;jpg&quot; Then
 strYear=Year(file.DateLastModified)
 strMonth=Month(file.DateLastModified)
 If Len(strMonth) = 1 Then strMonth = 0 &amp; strMonth
 strDay=Day(file.DateLastModified)
 If Len(strDay) = 1 Then strDay = 0 &amp; strDay
 NewName = strMonth &amp; &quot;-&quot; &amp; strDay &amp; &quot;-&quot; &amp; strYear &amp; &quot;_&quot; &amp; file.Name
 objRenamed.WriteLine &quot;Renaming &quot; &amp; file &amp; &quot; to &quot; &amp; NewName
 objFSO.MoveFile file, file.ParentFolder &amp; &quot;\&quot; &amp; NewName
 End If
 Next
End Sub
</code></pre>
</div>

<div>
Thanks a lot works perfect...One small thing. Can i have the format as this... 
04 April 2007, 10:40:26 

</div>

<div>
Date wise would help me sort beter 
04-April-2007, 10:40:26 

</div>

<div>
oops the date is not coming properly 
Can i have the date format as attached 
 
<a href="https://filedb.experts-exchange.com/incoming/2008/07_w30/44544/ScreenShot053.bmp" target="_blank" class="file-inline" title="Sample (11 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>ScreenShot053.bmp</a>
</div>

ScreenShot053.bmp

<div>
 

<pre><code class="code-10 nolinks" id="code-125691">LogFile = &quot;C:\RenameReport.log&quot;
StartFolder=&quot;C:\Pictures\&quot;
 
Dim objFSO : Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Dim objRenamed : Set objRenamed = objFSO.CreateTextFile(LogFile)
 
Main()
 
Sub Main
 objRenamed.WriteLine &quot;Rename details for &quot; &amp; Date &amp; vbnewline &amp; &quot;Began at &quot; &amp; time &amp; vbNewLine
 EnumFolders(objFSO.GetFolder(StartFolder))
 objRenamed.WriteLine &quot;Renaming process completed at &quot; &amp; time
 objRenamed.Close
End Sub
 
Sub EnumFolders(objFld)
wscript.echo &quot;Scanning &quot; &amp; objFld
 EnumFiles(objFld.Files)
 On Error Resume Next
 If objFld.Subfolders.Count &gt; 0 Then
 If Err.Number &lt;&gt; 0 Then
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; objFld
 Exit Sub
 End If
 On Error Goto 0
 For Each fld in objFld.Subfolders
 EnumFolders(objFSO.GetFolder(fld))
 Next
 End If
End Sub 
 
Sub EnumFiles(arrFiles)
On Error Resume Next
 For Each file in arrFiles
 If Err.Number &lt;&gt; 0 Then 
 objRenamed.WriteLine Err.Description &amp; &quot; for &quot; &amp; file
 Exit Sub
 End If
 On Error Goto 0
 strExt=LCase(objFSO.GetExtensionName(file.Name))
 If strExt=&quot;jpg&quot; Then
 NewName=ConvertDate(file.DateLastModified) &amp; &quot;_&quot; &amp; file.Name
 objRenamed.WriteLine &quot;Renaming &quot; &amp; file &amp; &quot; to &quot; &amp; NewName
 objFSO.MoveFile file, file.ParentFolder &amp; &quot;\&quot; &amp; NewName
 End If
 Next
End Sub
 
Function ConvertDate(dt)
 strYear=Year(dt) &amp; &quot; &quot;
 strMonth=MonthName(Month(dt)) &amp; &quot; &quot;
 strDay=Day(dt) &amp; &quot; &quot;
 If Len(strDay) = 2 Then strDay = 0 &amp; strDay
 strHour=Hour(dt) &amp; &quot;:&quot;
 strMin=Minute(dt) &amp; &quot;:&quot;
 strSec=Second(dt)
 ConvertDate=strDay &amp; strMonth &amp; strYear &amp; strHour &amp; strMin &amp; strSec
End Function
</code></pre>
</div>

<div>
I get this 
&nbsp; 
 
--------------------------- 
Windows Script Host 
--------------------------- 
Script: D:\Photos\rename.vbs 
Line: 45 
Char: 7 
Error: Bad file name or number 
Code: 800A0034 
Source: &nbsp;Microsoft VBScript runtime error 
--------------------------- 
OK &nbsp; 
--------------------------- 
&nbsp; 

</div>

<div>
Did you modify the script? 
Line 45 is 
&nbsp; &nbsp;End If 
and wouldn't throw that error...
</div>

<div>
No Sirbounty... 
I have this in line 45 
&nbsp; &nbsp; &nbsp; &nbsp;objFSO.MoveFile file, file.ParentFolder &amp;&nbsp;&quot;\&quot; &amp;&nbsp;NewName 
&nbsp; 
Inside the log file i have this 
&nbsp; 
 
Rename details for 7/26/2008 
Began at 11:15:10 AM 
Renaming D:\Photos\Mauritius\14th -Jul\DSC05103.JPG to 14 July 2007 9:8:52_DSC05103.JPG 

</div>

<div>
Sirbounty...Relevant help... :-) 
<a href="https://www.experts-exchange.com/questions/23597938/I-have-this-script-that-renames-jpg-files-as-per-the-modified-dates-Need-a-little-addition.html" rel="ugc">https://www.experts-exchange.com/questions/23597938/I-have-this-script-that-renames-jpg-files-as-per-the-modified-dates-Need-a-little-addition.html</a>&nbsp; 

</div>

<div>
<div class="content wysiwyg-content">
Hi, 
 
Need a script that can rename the jpeg files in a folder and all the sub folders to the created date of the files. 
 
So i have then known on which day the snap was taken. 
 
Regards 
Sharath
</div>
</div>

Hi,

Need a script that can rename the jpeg files in a folder and all the sub folders to the created date of the files.

So i have then known on which day the snap was taken.

Regards
Sharath

Need a script that can rename the jpeg files in a folder and all the sub folders to the created date of the files.

A scripting language is a programming language that supports scripts, programs written for a special run-time environment that automate the execution of tasks that could alternatively be executed one-by-one by a human operator. Scripting languages are often interpreted (rather than compiled). Primitives are usually the elementary tasks or API calls, and the language allows them to be combined into more complex programs. Environments that can be automated through scripting include software applications, web pages within a web browser, the shells of operating systems (OS), embedded systems, as well as numerous games. A scripting language can be viewed as a domain-specific language for a particular environment; in the case of scripting an application, this is also known as an extension language.

Scripting Languages

A programming language is a formal constructed language designed to communicate instructions to a machine, particularly a computer. Thousands of different programming languages have been created, mainly in the computer field, and many more still are being created every year. The description of a programming language is usually split into the two components of syntax (form) and semantics (meaning). Some languages are defined by a specification document (for example, the C programming language is specified by an ISO Standard), while other languages (such as Perl) have a dominant implementation that is treated as a reference. Some languages have both, with the basic language defined by a standard and extensions taken from the dominant implementation being common.

Programming Languages-Other

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.