I need a batch picture renamer software - Techist - Tech Forum

Go Back   Techist - Tech Forum > Computer Software > Microsoft Windows and Software
Click Here to Login
Closed Thread
 
Thread Tools Display Modes
 
Old 02-20-2008, 10:05 PM   #1 (permalink)
Chillin Techie
 
Join Date: Nov 2004
Location: USA
Posts: 11,861
Default I need a batch picture renamer software

I need a batch picture renamer software or a media player that will automatically recognize Picture in a music folder as album art.

I have a alpine media player for my car. it plugs up to my ipod and hdd. it recognized album art. I have over 200 gigs of music. most of it is old school and the pics are in the folder. I want to see album art for all of my songs. itunes and wmp doesn't recognize most of the old school album art as they recognize mostly new music. Anapod explorer will recognize the pictures, but only if you name the picture in the folder Cover.jpg.

that's over 600 pictures to rename in my music folders. anybody know of of some software to help make it easy for me?
__________________

__________________
The Ultimate Hard Drive Utility PowerMax 4.23. (It now has the ability to clean a Boot Sector virus on the quick erase option.)
The best browser Netscape 8
Have you accidently delete something? Look here (trial. the better one) and here(free)
EricB is offline  
Old 02-21-2008, 09:32 PM   #2 (permalink)
Monster Techie
 
Join Date: May 2004
Location: /usr/root/mn/us
Posts: 1,118
Default Re: I need a batch picture renamer software

Copy this into a new text file.Change the Path between the ***'s to where your music is stored. This must be a folder above any folders with the jpg's in them. It will not change any jgp files in the c:\test folder.

Save the text file, then change the extension to .vbs.
Then just run it and watch the JPG files change away

FYI, this will change all JGP files to Cover.jpg, so watch out.


Code:
'********************************** SET THIS TO THE PATH TO YOUR FOLDERS *********************
Root = "c:\test"
'***************************** All folders should be sub folders under this one **************




strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")


