Foto's automatisch in dir's plaatsen

[ikmattie]

Ik heb al gezocht, maar niet echt gevonden,

Ik heb voor mijn werk zo'n 6000 foto's die ik wil categoriseren en in directories wil onderverdelen (het zal gaan om zo'n 700 directories, dus ong 10 foto's per directorie)
De foto's zijn zo genoemd : xxxxxxx dd-mm-yy #
de x-jes is een getal, (de directories moeten ook zo gaan heten, de dd-mm-yy is een datum, de # is een volgnumeer.

Is er een programma wat dit automatisch voor mij zou kunnen doen?
Ik heb gegoogled en geGoT, maar het is lastig fatsoenlijke steekwoorden te vinden zonder te moeten zoeken naar die bekende speld.

[The Wrecker]

Ik geloof dat acdsee kan renamen met volgnummers enzo.
Misschien is dat wat je zoekt...

[BtM909]

Het kan op meerdere manieren (heb je nog niks aan ).

Voor mij zou het snelste zijn (maar da's persoonlijk):
• een Excel lijst creeeren, waarin alle files staan
• Met Excel (en een klein beetje VBA) een cmd file aanmaken, waarmee de files gekopieerd en hernoemd worden

[egeltje]

Scripten?

For alle fotos in source directory
{
Strip het nummer.
Bestaat de dir met dit nummer nog niet? Maak hem.
Move de foto
}


Voorbeeldje van een stukje code (javascript) dat ik heb gebruikt om in alle subdirs van e:\dicom een default.htm te plaatsen (1700+ subdirs):

code:

function GetFolderList(folderspec)
{
    var fso, f, fc;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    f = fso.GetFolder(folderspec);
    fc = new Enumerator(f.SubFolders);
    for (; !fc.atEnd(); fc.moveNext())
    {
        if (GetFolderList(fc.item()) == "")
        {
            fso.CopyFile("e:\\dicom\\default.htm", fc.item() + "\\");
        }
        fso.CopyFile("e:\\dicom\\default.htm", fc.item().Path);
    }
    return;
}

GetFolderList("e:\\dicom");

Niet direct voor jou bruikbaar, maar je ziet in ieder geval hoe je door een lijst heen stapt en hoe je een bestand kopieert.

[ Voor 85% gewijzigd door egeltje op 12-07-2004 10:27 ]

[ikmattie]

The_Wrecker schreef op 12 juli 2004 @ 10:16:
Ik geloof dat acdsee kan renamen met volgnummers enzo.
Misschien is dat wat je zoekt...

Dat renamen e.d. is allemaal al gedaan,
(hels karwei)
DUs de bestanden staan allemaal in het format zoals ik meldde
(heb ik volgens mij met ACDsee gedaan, zou ook XNview kunnen zijn geweest)

Nu nog in Dir's plaatsen.

Een lijst maken in Excel zal niet zo moeilijk zijn,
een CMD file maken met Excel en VBA zal wat lastiger zijn voor mij,
aangezien mijn programmeerervaring in 1990 op is gehouden met een beetje Basic en op de MSX spelletjes maken.
Maar misschien wel leuk om eens te gaan proberen...

[ikmattie]

egeltje schreef op 12 juli 2004 @ 10:18:
Scripten?

For alle fotos in source directory
{
Strip het nummer.
Bestaat de dir met dit nummer nog niet? Maak hem.
Move de foto
}


Voorbeeldje van een stukje code (javascript) dat ik heb gebruikt om in alle subdirs van e:\dicom een default.htm te plaatsen (1700+ subdirs):

code:

function GetFolderList(folderspec)
{
    var fso, f, fc;
    fso = new ActiveXObject("Scripting.FileSystemObject");
    f = fso.GetFolder(folderspec);
    fc = new Enumerator(f.SubFolders);
    for (; !fc.atEnd(); fc.moveNext())
    {
        if (GetFolderList(fc.item()) == "")
        {
            fso.CopyFile("e:\\dicom\\default.htm", fc.item() + "\\");
        }
        fso.CopyFile("e:\\dicom\\default.htm", fc.item().Path);
    }
    return;
}

GetFolderList("e:\\dicom");

Niet direct voor jou bruikbaar, maar je ziet in ieder geval hoe je door een lijst heen stapt en hoe je een bestand kopieert.

Jaja,

Ik zie trouwens dat jij met dicom images werkt,
rontgenfoto's?

Het gaat bij mij hier nl om rontgenfoto's

[egeltje]

Wij maken een digitaal dicom archief. Rontgen (RG), XA, CT, MR, SC, you name it, we store it. (en een Web bekijkapp. voor med. beelden en een workstation en nog veel meer moois)

Iets aangepast scriptje:

code:

var fso, f, fc, root-fldr, fldr;

root-fldr="c:\\jouw\\locatie\\hier";

fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(root-fldr);
fc = new Enumerator(f.Files);

for (; !fc.atEnd(); fc.moveNext())
{
// TODO: strip the folder number and put it in var fldr like this:
    fldr = root-fldr + "\\" + stripped foldername ; 
    if (!fso.FolderExists(fldr))
    {
        fso.CreateFolder(fldr);
    }
    fso.CopyFile(fc.item(), fldr + "\\" + fc.item());
}

Alleen het strippen van de foldernaam moet je nog even zelf doen.
saven in een .js file en gaan!...

Succes!

[ Voor 8% gewijzigd door egeltje op 12-07-2004 19:17 ]

[egeltje]

Gelukt?