Reply to thread

Message

<blockquote data-quote="joostzilla" data-source="post: 595344">thanks for this... Only i receive an error message: see attachment.Am i doing something wrong? option explicitdim objFSO, objFolder, objSubFolders, objArtistFolderdim strArtistname, strFolderJPG, strThumbJPG'==== change these values ===const strMusicFolder =&quot;L:\iTunes Music&quot;const strThumbFolder =&quot;C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\Music\Artists&quot;set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)set objFolder = objFSO.getfolder(strMusicFolder)set objSubFolders = objFolder.SubFoldersfor each objArtistFolder in objSubFolders&nbsp; &nbsp; strArtistName = objArtistFolder.Name&nbsp; &nbsp; strFolderJPG = objArtistFolder.path &amp; &quot;\folder.jpg&quot;&nbsp; &nbsp; with objFSO &nbsp; &nbsp; if .FileExists (strFolderJPG)&nbsp; then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'large thumbs&nbsp; &nbsp; &nbsp; &nbsp; strThumbJPG = strThumbFolder &amp; &quot;\&quot; &amp; strArtistName &amp; &quot;L.jpg&quot;&nbsp; &nbsp; &nbsp; &nbsp; if not .FileExists (strThumbJPG) then .CopyFile strFolderJPG, strThumbJPG&nbsp; &nbsp; &nbsp; &nbsp; 'small thumbs&nbsp; &nbsp; &nbsp; &nbsp; strThumbJPG = strThumbFolder &amp; &quot;\&quot; &amp; strArtistName &amp; &quot;.jpg&quot;&nbsp; &nbsp; &nbsp; &nbsp; if not .FileExists (strThumbJPG) then .CopyFile strFolderJPG, strThumbJPG&nbsp; &nbsp; end if&nbsp; &nbsp; end withnextset objArtistFolder = nothingset objSubFolders = nothingset objFolder = nothingset objFSO = nothing</blockquote>

[QUOTE="joostzilla, post: 595344"] thanks for this... Only i receive an error message: see attachment. Am i doing something wrong? option explicit dim objFSO, objFolder, objSubFolders, objArtistFolder dim strArtistname, strFolderJPG, strThumbJPG '==== change these values === const strMusicFolder ="L:\iTunes Music" const strThumbFolder ="C:\ProgramData\Team MediaPortal\MediaPortal\Thumbs\Music\Artists" set objFSO = CreateObject("Scripting.FileSystemObject") set objFolder = objFSO.getfolder(strMusicFolder) set objSubFolders = objFolder.SubFolders for each objArtistFolder in objSubFolders strArtistName = objArtistFolder.Name strFolderJPG = objArtistFolder.path & "\folder.jpg" with objFSO if .FileExists (strFolderJPG) then 'large thumbs strThumbJPG = strThumbFolder & "\" & strArtistName & "L.jpg" if not .FileExists (strThumbJPG) then .CopyFile strFolderJPG, strThumbJPG 'small thumbs strThumbJPG = strThumbFolder & "\" & strArtistName & ".jpg" if not .FileExists (strThumbJPG) then .CopyFile strFolderJPG, strThumbJPG end if end with next set objArtistFolder = nothing set objSubFolders = nothing set objFolder = nothing set objFSO = nothing [/QUOTE]

Verification