[Windows Mobile Development and Hacking General] jackleung:
Thanks! This is exactly what I am looking for since I spent days without any solution to get album arts sync.

But my mp3 structure is a bit different as I listen to multiple language and divide them into folders before artist. So I modify the script a bit to fit mine (sorry it's a bit mess as I don't know VB but c/c++). Maybe someone found it helpful and modify to suit his/her need as well.

'AlbumArtSync, littld, Septemer 2009, Verson 1.0

'Provided as-is
'Use this at your own risk
'No warranty, guarantee, not even a "it will work"
'I don't promise it will be useful. It doesn't have to look nice either.
'I am not liable for anything at all
'I have no idea what country you are in and have no idea what crazy laws you may have
'and I have no intention of finding out
'If you are in any doubt, don't use it. Walk away. It's your computer, not mine.
'Provided freely for personal use only, unless you like updating your phone in small groups

Dim MyVar
Dim MyInput
Dim Shell
Dim i

Set Shell = WScript.CreateObject("WScript.Shell")

'1. Obtain the source and destinationflders from user input, checking first for registry entry
On Error Resume Next 'in case no registry entry exists
strRegSourceMusicFolder = "HKCU\Software\AlbumArtSync\SourceMusicFolder"
strSourceMusicFolder = Shell.RegRead (strRegSourceMusicFolder)
strRegDestMusicFolder = "HKCU\Software\AlbumArtSync\DestinationMusicFolder"
strDestMusicFolder = Shell.RegRead (strRegDestMusicFolder)
if strSourceMusicFolder = "" then strSourceMusicFolder = Shell.RegRead ("HKCU\Software\Microsoft\MediaPlayer\Preferences\SearchPath")
On Error GoTo 0

strDestMusicFolder = "j:\Music\"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if Not objFSO.FolderExists(strDestMusicFolder) then
WScript.Echo "Destination Music Folder '" & strDestMusicFolder & "' does not exist, exiting"
WScript.Quit
end if

Set objDestFolder = objFSO.GetFolder(strDestMusicFolder)
'sort out string variables
destLen = Len(objDestFolder.Path)

strSourceMusicFolder = "\\192.168.2.2\Qmultimedia\Music\MP3\English\"
GetSourceFolder

strSourceMusicFolder = "\\192.168.2.2\Qmultimedia\Music\MP3\Chinese\Misc"
GetSourceFolder

strSourceMusicFolder = "\\192.168.2.2\Qmultimedia\Music\MP3\Chinese\Female"
GetSourceFolder

strSourceMusicFolder = "\\192.168.2.2\Qmultimedia\Music\MP3\Chinese\male"
GetSourceFolder

strSourceMusicFolder = "\\192.168.2.2\Qmultimedia\Music\MP3\Japanese"
GetSourceFolder

Sub GetSourceFolder()
'check if the source folder exists
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
if Not objFSO.FolderExists(strSourceMusicFolder) then
WScript.Echo "Source Music Folder '" & strSourceMusicFolder & "' does not exist, exiting"
WScript.Quit
end if

'2. Enumerate the destination folders and check for album art
Set objSourceFolder = objFSO.GetFolder(strSourceMusicFolder)
ShowSubfolders objDestFolder
End Sub

Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
destPath = Subfolder.Path
partialDestPath = Right(destPath,Len(destPath)-destLen)
'check first for the existence in dest of the folder.jpg file
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Not objFSO.FileExists(destPath & "\folder.jpg") then
'check for existence in source of the folder referred to in dest
sourceFile = strSourceMusicFolder & partialDestPath & "\folder.jpg"

if objFSO.FileExists(sourceFile) then
'copy the file from source to dest
objFSO.CopyFile sourceFile , Subfolder.Path & "\" , True
i = i + 1
end if
end if
ShowSubFolders Subfolder
Next
End Sub

if i = 0 then WScript.Echo "No album art copied" else Wscript.Echo "Finished copying album art for " & i & " albums"