Avatar billede bjarnebif Novice
26. december 2006 - 17:16 Der er 4 kommentarer og
1 løsning

Flytte billeder, 500 i hver mappe

Jeg har ca. 150.000 billeder liggende i 4 forskellige mapper.
Findes der et trick eller en batch-fil eller et program, som kan oprette mapper og derefter flytte f.eks 500 billeder over i hver mappe ?
Jeg har selv prøvet at lave en batch-fil, men jeg kan ikke få det til at virke.
Det skal lige siges at billederne ikke er nummereret eller lignende.
Avatar billede kado Nybegynder
26. december 2006 - 18:11 #1
Prøv at søge på www.versiontracker.com
Der kan du sikkert finde noget

/kado
Avatar billede supertekst Ekspert
27. december 2006 - 12:44 #2
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
Avatar billede bjarnebif Novice
28. december 2006 - 09:58 #3
Øøøøh, hvordan bruger man så lige det ?
Skal det lægges ind som en makro eller hvad ??
Avatar billede supertekst Ekspert
28. december 2006 - 10:39 #4
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.
Avatar billede bjarnebif Novice
23. januar 2007 - 16:48 #5
Jeg kan ikke få det til at virke, men jeg har fundet et lille smart program som kan gøre det samme......
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester