For Each CurrentItem In SortArrayFilesName If InStr(ExcludStr, " " & CurrentItem & " ") = 0 Then i = i + 1 CurrentColor = RandomColor() WshShell.Run "bin\ImageMagick\magick.exe -size 111x84 xc:transparent -fill #" & CurrentColor & " -font Arial -pointsize 40 -gravity center -draw ""text 0,-22 '" & ComponentNumber & "'"" -draw ""text 0,14 '" & i & "'"" -draw ""rectangle 0,62,3,84"" -draw ""rectangle 0,43,3,49"" -draw ""rectangle 0,8,3,29"" -draw ""rectangle 7,0,13,3"" -draw ""rectangle 27,0,48,3"" -draw ""rectangle 62,0,68,3"" -draw ""rectangle 82,0,103,3"" -draw ""rectangle 108,6,111,12"" -draw ""rectangle 108,26,111,47"" -draw ""rectangle 108,61,111,67"" -draw ""rectangle 18,81,24,84"" -draw ""rectangle 38,81,59,84"" -draw ""rectangle 93,81,111,84"" " & DarkPath & "\" & CurrentItem & ".png", 0, True If Not FSO.FileExists(DarkPath & "\" & CurrentItem & ".png") Then WshShell.Run "bin\ImageMagick\magick.exe -size 111x84 xc:transparent -fill #" & CurrentColor & " -font Arial -pointsize 40 -gravity center -draw ""text 0,-22 '" & ComponentNumber & "'"" -draw ""text 0,14 '" & i & "'"" -draw ""rectangle 0,62,3,84"" -draw ""rectangle 0,43,3,49"" -draw ""rectangle 0,8,3,29"" -draw ""rectangle 7,0,13,3"" -draw ""rectangle 27,0,48,3"" -draw ""rectangle 62,0,68,3"" -draw ""rectangle 82,0,103,3"" -draw ""rectangle 108,6,111,12"" -draw ""rectangle 108,26,111,47"" -draw ""rectangle 108,61,111,67"" -draw ""rectangle 18,81,24,84"" -draw ""rectangle 38,81,59,84"" -draw ""rectangle 93,81,111,84"" " & DarkPath & "\" & CurrentItem & ".png", 0, True Next |