Filename and folder partial matching and move

[BK]

I'm sorry. I'm don't know speak English.

1). I make several folder with excel strings.
2). and find files. which are identical several folder with excel string.
3). These are automatically move each folder.
4). and string which are same jpg file name, automatically move compare with already made folder.


1. Made multiple name folders in excel string.

Create TitleFolder
int row
ExcelSheet TitleFolder.Init("")
TitleFolder.Activate

ARRAY(str) OriTitle
foreach OriTitle TitleFolder FE_ExcelSheet_Row "F2:F500"
OriTitle[0].replacerx("([!-,./?])" "")
OriTitle[0].replacerx(" " "")
mkdir F"{OriTitle[0]}" DataFolder

2. *.jpg file name


3. "B.jpg" same folder name( "B") -> auto move