One button to move files to a new folder

Help & Support
3

It depends how complex you want to make things...

To move into a subdirectory called "Photos YYYY-MM-DD" named after EXIF date, without any prompting, is fairly easy:

Rename FILEINFO TO="Photos {shootingtime|D#yyyy-MM-dd}\*"

To move into a subdirectory called "Photos YYYY-MM-DD" by default, but with a prompt so you can change it, is a bit more complex:

[code]@nodeselect
Rename FILEINFO TO="D_{shootingtime|D#yyyy-MM-dd}"
@script vbscript
Option Explicit

' For information on the technique used in this button see:
' "Abusing" Rename Scripts to do other things with file info
' [OBSOLETE] "Abusing" Rename Scripts to do other things with file info

' Change the path below if you haven't installed Opus to the default location:
dim DOpusRTPath
DOpusRTPath = "C:\Program Files\GPSoftware\Directory Opus\dopusrt.exe"

Dim Shell
Set Shell = CreateObject("WScript.Shell")

Dim fFirst
fFirst = TRUE

Function Rename_GetNewName(strFileName, strFilePath, fIsFolder, strOldName, ByRef strNewName)
Dim name
Dim strDate
Dim strCommand

' Only do the first file.
if fFirst then
	fFirst = FALSE

	' The strNewName we're given should be something like "D_2007-07-15"
	name  = ucase(left(strNewName, 2))
	strDate = right(strNewName, len(strNewName) - 2)

	if (name = "D_" and strDate <> "" and len(strDate) = 10) then
		strCommand = """" & DOpusRTPath & """ /cmd Copy MOVE HERE CREATEFOLDER=""{dlgstringS|Enter Directory Name|Photos " & strDate & "}"""
		Shell.Run strCommand,0,false
	end if
end if
' Set strNewName to an empty string so that Opus does not rename the file.
strNewName = ""

End Function[/code]