Monatsverzeichnisse für Kamerabilder im Explorer?

xThomas79x

Lt. Junior Grade
Registriert
Apr. 2021
Beiträge
326
Bei meinem alten IPhone SE von 2016 waren meine selbstgemachten Fotos beim Anschließen an den Computer im Windows-Explorer in Verzeichnisse / Ordner nach dem Aufnahmemonat kategorisiert bzw. sortiert.

Das ist bei meinem neuen Samsung Galaxy A14 leider nicht der Fall. Dort sind einfach sämtliche Bilder im Kamera-Ordner untergebracht. Kann man das irgendwie ändern bzw. einstellen, dass meine Fotos hier auch wieder in Ordner nach Monat kategorisiert werden?

Vielen Dank!
 
xThomas79x schrieb:
Kann man das irgendwie ändern bzw. einstellen, dass meine Fotos hier auch wieder in Ordner nach Monat kategorisiert werden?
Die werden doch nach ja Jahr/Monat/Tag und Uhrzeit beschriftet. Brauchst doch im Explorer nur passend sortieren.

Extra Monats ordner werden bei Android nicht erstellt
 
  • Gefällt mir
Reaktionen: xThomas79x und acidarchangel
Ich hatte damals in meiner aktiven Zeit auch das Problem.
Das hatte ich unter Windows mit einen VBS Script gelöst:

Code:
'==========================================================================
'= 17.05.2009 - Chip Forum - Rund um Software                             =
'=                                                                        =
'= Skript verschiebt alle Dateien aus dem Angegebenen Ordner in einen     =
'= festgelegten Zielordner. Dabei werden die einzelnen Dateien nach       =
'= Erstellungsdatum in entsprechende Ordner einsortiert. Falls diese      =
'= nicht existieren, werden sie erstellt.                                 =
'=                                                                        =
'= Sollte eine Datei bereits vorhanden sein, wird diese nicht verschoben. =
'==========================================================================

Option Explicit
Dim fso, oShell, oSource, strSource, strTarget

Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")

Set oSource = oShell.BrowseForFolder(0, "Quell- Verzeichnis auswählen:", 22, 12)
strSource = oSource.Items().Item().Path

Set oSource = oShell.BrowseForFolder(0, "Ziel- Verzeichnis auswählen:", 22, 12)
strTarget = oSource.Items().Item().Path


If strSource = "" Then
  MsgBox "Kein Quell- Verzeichnis ausgewählt!", 65, "Fehler"
  WScript.Quit
End If

If strTarget = "" Then
  MsgBox "Kein Ziel- Verzeichnis ausgewählt!", 65, "Fehler"
  WScript.Quit
End If

IF MsgBox("Wollen Sie alle Dateien von " & strSource & " nach " & strTarget & " Einsortieren?", 36, "Dateien Sortieren") = vbYes Then
  MoveAllFiles strSource, strTarget
End If

WScript.Echo "Einsortierung beendet"
'Ende

