I am unsure of how to call a function that is too long to define as a normal 1 or 2 line function. Any help appreciated...
rem subroutine definition:
:: -----------------------------------------------------------------------
:SelectPathForType[sFile]
:: -----------------------------------------------------------------------
rem main subroutine
:: -----------------------------------------------------------------------
:MyMain
:: -----------------------------------------------------------------------
do sFile in /P dir /a:-d /f /s /h %sPathSourceHeap
echo %sFile
set sPathSubDir=@%SelectPathForType[%sFile]
iff "%sPathSubDir" NE "N/P" then
call MyMove[%aPathTargetBase,%aPathSubDir,%sFile,%nMaxJPGFilesinFolder]
endiff
enddo
:: -----------------------------------------------------------------------
:MyMove[aPathTargetBase, aPathSubDir, sFile, nMaxFilesIfJPG]
:: -----------------------------------------------------------------------
rem subroutine definition:
:: -----------------------------------------------------------------------
:SelectPathForType[sFile]
:: -----------------------------------------------------------------------
rem main subroutine
:: -----------------------------------------------------------------------
:MyMain
:: -----------------------------------------------------------------------
do sFile in /P dir /a:-d /f /s /h %sPathSourceHeap
echo %sFile
set sPathSubDir=@%SelectPathForType[%sFile]
iff "%sPathSubDir" NE "N/P" then
call MyMove[%aPathTargetBase,%aPathSubDir,%sFile,%nMaxJPGFilesinFolder]
endiff
enddo
:: -----------------------------------------------------------------------
:MyMove[aPathTargetBase, aPathSubDir, sFile, nMaxFilesIfJPG]
:: -----------------------------------------------------------------------