Hvilket program til at sortere billeder manuelt i foldere

Hvor mange forskellige mapper skal der kunne gemmes i?

10-20 mapper

Ok - har du adgang til Microsoft Office?

Ja

Fint - så har jeg en prototype.

Vender tilbage lidt senere med en forklaring..

Kort forklaring:

Billederne fra min iphone er manuelt kopieret over i en mappe (indbakken).
(Har prøvet om jeg kunne hente direkte fra telefonen - men det lykkedes ikke)
VBA-koden ligger i en Excel fil.
Når koden igangsættes vises det første billede og der er mulig for at indtaste nummeret på den mappe, som billedet ønskes placeret i.
Billedet kopieres til den mappen og fjernes fra "indbakken" og så fremdeles.

Det kan naturligvis forfines noget mere..

Lyder interessant

Alle mapper er placeret i samme "overmappe".
Distributionsmapperne er p.t. kaldt "Mappe1", "Mappe2" o.s.v.
Koden ser således ud. Er placeret i ThisWorkbook i VBA.

Option Explicit
Const billedeSti = "indBakke"
Dim sti As String, antalBilleder As Integer
Public Sub distributionAfBilleder()
Dim bNr As Integer
    sti = ActiveWorkbook.Path & "\"
    antalBilleder = hentAntalBilleder(sti & billedeSti)
   
    If antalBilleder > 0 Then
        visBillede sti & billedeSti
    End If
End Sub
Private Function hentAntalBilleder(mappeNavn)
Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(mappeNavn)
    Set fc = f.Files
    hentAntalBilleder = f.Files.Count
End Function
Private Sub visBillede(mappeNavn)
Dim mappeNr As Integer, antalSh As Integer
Dim fs, f, f1, fc, navn As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(mappeNavn)
    Set fc = f.Files
   
    For Each f1 In fc
        navn = f1.Name
        ActiveSheet.Pictures.Insert( _
            mappeNavn & "\" & navn).Select
           
        mappeNr = InputBox("Indtast mappenr")
       
        antalSh = ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(1).Select
        Selection.Delete
       
    Name mappeNavn & "\" & navn As sti & "Mappe" & CStr(mappeNr) & "\" & navn
    Next f1

End Sub

Noget nyt ??

Link til screendump - åben billedet
http://gupl.dk/720190/

Muligvis kan dette program være en hjælp.

Det 2 lilla markeringer er to forskellige mapper på din computer.
Åben i venstre side der hvor dine mapper er hvor billeder skal gemmes.
Åben i højre side, der hvor dine billeder ligger og dem som skal sorteres.
Hver gang du marker et billede i højreside, kan du se selve billedet helt ude til højre, som et lille preview.
Når du har set billedet trækker du med musen fra højre side og over i venstre i den ønskede mappe.

Programmet hedder Xplorer2 og har en masse smarte funktioner, bla. bruger jeg det hvis jeg har et USB Stick" som skal fyldes med filer som ligger spredt i forskellige mapper.
Find  filer enkeltvis og træk dem ned i nederste venstre felt "Mini Scrap", og når alle filer er fundet og trukket ned i "Mini scrap", marker du dem alle og fortæller hvor de skal kopieres hen. 

Programmet ligger her http://www.zabkat.com/ og fuld version koster 30$
-------------------

En anden løsning kan være at lave en mappe på skrivebordet. Lav en genvej til de mapper som billederne skal lægges i og kopiere alle genvejene ind i den første mappe du oprettede.
Når du så skal sortere billeder åbner du mappen med alle genvejene og stifinder med dine billeder ved siden af or trækker efterfølgende billederne over i den "genvejsmappe" de skal placeres i.....