Function MoveAllFiles(strSource, strTarget)
  Dim oFolder, oFiles, item, year, month, day
 
  Set oFolder = fso.GetFolder(strSource)
 
  On Error Resume Next
 
  For Each item In oFolder.Files
    year = Mid(item.DateLastModified, 7, 4)
    month = year & "_" & Mid(item.DateLastModified, 4, 2)
   
    If Not fso.FolderExist(strTarget & "\" & year) Then
      fso.CreateFolder(strTarget & "\" & year)
    End If
   
    If Not fso.FolderExist(strTarget & "\" & year & "\" & month) Then
      fso.CreateFolder(strTarget & "\" & year & "\" & month)
    End If
       
    fso.MoveFile item.Path, strTarget & "\" & year & "\" & month & "\" & item.Name
  Next
 
  On Error Goto 0
End Function

Das kann nach belieben angepasst werden und hat immer sauber funktioniert.
 
  • Gefällt mir
Reaktionen: xThomas79x
Einfach im Explorer nach Dateierstellungsdatum auf- bzw. absteigend sortieren. Wahlweise auch die Spalte Aufnahmedatum anzeigen lassen, die ebenso sortiert werden kann.

windowsexplorerdatumsortieren.png


xThomas79x schrieb:
Kann man das irgendwie ändern bzw. einstellen, dass meine Fotos hier auch wieder in Ordner nach Monat kategorisiert werden?

Was genau meinst du mit »kategorisieren«? Ein Extraordner für jeden Monat?
 
  • Gefällt mir
Reaktionen: xThomas79x
Dateierstellungsdatum muss nicht das gleiche sein was die Metadaten der Bilddatei haben ... von daher nach den Metadaten sortieren ...

Keinen Plan warum man mit einem Datum ankommt was das System selbst schreibt und somit gar nicht das ist was dem Bild durch die Digitalkamera zugeordnet wurde.
 
xxMuahdibxx schrieb:
Dateierstellungsdatum muss nicht das gleiche sein was die Metadaten der Bilddatei haben ... von daher nach den Metadaten sortieren ...

Deshalb ja der Hinweis auf das Aufnahmedatum.
 
Je nachdem was du genau willst, kannst du einfach mit IrvanView die Stapelverarbeitung laufen lassen und die Dateien benennen und um Sortieren wie du willst, ist ja aber eigentlich egal denn du hast ja die möglichkeit nach Aufnahmedatum (Metadaten) oder Änderungsdatum zu selektieren innerhalb des gesamten Ordners.

Das war das, was mich beim iPhone meiner Frau immer gestört hat und Zeit kostet, dann lieber alles auf einem Haufen und selbst nach Lust und Laune filtern.
 
  • Gefällt mir
Reaktionen: xThomas79x
Ich benutze dafür noch eine Uralt-Kaufversion von Lightroom ;) über den Kameraimport hat der nach Wahl automatisch Jahres- und Monatsordner erstellt. Vielleicht kann das DigiKam (eine Open Source-Alternative) auch, ist auf jeden Fall eine gute Lösung, eine vielzahl an Bildern übersichtlich zu verwalten und zu durchsuchen, wenn zu bspw. auf der Suche nach bestimmten Bildern bist und nicht alle Ordner dann durchklicken möchtest ;)

https://www.digikam.org/
und das könnte helfen:
https://docs.digikam.org/en/import_tools/advanced_import.html#auto-creation-of-albums
 
  • Gefällt mir
Reaktionen: xThomas79x
Irvanfiew sollte es auch können über die Stapelverarbeitung.
 
bisy schrieb:
Die werden doch nach ja Jahr/Monat/Tag und Uhrzeit beschriftet. Brauchst doch im Explorer nur passend sortieren.

Extra Monats ordner werden bei Android nicht erstellt
Schade, danke!

DeusoftheWired schrieb:
Einfach im Explorer nach Dateierstellungsdatum auf- bzw. absteigend sortieren. Wahlweise auch die Spalte Aufnahmedatum anzeigen lassen, die ebenso sortiert werden kann.

Anhang anzeigen 1734171



Was genau meinst du mit »kategorisieren«? Ein Extraordner für jeden Monat?
Das ist mir zu wenig! Ich hatte das Handy an den PC angeschlossen und sah im Kameraordner für jeden Monat einen Unterordner mit den aufgenommenen Bildern. Sehr praktisch. Die hießen dann 202403_ , 202402_ etc.
Funi schrieb:
Ich hatte damals in meiner aktiven Zeit auch das Problem.
Das hatte ich unter Windows mit einen VBS Script gelöst:

Code:
'==========================================================================
'= 17.05.2009 - Chip Forum - Rund um Software                             =
'=                                                                        =
'= Skript verschiebt alle Dateien aus dem Angegebenen Ordner in einen     =
'= festgelegten Zielordner. Dabei werden die einzelnen Dateien nach       =
'= Erstellungsdatum in entsprechende Ordner einsortiert. Falls diese      =
'= nicht existieren, werden sie erstellt.                                 =
'=                                                                        =
'= Sollte eine Datei bereits vorhanden sein, wird diese nicht verschoben. =
'==========================================================================

Option Explicit
Dim fso, oShell, oSource, strSource, strTarget

Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")

Set oSource = oShell.BrowseForFolder(0, "Quell- Verzeichnis auswählen:", 22, 12)
strSource = oSource.Items().Item().Path

Set oSource = oShell.BrowseForFolder(0, "Ziel- Verzeichnis auswählen:", 22, 12)
strTarget = oSource.Items().Item().Path


If strSource = "" Then
  MsgBox "Kein Quell- Verzeichnis ausgewählt!", 65, "Fehler"
  WScript.Quit
End If

If strTarget = "" Then
  MsgBox "Kein Ziel- Verzeichnis ausgewählt!", 65, "Fehler"
  WScript.Quit
End If

IF MsgBox("Wollen Sie alle Dateien von " & strSource & " nach " & strTarget & " Einsortieren?", 36, "Dateien Sortieren") = vbYes Then
  MoveAllFiles strSource, strTarget
End If

WScript.Echo "Einsortierung beendet"
'Ende

Function MoveAllFiles(strSource, strTarget)
  Dim oFolder, oFiles, item, year, month, day
 
  Set oFolder = fso.GetFolder(strSource)
 
  On Error Resume Next
 
  For Each item In oFolder.Files
    year = Mid(item.DateLastModified, 7, 4)
    month = year & "_" & Mid(item.DateLastModified, 4, 2)
  
    If Not fso.FolderExist(strTarget & "\" & year) Then
      fso.CreateFolder(strTarget & "\" & year)
    End If
  
    If Not fso.FolderExist(strTarget & "\" & year & "\" & month) Then
      fso.CreateFolder(strTarget & "\" & year & "\" & month)
    End If
      
    fso.MoveFile item.Path, strTarget & "\" & year & "\" & month & "\" & item.Name
  Next
 
  On Error Goto 0
End Function

Das kann nach belieben angepasst werden und hat immer sauber funktioniert.
Danke, habe aber nie kapiert, wo ich diese Skripte dann eingeben muss. ;) Wie geht das genau?

Elbrathil schrieb:
Ich benutze dafür noch eine Uralt-Kaufversion von Lightroom ;) über den Kameraimport hat der nach Wahl automatisch Jahres- und Monatsordner erstellt. Vielleicht kann das DigiKam (eine Open Source-Alternative) auch, ist auf jeden Fall eine gute Lösung, eine vielzahl an Bildern übersichtlich zu verwalten und zu durchsuchen, wenn zu bspw. auf der Suche nach bestimmten Bildern bist und nicht alle Ordner dann durchklicken möchtest ;)

https://www.digikam.org/
und das könnte helfen:
https://docs.digikam.org/en/import_tools/advanced_import.html#auto-creation-of-albums
dx1 schrieb:
Vielen Dank!
 
xThomas79x schrieb:
Danke, habe aber nie kapiert, wo ich diese Skripte dann eingeben muss. ;) Wie geht das genau?
Hey Thomas,

dafür erstellst du eine Textdatei z.B. "Bilder sortieren" diese hat am ende den namen "Bilder sortieren.txt"
das Ende ".txt" änderst du in ".vbs" und schon kannst du diese Datei unter Windows ausführen.

Falls das ".txt" nicht angezeigt wird, oder es nach dem umbenennen immer noch eine Textdatei ist, musst du die Dateinamenerweiterungen anzeigen lassen.

Hier ein Auszug von der KI zu dem Thema:
Um Dateierweiterungen im Windows 11 Explorer sichtbar zu machen, öffnen Sie den Explorer, klicken in der oberen Menüleiste auf Ansicht und wählen unter Einblenden den Punkt Dateinamenerweiterungen aus.

Schritt-für-Schritt-Anleitung
  1. Öffnen Sie den Datei-Explorer (Tastenkombination Windows-Taste + E).
  2. Klicken Sie ganz oben in der Menüleiste auf Ansicht.
  3. Wählen Sie im Dropdown-Menü den Punkt Einblenden aus.
  4. Setzen Sie einen Haken bei Dateinamenerweiterungen.
Nachdem die Option aktiviert ist, zeigt Windows sofort den Dateityp (z.B. .docx für Word-Dokumente, .jpg für Bilder) hinter dem Dateinamen an und Sie können diesen bei Bedarf bearbeiten.
 
  • Gefällt mir
Reaktionen: xThomas79x
@Funi Danke, ich versuche das in den nächsten Tagen dann mal, hoffentlich funktioniert es!
 
Ach was ich noch vergessen habe:
Bevor du die Dateinamenerweiterung umbenennst musst du das Script in die Text Datei kopieren.
Und wenn du noch etwas daran anpassen möchtest, kannst du das Script wieder mit dem Texteditor öffnen
 
  • Gefällt mir
Reaktionen: xThomas79x
Oder man nutzt Irfanview mit der Stapelverarbeitung..
 
  • Gefällt mir
Reaktionen: Funi
Zurück
Oben