Flytte billeder, 500 i hver mappe

Prøv at søge på www.versiontracker.com
Der kan du sikkert finde noget

/kado

Ellers er dette måske en mulighed...
Nedenstående kode er indlagt i et Word dokument (VBA ThisDocument) - hvis behov for mere info - så giv signal...
P.t. forventes alle mapper + nævnte Worddokument at ligge i samme hovedmappe.
======================

Const antalMaxFiler = 500                            'antal filer i ny mappe
Dim xSti, filCount, fraMappe, tilMappe, mappeNr
Sub StartFlytning()
    findSti
    filCount = 0
    mappeNr = 1
   
Rem De 4 p.t. mapper behandles een ad gangen
    behandlingAfMapper "mappeA"
    behandlingAfMapper "mappeB"
Rem behandlingAfMapper "mappe?"
Rem behandlingAfMapper "mappe??"

    MsgBox ("Kopiering er udført")
End Sub
Private Sub findSti()
    xSti = ActiveDocument.Path
    If Right(xSti, 1) <> "\" Then
        xSti = xSti + "\"
    End If
End Sub
Private Sub behandlingAfMapper(mappeID)
Dim fs, f, f1, fc, filNavn
   
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fraMappe = fs.GetFolder(xSti + mappeID)
    Set fc = fraMappe.Files
   
    For Each f1 In fc
        If filCount = antalMaxFiler Then
            filCount = 0
            mappeNr = mappeNr + 1
        End If
       
        If filCount = 0 Then
            tilMappe = opretMappe
        End If
       
        filNavn = f1.Name
        FileCopy fraMappe + "\" + filNavn, tilMappe + filNavn      'kopiering af filer
        filCount = filCount + 1
    Next
End Sub
Private Function opretMappe()                      'Nye mapper navngives "mappe" + løbenr
Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.createfolder (xSti + "mappe" + CStr(mappeNr))
    opretMappe = xSti + "mappe" + CStr(mappeNr) + "\"
End Function

Øøøøh, hvordan bruger man så lige det ?
Skal det lægges ind som en makro eller hvad ??

I et Word-dokument - Alt+F11 åbner til Visual Basic - kopier koden over i "ThisDocument". Koden startes ved placere markøren i "StartFlytning" og tryk F5 - men der kunne også indsættes en knap i dokumentet, der iværksætter koden.

Jeg kan ikke få det til at virke, men jeg har fundet et lille smart program som kan gøre det samme......