Datei eine Hierarchieebene nach oben verschieben per Batch

31.01.2010 um 00:19 Uhr, 6680 Aufrufe, 17 Kommentare

Hallo liebe Admins,

ich habe da ein lästiges Problem, was sich hoffentlich mit eurer Hilfe beseitigen lässt.
Es existiert folgende Ordnerstruktur:

Videos
-Video 1
--Film
->Film.mov

und zwar in mehrfacher Ausführung (so viele, dass es zu lange dauern würde um es per Hand zu machen).
Wie der Titel sagt, soll (bzw sollen) alle Dateien im Unterordner "Film" in den Ordner "Video 1" (etc.) verschoben werden, und der Ordner "Film" bei Erfolg gelöscht werden.
Wie sähe das Script aus?

https://www.administrator.de/index.php?content=82989

Das Beispiel klappt bei mir nicht, bekomme nicht mal ne Fehlermeldung...
Schönes Wochenende noch!

17 Antworten

LÖSUNG AndreasBrecht schreibt am 31.01.2010 um 07:27:34 Uhr
- LÖSUNG a3rosol schreibt am 31.01.2010 um 10:33:51 Uhr
  - LÖSUNG AndreasBrecht schreibt am 31.01.2010 um 11:33:11 Uhr
    - LÖSUNG a3rosol schreibt am 31.01.2010 um 12:08:28 Uhr
      - LÖSUNG AndreasBrecht schreibt am 31.01.2010 um 12:58:42 Uhr
        
        LÖSUNG a3rosol schreibt am 31.01.2010 um 13:03:39 Uhr
        
        LÖSUNG AndreasBrecht schreibt am 31.01.2010 um 13:23:11 Uhr
LÖSUNG miniversum schreibt am 31.01.2010 um 10:27:09 Uhr
- LÖSUNG a3rosol schreibt am 31.01.2010 um 10:36:10 Uhr
  - LÖSUNG miniversum schreibt am 31.01.2010 um 10:59:41 Uhr
    - LÖSUNG a3rosol schreibt am 31.01.2010 um 12:13:55 Uhr
      - LÖSUNG miniversum schreibt am 31.01.2010 um 12:28:41 Uhr
        
        LÖSUNG a3rosol schreibt am 31.01.2010 um 12:36:31 Uhr
        
        LÖSUNG miniversum schreibt am 31.01.2010 um 12:54:12 Uhr
        
        LÖSUNG a3rosol schreibt am 31.01.2010 um 13:01:56 Uhr
        
        LÖSUNG bastla schreibt am 31.01.2010 um 13:51:28 Uhr
        
        LÖSUNG a3rosol schreibt am 31.01.2010 um 14:00:14 Uhr

AndreasBrecht (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 07:27 Uhr

  Dim fs, fld
  Set fs = CreateObject ("scripting.FileSystemObject")

  For Each fld in In fs.Getfolder("Videos") .SubFolders   'da sollte der komplette Pfad übergeben werden 
    fs.MoveFile fld.Path &"\Film.mov", "videos\Film.mov"   'siehe oben ;-)
    fs.DeleteFolder fld.Path
  Next fld

und das end tag vergessen - morgens um 7 halt

miniversum (Level 3) - Jetzt verbinden

LÖSUNG 31.01.2010 um 10:27 Uhr

Hast du das Beispiel direkt an der cmd eingegeben oder in einer Batch verwendet?
Was passiert den? Hast du die Ausgabe?

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 10:33 Uhr

was ist das für eine Programmiersprache? VisualBasic? oder VbS? wie setze ich das um?

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 10:36 Uhr

ich habe das beispiel von Biber

for /d %i in ("e:\todo\_ok\*.*") do @for /d %j in ("%i") do @echo move %j e:\todo\_ok

im cmd eingegeben und im Testodner hat sich nichts getan, und es sind auch keine Fehlermeldungen aufgetreten...

miniversum (Level 3) - Jetzt verbinden

LÖSUNG 31.01.2010 um 10:59 Uhr

Durch das @echo sollte auch erstmal nicht wirklich etwas verschoben werden sondern nur eine Anzeige.

Versuchs mal damit:

@for /d %i in ("e:\todo\_ok\*.*") do @for /d %j in ("%i") do @echo move "%~j\%~nxj.*" %j

Auch hier kommt erstmal nur eine Anzeige was passieren wird.
Wenn diese ausgabe passt kdan kannst du das echo entfernen

AndreasBrecht (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 11:33 Uhr

Das ist VB script geht aber auch in VBA da kann man dann sogar mit früüher Bindung arbeiten aber für den 4 Zeiler tut es auch so :-) face-smile

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:08 Uhr

ist in Zeile 4 das In doppelt? Noch Zeile 4: muss zwischen ") und .SubFolders wirklich ein leerzeichen? und muss in zeile 7 das script nicht beendet werden? (Error: Anweisungsende erwartet...)

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:13 Uhr

http://picfront.de/d/7lti

da scheint was nicht richtig zu laufen...
vielleicht habe ich mich ja nicht richtig oder falsch ausgedrückt, deswegen versuche ich es nochmal

durchsuche Verzeichnis rekursiv nach Ordnername "Film";
nimm sämtliche Dateien aus dem Ordner und Verschiebe sie in den übergeordneten Ordner;
wenn alles Ok ist, lösche den Order "Film";
Und alles nochmal beim Nächsten ;)

miniversum (Level 3) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:28 Uhr

Ok. Ich ging davon aus das der Film in dm Ordner immer so geist wie der Ordner selbst.
Das löschen fehlte noch. Aber sonsnt scheint e doch zu passen?
Wenn es alle Dateien sein sollen dann so:

