Ny version. Elimierat "flimret"
Ny version där jag funnit ett bättre sätt att läsa fildatum på som innebär att det jobbiga
flimret är eliminerat!
Dessutom en liten dialog som talar om när skriptet kört klart.
REM This script mimics a linux script already presented on fotosidan.se
REM it is a contribution to those who find it useful. If modified or improved,
REM please share in this thread. Thanks.
REM It simply will copy your photos from card or camera and separates RAW and JPGs
REM It reads file creation date and creates a folder with that name. Then creates subfolders
REM for JPG and RAW files.
REM History
REM -------------------------------------------------------------
REM 2009-01-30 Pontus Edvardsson Created.
REM 2009-01-31 Pontus Edvardsson Corrected a few initial bugs
REM 2009-02-01 Pontus Edvardsson Changed the way file information is retrieved,
REM eliminates the annoying flicker.
REM
VERSION= "1.1"
REM Set the name of the folders you want the script to create:
RAWFOLDER="RAW"
JPGFOLDER="JPG"
REM Configure what suffixes your camera uses
RAWSUFFIX="NEF"
JPGSUFFIX="JPG"
REM Configure your Source and Destination directories
SPATH="G:\DCIM\100NCD90"
DPATH="F:\Media\Pictures\album\#osorterat"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(SPATH)
Set colFiles = objFolder.Files
REM ::: Copy files to computer
For Each objFile In colFiles
REM ::: Get File Creation Date
Set currentfile = objFSO.GetFile(objFile)
fullcreationdate = currentfile.DateCreated
tmp = split(fullcreationdate)
creationdate = tmp(0)
REM ::: Create folders if they dont already exists
If not objFSO.FolderExists(DPATH + "\" + creationdate) Then Set f = objFSO.CreateFolder(DPATH + "\" + creationdate)
If not objFSO.FolderExists(DPATH + "\" + creationdate + "\" + RAWFOLDER) And right(objFile, len(RAWSUFFIX)) = RAWSUFFIX Then
Set f = objFSO.CreateFolder(DPATH + "\" + creationdate + "\" + RAWFOLDER)
end if
If not objFSO.FolderExists(DPATH + "\" + creationdate + "\" + JPGFOLDER) And right(objFile, len(JPGSUFFIX)) = JPGSUFFIX Then
Set f = objFSO.CreateFolder(DPATH + "\" + creationdate + "\" + JPGFOLDER)
end if
REM ::: Copy files to respective folders
Set objFSO = CreateObject("Scripting.FileSystemObject")
if right(objFile, len(RAWSUFFIX)) = RAWSUFFIX Then objFSO.CopyFile objFile, DPATH + "\" + creationdate + "\" + RAWFOLDER + "\", True
if right(objFile, len(JPGSUFFIX)) = JPGSUFFIX Then objFSO.CopyFile objFile, DPATH + "\" + creationdate + "\" + JPGFOLDER + "\", True
Next
Msgbox "File copy is complete.", 64, "PhotoAssist v" + VERSION
Wscript.quit 0