Option Explicit
 
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim CurrentFolder: Set CurrentFolder = fso.GetFolder(".\png")
Dim WShell: Set WShell = WScript.CreateObject("WScript.Shell")
 
Dim Files: Set Files = CurrentFolder.Files
Dim File
Dim fileName
Dim objFile
Dim str
 
For Each File In Files
Set objFile = fso.GetFile(File)
fileName = fso.GetBaseName(objFile)
 
str = "C:\progra~1\swftools\png2swf.exe -X 540 -Y 360 -o E:\path\to\swf\" & fileName & ".swf -r 30 E:\path\to\png\" & fileName & ".png"
 
WShell.Run str, 0
 
Next


This entry was posted on Wednesday, October 18th, 2006 at 10:41 am and is filed under Windows. You can follow any responses to this entry through the RSS 2.0 feed. Both comments and pings are currently closed.