As always please send feedback
/* Author: Salvatore Agostino Romeo E-Mail: [email protected] Description: This program will let you create folders by specifying prefix or postfix, date, numbers, hour, etc. Version: 0.5 License: GPL Note: SubProject of AHKxplorer ToDo: ? Bugs: ? */ Menu, new, add, File, new Menu, new, add, Folder, new Menu, folderCreate, add, Simple Folder, folderCreate Menu, folderCreate, add, Folder Structure(Numbers), folderCreate Menu, folderCreate, add, Folder Structure(Alphabet), folderCreate Menu, folderCreate, add, Folder with day , folderCreate Menu, folderCreate, add, Folder with hour, folderCreate Menu, folderCreate, add, Folder with day and hour, folderCreate Menu, folderCreate, add, Folder with month and day, folderCreate Menu, folderCreate, add, Folder with date, folderCreate Menu, folderCreate, add, Folder with date and hour, folderCreate alphabet=abcdefghijklmnopqrstuvwxyz Gui, Add, Edit, x6 y35 w190 h20 vselectedFolder, %A_Desktop% Gui, Add, Button, x206 y35 w20 h20 gBtnSelFolder, ... Gui, Add, Text, x6 y5 w220 h30, Select a folder(where to create folder structure) or drag it here Gui, Add, Button, x200 y5, Go Gui, +AlwaysOnTop +ToolWindow Gui, Show, x50 y30 ,FolderLab - romeosa.com Return BtnSelFolder: FileSelectFolder, tempfolder, , , Select the folder to print GuiControl, , selectedFolder, %tempfolder% return GuiDropFiles: GuiControl, , selectedFolder, %A_GuiControlEvent% return Esc:: GuiClose: ExitApp return ButtonGo: Gui, submit, nohide tempfolder:= selectedFolder Menu, new, show return new: if ( A_ThisMenuItemPos = 1) { InputBox, filename, File Name, Insert the name for the file.`nInclude an extension if you want FileAppend,,%tempFolder%\%filename% } else Menu, folderCreate, show return folderCreate: if ( A_ThisMenuItemPos = 1) { InputBox, filename, File Name, Insert the name for the folder FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 2) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want InputBox, startFrom, Start from..., Insert the number from wich you want to start,,,,,,,0 InputBox, howmany, Start from..., Insert how many folder you want to create if (howmany="") return Loop, %howmany% { index := startFrom + A_Index -1 filename=%prefix%%index%%postfix% FileCreateDir,%tempFolder%\%filename% } } else if ( A_ThisMenuItemPos = 3) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want StringSplit, a, alphabet Loop, %a0% { char := a%A_Index% filename=%prefix%%char%%postfix% FileCreateDir,%tempFolder%\%filename% } } else if ( A_ThisMenuItemPos = 4) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_DDDD%%postfix% FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 5) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_Hour%`,%A_Min%%postfix% FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 6) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_DDDD% - %A_Hour%`,%A_Min%%postfix% FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 7) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_MMMM% - %A_DDDD%%postfix% FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 8) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_DD%-%A_MM%-%A_YYYY%%postfix% FileCreateDir,%tempFolder%\%filename% } else if ( A_ThisMenuItemPos = 9) { InputBox, prefix, Prefix, Insert a prefix if you want InputBox, postfix, Postfix, Insert a postfix if you want filename=%prefix%%A_DD%-%A_MM%-%A_YYYY% - %A_Hour%`,%A_Min%%postfix% FileCreateDir,%tempFolder%\%filename% } prefix= postfix= startFrom= howmany= return