This example will teach you how to convert all SWF (flash) files in a folder into JPEG images using SWF To Image library

A folder with SWF flash movies:

SWF To Image library is freeware. However you are welcome to purchase 12 months tech support for it and so support development of SWF To Image library.

 

The code below will find all flash (swf) files in a folder and then will convert them into JPEG images with the same name and .jpg extension



' This example converts all SWF files in the folder into JPG image files

' Copy this script to the folder with SWF flash movies and run it

' Script will generate JPG image files using extracted frames from SWF

Set SWFToImage = CreateObject("SWFToImage.SWFToImageObject")

SWFToImage.InitLibrary "demo", "demo"

Dim WshShell, fs, f, fc, f1, tsFile

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

sCurrentFolder = WshShell.CurrentDirectory

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFolder(sCurrentFolder) ' current directory

Set fc = f.Files

Set fs = Nothing

' converting SWF files to JPG image files

For Each f1 in fc

if UCase(Mid(f1.name, InstrRev(f1.name, ".") + 1)) = "SWF" then

SWFToImage.InputSWFFileName = f1.name

SWFToImage.FrameIndex = 1 ' number of frame to extract

SWFToImage.ImageOutputType = 1 ' set output image type to Jpeg (0 = BMP, 1 = JPG, 2 = GIF)

SWFToImage.Execute

SWFToImage.SaveToFile Mid(f1.name, 1, Instr(f1.name, ".") - 1) & ".jpg"

End If

Next



Set SWFToImage = nothing

The script code will convert every SWF file into JPG image in the same folder: