break off

dim $iRC

$iRC=setoption('Explicit','on')

$iRC=setoption('NoVarsInStrings','on')



dim $sSource, $sDest, $sName, $sExtension, $iCounter

dim $sFullSource, $sFullFileName, $sFullDest, $sRenamed



$sSource = 'c:\temp'

$sDest = 'c:\test'

$sFullFileName = 'test.doc'

$sName = 'test'

$sExtension = 'doc'

$sFullSource = $sSource+'\'+sFullFileName

$sRenamed = $sSource+'\'+$sName+'-WD.'+$sExtension

$sFullDest = $sDest+'\'+$sFullFileName

$iCounter = 0