strFolderRoot = Replace(Root, "\", "\\")
wscript.echo strfolderroot

Set colFolders = objWMIService.ExecQuery _
 ("Select * from Win32_Directory where Name Like '" & strFolderRoot & "%'")
	
count = 0
For Each objFolder in colFolders
  strTMP = Replace(Mid(objFolder.Name,4,Len(objFolder.Name)),"\","\\") 
  strQuery = "SELECT * FROM CIM_DataFile WHERE Drive = 'c:' AND Path = '\\" & strTMP & "\\' AND Extension = 'jpg'"

  Set colFiles = objWMIService.ExecQuery(strQuery)

  For Each objFile in colFiles
	Location = instrrev(objFile.name, "\")
	If Not Right(objFile.Name, Len(objFile.name) - Location) = "cover.jpg" Then
		Path = Left(objFile.Name, Location)
		objFile.Rename(Path & "Cover.jpg")
		count = count + 1
	End If
  next
next
__________________

__________________

Its a frigging Laptop, not a Labtop!!!!
bla!! is offline  
Old 02-21-2008, 09:38 PM   #3 (permalink)
Chillin Techie
 
Join Date: Nov 2004
Location: USA
Posts: 11,861
Default Re: I need a batch picture renamer software

Quote:
Originally Posted by bla!! View Post
Copy this into a new text file.Change the Path between the ***'s to where your music is stored. This must be a folder above any folders with the jpg's in them. It will not change any jgp files in the c:\test folder.

Save the text file, then change the extension to .vbs.
Then just run it and watch the JPG files change away

FYI, this will change all JGP files to Cover.jpg, so watch out.


Code:
'********************************** SET THIS TO THE PATH TO YOUR FOLDERS *********************
Root = "c:\test"
'***************************** All folders should be sub folders under this one **************




strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")


strFolderRoot = Replace(Root, "\", "\\")
wscript.echo strfolderroot

Set colFolders = objWMIService.ExecQuery _
 ("Select * from Win32_Directory where Name Like '" & strFolderRoot & "%'")
	
count = 0
For Each objFolder in colFolders
  strTMP = Replace(Mid(objFolder.Name,4,Len(objFolder.Name)),"\","\\") 
  strQuery = "SELECT * FROM CIM_DataFile WHERE Drive = 'c:' AND Path = '\\" & strTMP & "\\' AND Extension = 'jpg'"

  Set colFiles = objWMIService.ExecQuery(strQuery)

  For Each objFile in colFiles
	Location = instrrev(objFile.name, "\")
	If Not Right(objFile.Name, Len(objFile.name) - Location) = "cover.jpg" Then
		Path = Left(objFile.Name, Location)
		objFile.Rename(Path & "Cover.jpg")
		count = count + 1
	End If
  next
next

it will just change all the pictures in my music folder but not my pictures folder right?

L:\My Music is my music folder. can you put it in the right place so I won't mess anything up

thanks for your help
__________________
The Ultimate Hard Drive Utility PowerMax 4.23. (It now has the ability to clean a Boot Sector virus on the quick erase option.)
The best browser Netscape 8
Have you accidently delete something? Look here (trial. the better one) and here(free)
EricB is offline  
Old 02-21-2008, 10:48 PM   #4 (permalink)
Monster Techie
 
Join Date: May 2004
Location: /usr/root/mn/us
Posts: 1,118
Default Re: I need a batch picture renamer software

Here you go for just your music folder

Code:
'********************************** SET THIS TO THE PATH TO YOUR FOLDERS *********************
Root = "L:\My Music"
'***************************** All folders should be sub folders under this one **************




strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")


strFolderRoot = Replace(Root, "\", "\\")
'wscript.echo strfolderroot

Set colFolders = objWMIService.ExecQuery _
 ("Select * from Win32_Directory where Name Like '" & strFolderRoot & "%'")
	
count = 0
For Each objFolder in colFolders
  strTMP = Replace(Mid(objFolder.Name,4,Len(objFolder.Name)),"\","\\") 
  strQuery = "SELECT * FROM CIM_DataFile WHERE Drive = 'L:' AND Path = '\\" & strTMP & "\\' AND Extension = 'jpg'"

  Set colFiles = objWMIService.ExecQuery(strQuery)

  For Each objFile in colFiles
	Location = instrrev(objFile.name, "\")
	If Not Right(objFile.Name, Len(objFile.name) - Location) = "cover.jpg" Then
		Path = Left(objFile.Name, Location)
		objFile.Rename(Path & "Cover.jpg")
		count = count + 1
	End If
  next
next
__________________

Its a frigging Laptop, not a Labtop!!!!
bla!! is offline  
Old 02-22-2008, 10:37 PM   #5 (permalink)
Chillin Techie
 
Join Date: Nov 2004
Location: USA
Posts: 11,861
Default Re: I need a batch picture renamer software

it's not working, I get this error

__________________
The Ultimate Hard Drive Utility PowerMax 4.23. (It now has the ability to clean a Boot Sector virus on the quick erase option.)
The best browser Netscape 8
Have you accidently delete something? Look here (trial. the better one) and here(free)
EricB is offline  
Old 02-23-2008, 01:13 PM   #6 (permalink)
Monster Techie
 
Join Date: May 2004
Location: /usr/root/mn/us
Posts: 1,118
Default Re: I need a batch picture renamer software

Oh, you're on vista.... hmmmm.
Not sure if the WMI classes are the same. I don't have a windows box at home. I'll take a look on Monday.
__________________

Its a frigging Laptop, not a Labtop!!!!
bla!! is offline  
Old 02-23-2008, 04:39 PM   #7 (permalink)
Chillin Techie
 
Join Date: Nov 2004
Location: USA
Posts: 11,861
Default Re: I need a batch picture renamer software

Quote:
Originally Posted by bla!! View Post
Oh, you're on vista.... hmmmm.
Not sure if the WMI classes are the same. I don't have a windows box at home. I'll take a look on Monday.
I don't use vista. that's xp media center 2005
__________________

__________________
The Ultimate Hard Drive Utility PowerMax 4.23. (It now has the ability to clean a Boot Sector virus on the quick erase option.)
The best browser Netscape 8
Have you accidently delete something? Look here (trial. the better one) and here(free)
EricB is offline  
Closed Thread

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Giveaway of the day Osiris Microsoft Windows and Software 1 01-17-2008 08:43 PM
Why are we all into that? ninthBit Linux and Open Source 3 10-11-2007 04:28 PM
Processors, D-Link Gaming Router, and Software for Sale Mantis-X Buy/Sell/Trade and Hot Deals 0 05-03-2007 04:54 PM



Copyright 2002- Social Knowledge, LLC All Rights Reserved.

All times are GMT -5. The time now is 08:17 PM.


Powered by vBulletin® Version 3.8.8 Beta 1
Copyright ©2000 - 2017, vBulletin Solutions, Inc.