@for /d %i in ("e:\todo\_ok\*.*") do @for /d %j in ("%i") do (@echo move "%~j\*.*" %j && @echo rd /Q %j)

Auch hier wird nur angezeigt was passieren wird. Wenn das gut aussieht dann das echo entfernen.
Oder ist der name FILM immer fest?
Dann könnte es (ungetestet) so funktionieren:

@for /d %i in ("e:\todo\_ok\*.*") do (@echo move "%~i\FILM\*.*" %i && @echo rd /Q "%~i"%~i\FILM")

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:36 Uhr

es ändert sich immer nur der Überordner (Asterix I, Bad Boys etc) und die Dateinamen samt Dateityp im Ordner Film

Edit: auf den 2ten Vorschlag: es kommt immer die Rückmeldung "Mehr?"

Edit2: die Verzeichnisstruktur: http://picfront.de/d/7ltM

miniversum (Level 3) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:54 Uhr

Also bei der Frage nach mehr kann ich auch nichts zu sagen. Aber es muss am rd liegen. Daher sollte es zumindest gehen wenn du es so versuchst:

@for /d %i in ("e:\todo\_ok\*.*") do (@echo move "%~i\FILM\*.*" %i)

Die leeren Verzeichnisse bleiben dann allerdings.

AndreasBrecht (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 12:58 Uhr

Sorry das Leerzeichen ist in der Tat zu viel und das in ist doppelt (wenigstens sind alle Fehler in einer Zeile konzentriert)
und Nein ein End braucht es nicht (in VB script)

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 13:01 Uhr

hab jetzt den Befehl abgefeuert:

@for /d %i in ("e:\Videos\*.*") do (move "%~i\FILM\*.*" %i)

Bei allen sagt er Syntaxfehler, nur beim letzten hats geklappt ;) (*freu*)

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 13:03 Uhr

er haut mir trotzdem um die Ohren, dass er in Zeile 7 Zeichen 8 das Anweisungsende erwartet (die anderen Fehlerchen hab ich behoben)...

AndreasBrecht (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 13:23 Uhr

Nochmal Sorry : lass einfach das fld hinter dem Next weg (das geht nur in richtigem VBA)
insgesamt war es Heute Morgen doch früher als ich dachte

bastla (Level 5) - Jetzt verbinden

LÖSUNG 31.01.2010 um 13:51 Uhr

Hallo a3rosol!

Versuch mal:

@for /d %i in ("e:\Videos\*.*") do (move "%i\FILM\*.*" "%i" && rd "%i\FILM")

Grüße
bastla

a3rosol (Level 1) - Jetzt verbinden

LÖSUNG 31.01.2010 um 14:00 Uhr

perfekt vielen dank an alle ;)

gelöst Frage Entwicklung Batch & Shell

Heiß diskutierte Inhalte

Outdoor LAN sichern mit oder ohne Fritzbox Verständnis Frage

bluescreenVor 1 TagFrageHardware16 Kommentare

Hallo zusammen, ich habe die letzten Stunden schon viel hier gelesen, stehe aber ein wenig auf dem Schlauch, wie und wo ich weiter suchen ...

Windows 7 pro Lizenz nutzen für Windows 10

lukas0209Vor 22 StundenFrageWindows 1015 Kommentare

Hallo Community, ich versuche seit einigen Wochen unser Netzwerk von Windows Server 2008 R2 Standard auf Windows Server 2016 Essentials um, welches eine städtische ...

Telefone im Netzwerk bekannt machen

jannik0205Vor 1 TagFrageWindows Netzwerk13 Kommentare

Hallo Zusammen, In unserem Unternehmen gibt es eine Telefonanlage mit eigenem Telefonienetz (192.168.5.X). Schließe ich ein Telefon an eine Netzwerkdose, bekommt es vom DHCP- ...

Übergang von "Sorgfaltspflicht" im Datenschutz

ukulele-7Vor 1 TagFrageDatenschutz7 Kommentare

Hallo zusammen, mir ist eine, zugegeben eher juristische, Frage in den Sinn gekommen. In unserer Branche arbeiten wir mit sensiblen, personenbezogenen Daten die natürlich ...

Frage zu LWL Kabel

gelöst NominisVor 1 TagFrageNetzwerkgrundlagen6 Kommentare

Hallo, ich habe nur mal eine kurze Verständnisfrage. Es geht um die Verbindung bzw. Anbindung von Switches (Cisco 48Port 10/100/1000 MBit mit 2 SFP+ ...

WTS-Anmeldung per RDP am Wochenende verbieten?

MuM2810Vor 1 TagFrageWindows Netzwerk8 Kommentare

Hallo zusammen, wir haben bei uns Windows Server 2016 mit 2 Terminal Servern im Einsatz. Wie aus dem Titel schon ersichtlich ist, ist bei ...

Microsoft Teams - "bitte wenden Sie sich an (. . .) um Teams für "domäne" zu aktivieren" nur bei einem Benutzer

eastfrisianVor 1 TagFrageMicrosoft6 Kommentare

Hallo zusammen! Wir haben bei uns Teams als Hybridversion eingeführt (Exchange on premise, AD-Sync in die Cloud) und nutzen Teams über das basic-Abonnement. Während ...

Keine Versand von Mails von der Firmen zur Privaten E-Mailadresse möglich

blaub33r3Vor 1 TagFrageNetzwerke6 Kommentare

Hallo zusammen, wieso kommt der User keine Mails mehr? Der Sender wird als Spamer betrachtet? 1. Mailing an andere Privaten Adressen / Firmen Adressen ...