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...
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?
'========================================================================== '=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 Set oShell=CreateObject Set oSource=oShell. BrowseForFolder strSource=oSource.
Items. Item. Path Set oSource=oShell. BrowseForFolder 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=vbYes Then MoveAllFiles strSource, strTarget End If WScript. Echo "Einsortierung beendet" 'Ende Function MoveAllFiles Dim oFolder, oFiles, item, year, month, day Set oFolder=fso. GetFolder On Error Resume Next For Each item In oFolder. Files year=Mid month=year & "_" & Mid If Not fso. FolderExist Then fso. CreateFolder End If If Not fso.
FolderExist Then fso. CreateFolder End If fso. MoveFile item. Path, strTarget & "" & year & "" & month & "" & item. Name Next On Error Goto 0 End Function
Please follow us on Google to support us Deutschland Neuesten Nachrichten, Deutschland Schlagzeilen
Similar News:Sie können auch ähnliche Nachrichten wie diese lesen, die wir aus anderen Nachrichtenquellen gesammelt haben.
Rasanter Action-Thriller bei Amazon: Training half dem Star bei HerzattackeDieser Film ist von den 'John Wick'-Machern.
Weiterlesen »
Geld zurück bei Stau: Italien will bei Verspätung künftig Maut erstattenIn Italien sind die Autobahnen teuer. Wer wegen Baustellen im Stau steht, soll die Maut nun teilweise oder ganz zurückgezahlt bekommen. Für deutsche Urlauber gibt es Hürden.
Weiterlesen »
Kanada bei der WM ohne Flores - Fortschritte bei DaviesKanada muss kurz vor der WM einen personellen Rückschlag verkraften. Die Entwicklung bei Alphonso Davies ist derweil positiv.
Weiterlesen »
Zwei Verletzte bei Pkw-Kollision auf der Ostwestfalenstraße bei BrakelErneut hat es bei Brakel einen schweren Verkehrsunfall im Kreuzungsbereich der B252 (Ostwestfalenstraße) und der L825 (Abfahrt Bellersen) gegeben.
Weiterlesen »