Having an issue getting the create folder to work. Tried a bunch of combos. What am I missing?
Code: Select all
Let>INPUT_BROWSE=2
Input>vFolderPath,Please Select Image Folder,
Let>GFL_TYPE=0
GetFileList>%vFolderPath%\*.*,vFileList,;
Separate>vFileList,;,vFileNames
//MessageModal>Num Files: %vFileNames_count%
Let>k=0
Repeat>k
Let>k=k+1
//MDL>vFileNames_%k%
Let>vFileDate=vFileNames_%k%
StringReplace>%vFileDate%,%vFolderPath%\,,vFileDate
Length>%vFileDate%,vDateLength
MidStr>%vFileDate%,1,4,vYear
MidStr>%vFileDate%,5,2,vMonth
GoSub>sCreateFolder
Until>k,vFileNames_count
SRT>sCreateFolder
IfDirExists>%vFolderPath%\%vYear%\%vMonth%
MessageModal>temp folder exists - good
Else
MDL>%vFolderPath%\%vYear%\%vMonth%
CreateDir>%vFolderPath%\%vYear%\%vMonth%
Endif
END>sCreateFolder