
'sub sync
' initProgress "Synchronising", 0
' iTunesApp.UpdateIPod
'end sub dim i : for i = 1 to 10
set p = tree.ParentNode(p)
if p is nothing then exit for
if p.caption = "" then exit for
if p.caption = "Playlists" then exit for
if p.caption = "Imported m3u playlists" then exit for
n = p.Caption + dirSeparator + n
next if not right(p1.tracks.item(j).path, 4) = ".wma" then
Set os = p2.AddFile(p1.tracks.item(j).path)
if not os is nothing then
While os.InProgress
Wend
end if
countProgress
end if
codecrafter wrote:
Does anyone know if it's possible to do a 'Convert Track Format' from a script? Other threads seem to indicate no. It would be nice to find some way to get autoconversion in the loop so that this script will work more like syncing to the iPhone used to work.
Also, I wonder if http://www.mediafire.com would be a better home for the script than rapidshare (to avoid the download limit).
markstuartwalker wrote:Yes, thanks for the bugfix and the Mediafire hint.
Here is 2.1 again http://www.mediafire.com/?sharekey=b7ee1dea9ccc4c976b21be4093fab7ace04e75f6e8ebb871
It has been pointed out elsewhere about the file format compatibility. In the future I shall modify the script to transfer only mp3 files as a bit of self-protection. auto-convertion might come in a much later version.
Mark
Users browsing this forum: Bing [Bot], willyvds and 12 guests