Recent Posts

1

N.A.N.Y. 2010 / Re: pyrohacker

« Last post by Andreasvb on July 17, 2016, 04:52 AM »

Hi, I got a slightly modded version of your code.

I used this before and thought I would sort my download-folder now, but it didn't work today (Windows 10).
Thought I would see if there was an update for it, and read that you lost it.

Also, I wanted only the year, so I put together a little bat script instead.

Used some bits from these 2 to get it working so it will not move any .bat:
http://stackoverflow.com/a/22222204 [Batch file to move file based on Month & Year on Date modified to folder with YYYY_MM]
http://stackoverflow.com/a/863627 [In a batch file, how do I delete all files NOT of a certain type]

Code: Visual Basic [Select]

1. @echo off
2. cls
3. choice /c yn /t 10 /d n /m "move all files divided by year?"
4. if errorlevel 2 goto stop
5. for %%f in ("%cd%\*") do if not %%~xf==.bat (
6.   for /f "tokens=1 delims=- " %%a in ("%%~tf") do (
7.     if not exist "%cd%\%%a" mkdir "%cd%\%%a"
8.     move "%%~f" "%cd%\%%a"
9.   )
10. )
11. cls
12. echo all done!
13. timeout 10
14. :stop
15. exit

Here's the code for your script (modded for YYYY-MM)

Code: Autohotkey [Select]

1. /*
2. SubDiv
3. created by pyrohacker on the D.C. Forum
4. as a NANY 2010 Entry.
5. */
6.  
7. #NoEnv
8. #SingleInstance Force
9. SendMode Input
10. SetWorkingDir %A_ScriptDir%
11. Menu, TRAY, Icon,,, 1
12.  
13. ; Set up GUIs and variables
14.  
15. Setup:
16.  
17. Gui, Destroy
18. Gui, 2:Destroy
19. Gui, 3:Destroy
20.  
21. Separator=%SeparatorSelection%
22. Cleanup=%CleanupSetAt%
23.  
24. FormatTime, CurrentYear,, yyyy
25. FormatTime, CurrentMonth,, MM
26. FormatTime, CurrentDay,, dd
27.  
28. ; Create the settings dialog
29. Gui, 3:Add, Text,, Creates folders: Year && Months`n:: Andreasvb 2012 mod ::
30. FormatTime, SmartDate,, yyyy - M - d
31. Gui, 3:Add, Text,, Please select a date separator:
32. Gui, 3:Add, Radio, Checked%UnderscoreOn% vSeparatorSelection, Underscore ( _ )
33. Gui, 3:Add, Radio, Checked%HyphenOn% y+0, Hyphen ( - )
34. Gui, 3:Add, Radio, y+15 Group Checked, Update Mode
35. Gui, 3:Add, Radio, y+0 Disabled, Monitor Mode
36. Gui, 3:Add, Checkbox, y+10 %Recursive% vRecurseSetAt, Recursive subfolders
37. Gui, 3:Add, Checkbox, y+5 %Cleanup% vCleanupSetAt, Delete empty folders
38. Gui, 3:Add, Button, y+20 x20 w70 gSendSettings, Apply
39. Gui, 3:Add, Button, x+15 w70 gActions, Cancel
40.  
41. Start:
42. Gui, 2:Destroy
43.  
44. ; Create the Main Actions Dialog
45. Gui, 2:Add, Button, vUpdate gSortNow h120 w120, Sort this folder now
46. Gui, 2:Add, Button, vSettings gShowSettings x+0 h120 w120, Change settings
47. Gui, 2:+ToolWindow
48. Gui, 2:Show, Center, SubDiv
49. Pause On
50.  
51. Actions:
52. Pause Off
53. Gui, 3:Hide
54. Gui, 2:Show, Center, SubDiv
55. Pause On
56.  
57. SortNow:
58. Pause Off
59. Loop %A_WorkingDir%\*, 0, %Recursive% ; Retrieve a list of files to be sorted
60.         NewFiles = %NewFiles%%A_LoopFileName%`n
61. UpdateFolders()
62. StringTrimRight, SortTime, %A_Now%, 6
63. if Separator = 1
64.         UnderscoreSort()
65. if Separator = 2
66.         HyphenSort()
67. if ErrorLevel = 0
68.         GoSub Problems
69. MsgBox Finished sorting %A_WorkingDir%!
70. GoSub EndProg
71.  
72. UpdateFolders()
73. {
74. global
75.  
76. If (Cleanup == 1) {
77.  
78. Loop, *, 2,
79. {
80.   Size = 0
81.   Loop, %A_LoopFileName%\*, 1, 1
82.   {
83.     Size += %A_LoopFileSize%
84. }
85. ;MsgBox Size of %A_LoopFileName% is %A_LoopFileSize% bytes.
86. If (Size < 1) {
87. FileRecycle, %A_LoopFileName%
88. }
89.  
90. }
91.  
92.  
93. }
94. Return
95. }
96.  
97. HyphenSort()
98. {
99. global
100. Loop PARSE, NewFiles, `n
101. {
102.         FileGetTime DateCreated, %A_LoopField%, C
103.         FormatTime, YearCreated, %DateCreated%, yyyy
104.         NowTime := SortTime
105.         EnvSub, NowTime, %DateCreated%, Days
106.         IfInString, A_LoopField, SubDiv
107.                 Continue
108.        
109.                 FormatTime, FolderName, %DateCreated%, yyyy
110.        
111.        
112.         FileCreateDir %FolderName%
113.         FileMove %A_LoopField%, %FolderName%
114.         EverRun=1
115. }
116. Return
117. }
118.  
119. UnderscoreSort()
120. {
121.         global
122.         Loop PARSE, NewFiles, `n
123.         {
124.                 FileGetTime DateCreated, %A_LoopField%, C
125.                 FormatTime, YearCreated, %DateCreated%, yyyy
126.                 NowTime := SortTime
127.                 EnvSub, NowTime, %DateCreated%, Days
128.                 IfInString, A_LoopField, SubDiv
129.                         Continue
130.                
131.                         FormatTime, FolderName, %DateCreated%, yyyy
132.                
133.                
134.                 FileCreateDir %FolderName%
135.                 FileMove %A_LoopField%, %FolderName%
136.                 EverRun=1
137.         }
138.         Return
139. }
140.  
141.  
142. ShowSettings:
143. Pause Off
144. Gui, 3:Show, Center, Settings Dialog:
145. Pause On
146.  
147. SendSettings:
148. Gui, 3:Submit
149.  
150. Separator=%SeparatorSelection%
151. Cleanup=%CleanupSetAt%
152.  
153.  
154. if (RecurseSetAt = 1) and (RecurseWarning = 0)
155. {
156.         MsgBox, 4, Caution:, You have instructed SubDiv to sort all files in this folder, including files inside subfolders.`nDoing this will destroy the folder structures in the sorted directory.  Are you sure?
157. RecurseWarning=1
158.         IfMsgBox No
159.                 GoSub ShowSettings
160. }
161.  
162.  
163. Recursive=%RecurseSetAt%
164.  
165. Gui, 3:Hide
166. Gosub Start
167.  
168. Problems:
169. MsgBox Unknown problems were encountered, but I can't say what...
170. ExitApp
171.  
172. 3GuiClose:
173. Gui, 3:Cancel
174. return
175. EndProg:
176. GuiClose:
177. 2GuiClose:
178. ExitApp