I would appreciate any help to speed up a very mundane task.

I would like to find or write a batch file to do the following:

1. find all jpegs in a specific folder,
2. for each jpeg in the folder read the "date picture TAKEN" attribute,
3. create a folder with the name as the date the picture was taken,"YYYY_MM_DD"
4. move each picture into its new folder,
5. Then move all folders to a different directory.

I might be asking a bit much but it doesn't sound simple to me as im a complete novice.

Can anyone help me or point me in the RIGHT direction.I'm very skeptical that a batch file would be of help here. The "Date Picture Taken" property is not exposed in batch code. This little snippet will overcome that shortcoming:

Code: [Select]folderName = "c:\Pictures" 'check for valid directory

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(folderName)

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderName)
Set fc = f.Files

For Each fs In fc
If fso.GetExtensionName(fs) = "jpg" Then
Set objFolderItem = objFolder.ParseName(fs.Name)
strValue = objFolder.GetDetailsOf(objFolderItem, 25)

If strValue <> "" Then
newYY = DatePart("yyyy", strValue)
newMM = DatePart("m", strValue)
If newMM < 10 Then newMM = "0" & newMM
newDD = DatePart("d", strValue)
If newDD < 10 Then newDD = "0" & newDD
newFolder = "c:\" & newYY & "_" & newMM & "_" & newDD 'check for valid drive and path

If Not fso.FolderExists(newFolder) Then
fso.CreateFolder(newFolder)
End If

fso.CopyFile fs.Path, newFolder & "\"
End If
End If
Next

The lines are marked that need to be changed. folderName is the directory where the pictures are now. newFolder is where you want the pictures to be.

Step 5 of your request is a duplicate step 4. Instead of copying files to an interim directory, why not just send them to their final resting place with a single instruction?

Save the script with a vbs extension and run from the command prompt as cscript scriptname.vbs

I dislike trashing files (especially pictures with sentimental value), so I used the copyfile method. You can change this to movefile method.

Good luck.

Sorry about the code alignment. It looked great in my editor. I have copied into a notepad file and changed ext to .vbs and it worked partially .

3 jpegs were moved to their correct folder however ther was 100+plus left behind.....

many thanks for your help sof far by the way im light years further than i was...

the 3 that moved were .jpg whilst the remainder were .JPG does the case make any difference?Quote from: eddie.ceri on April 07, 2010, 04:34:29 PM

the 3 that moved were .jpg whilst the remainder were .JPG does the case make any difference?

I did try:
If fso.GetExtensionName(fs) = "jpg" or "JPG" Then

but it didnt recognise the string JPG.....

This could work...not quite sure...it depends on the camera.

@echo off
setlocal enabledelayedexpansion
for /f "skip=5 tokens=1,5" %%A in ('dir /t:c *.jpg') do (
echo Date --- %%A
echo File --- %%B
if not "%%B"=="" if not "%%B"=="free" (
set filedate=%%A
set filedate=!filedate:/=-!
if not exist !filedate! md !filedate!
copy %%B !filedate!
)
)
pause

Seems to work for me.

I just felt like making an all-batch solution.

I have just test run the .vbs file and it works great ...........

there are a few ponts that i didnt think would be a problem but might cause issues.....

1. If a file with the same name is already in that folder (probably the same file anyway) the whole routine doesnt run it creates an error message "Microsoft VBScript runtime error: File already present" which is common sense i suppose.

2. What i would prefer if it didnt copy it and allowed me to sort it out manually later but carried on with the rest of the jpegs.

I would appreciate any help to speed up a very mundane task.

I would like to find or write a batch file to do the following:

1. find all jpegs in a specific folder,
2. for each jpeg in the folder read the "date picture taken" attribute,
3. create a folder with the name as the date the picture was taken,"YYYY_MM_DD"
4. move each picture into its new folder,
5. Then move all folders to a different directory.

I might be asking a bit much but it doesn't sound simple to me as im a complete novice.

Can anyone help me or point me in the right direction.