Using excel to batch rename files + applescript

You might post the Applescript question over in an Applescript forum.


As for Excel... you can use VBA to rename files listed in one column to names listed in another column. You'll have to edit this, of course, but once you've entered the correct path to your pictures, this macro will rename column A filenames with the column B new names. Any filenames not found will be colored to draw your attention:

Option Explicit

Sub RenameFilesInDesktopFolder()
Dim fPATH As String, PicNames As Range, Pic As Range
                                        'rememeber the final \ in this string
fPATH = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Pictures\"
Set PicNames = ActiveSheet.Range("A:A").SpecialCells(xlConstants)
Application.DisplayAlerts = False

    For Each Pic In PicNames
        If Len(Dir(fPATH & Pic.Text)) > 0 Then      'does file exist?
            Name fPATH & Pic.Text As fPATH & Pic.Offset(, 1).Text   'rename it
        Else
            Pic.Interior.ColorIndex = 3             'if not, color the cell
        End If
    Next Pic

End Sub

Thank you!

It's not working, though. Could it be that I'm on MS 2011 running Mac OSX?

I'm getting an error in line 4.

  fPATH = CreateObject("WScript.Shell").specialfolders("Desktop") & "\test\"

http://www.youtube.com/watch?v=bHCrb...eature=related

Yeah, I'm no Mac guy. You'll might have to replace that line of code with one that sets the path to the folder exactly.

A little Googling suggests this gives you the path of the desktop on a Mac:

sPath = MacScript("(path to desktop folder as string)")

So maybe:

fPath = MacScript("(path to desktop folder as string)") & Application.PathSeparator & "test" & Application.PathSeparator

And I don't know of the Windows "NAME" command that follows will work on Mac.