Trojaner-Board - Offen Viele Ordner im XP erstellen

Trojaner-Board (https://www.trojaner-board.de/)

- Alles rund um Windows (https://www.trojaner-board.de/alles-rund-um-windows/)

- -

Viele Ordner im XP erstellen (https://www.trojaner-board.de/113905-viele-ordner-xp-erstellen.html)

Viele Ordner im XP erstellen

hat nix mit Trojaner oder Viren zu tun

ich möchte viele viele ordner
in ordner verschieben
also den Ordner
Filmdatei - Avatar, USA 2009, 156 Min.
in den Ordner
Avatar, USA 2009, 156 Min
bei einem ordner kann ich auf neuer ordner erstellen
aber bei 100 nihct mehr so einfach.
wie geht das automatisch im xp?

Hast Du schon mal was von Robocopy gehört?

nein noch nie
aber mit dem geht es auch nicht
stell dir vor du hast
in einem ordner 100 unterordner
die heißen alle Filmdatei - irgendwas
die müssen alle in den jeweiligen ordner mit dem Namen der filmdatei aber ohen das wort filmdatei, das geht mit robocopy nicht.sondern mti so einem batch dings

Mit einem 'batch dings' würde ich es dir empfehlen ^^
hast du denn schonmal gescriptet oder irgendwas programmiert?
Ich nehme an die Antwort wird 'nein' lauten sonst währe das Thema ja nicht hier :P!

Weißt du denn wieviele Ordner es genau sind?

es ist ein hauptordner
ein unterordner
und in dem sind ca. an die 80 dateien die umbenannt gehören
batch datei, da kenn ich mich 0 aus

Alternative zum mediarenamer (der von cad vorgeschlagen wurde) wäre der Advanced Renamer => http://www.chip.de/downloads/Advance..._32462712.html

Oder mit VBS!
Willst du denn Dateien umbenannt in den dazugehörigen Ordner verschieben oder Ordner unbenannt in den dazugehörigen Ordner verschieben?

nun im ordner
Filme
habe ich den unterordner zeichentrickfilme
da ist z.b.

Filmdatei - Die Schöne und das Biest, USA 1999, 90 Min.
ich will das dieser Ordner mit der Avi
in den neu erstellten ordner
Die Schöne und das Biest, USA 1999, 90 Min.
ich will das dieser Ordner mit der Avi verschoben wird
also der selbe Name ohne Filmdatei
Das mti den Avis habe ich ja schon
dass die mit dem selben Namen in den ordner mit dem selben Namen verschoben werden
jetzt müßten nur die Ordner mit den Avis in Ordner verschoben werden ohne das Wort Filmdatei -
verstehst du?

Verstehe, dann willst du also Ordner umbenannt kopieren und die alten dan löschen. Mit einem VBScript oder Batch Script würde es auf jeden Fall gehen!

Ich hab zwar noch nie etwas mit VBScript gemacht aber hier ein kleiner Anfang für dich:

Code:

Dim sList, SubFolder, Temp1, Temp2, I, Zielpfad, fCopy
 

        Set FSO = CreateObject("Scripting.FileSystemObject")
 

        ZeichentrickFolder = "C:\Pfad zu Zeichentrickfilm-Ordnern"

        ActionfilmFolder = "C:\Pfad zu Actionfilm-Ordnern"

        

        Set Folder = FSO.GetFolder(ZeichentrickFolder)

        Zeichentrickfilme(Folder)

        

        Set Folder = FSO.GetFolder(ActionfilmFolder)

        ActionFilme(Folder)                        
 
 

Sub Actionfilme(Folder)

        Zielpfad = "C:\Pfad wohin die Actionfilme sollen\"

        sList = ""

        Set SubFolder = Folder.SubFolders

        For Each I in SubFolder

                sList = sList & I.Name & vbcrlf

        Next        

        Temp1 = Split(sList, vbcrlf)

        For I = 0 to UBound(Temp1)

                Set fCopy = FSO.GetFolder(Folder & "\" & Temp1(I))

                'jetzt kommen wir zum verschieben!

                'erst kopieren...

                fCopy.Copy Zielpfad & Mid(Temp1(i), 13, Len(Temp1(i) - 13))) 

                '13 kommt daher, dass "Filmdatei - " genau 12 Zeichen hat!

                'Das heißt wir kopieren den Ordner und geben ihm seinen alten

                'namen ab der 13ten Ziffer

                'und jetzt noch den alten Ordner löschen

                FSO.DeleteFolder(Folder & "\" & Temp1(I)

                'durch die For-Schleife passiert das gleiche immer wieder

                'bis alle Ordner in dem ordner durch sind

        Next

End Sub
 

Sub Zeichentrickfilme(Folder)

        'Hier kommt das selbe wie bei Actionfilmen nur eben mit den Pfaden der Zeichentrickfilme ^^

End Sub
 

'Sub Anderefilme(Folder)?...

Wenn du weitere Fragen hast oder Hilfe beim Script schreiben brauchst helfe ich dir gerne.

Und bedenke bitte, dass du den Code erst zuende schreiben musst bevor du ihn anwendest.

PS: alles was hinter einem ' steht sind meine Kommentare

nein nicht löschen
der ordner
Filmdatei - Die Schöne und das Biest, USA 1995, 85 Min.
soll in den ordner
Die Schöne und das Biest, USA 1995, 85 Min. rutschen
also wenn ich den ordner
Die Schöne und das Biest, USA 1995, 85 Min.
öffne habe ich darinnen den ordner
Filmdatei - Die Schöne und das Biest, USA 1995, 85 Min.
und in dem ist dann das avi - Die Schöne und das Biest, USA 1995, 85 Min.avi

ein problem, ich habe 0 ahnung was ein vb script ist

Verschieben ist kopieren nur das beim Verschieben nach dem Kopieren das alte gelöscht wird.

Orginal<----->Kopie 'Kopieren
Orginal------>Kopie 'Verschieben

verstehst du?

VBScript ist eine Scriptsprache unter Windows :-) genau so wie Batch.

Wenn du willst,
gib mir genauere Daten dan schreibe ich dir den Script zuende dann musst du nurnoch den Script in den Ordner der Filme einfügen und doppelklicken.

Ich brauch eigentlich nur eine Struktur der Ordner wie das aussiht.

Die bekommst du indem du folgende Schritte befolgst:
Start-Taste + R drücken,
'cmd' in das Textfeld eintippen und mit Enter drücken oder auf das 'OK' klicken bestätigen,
in die schwarze CMD Konsole folgendes eingeben 'cd "C:\Filme"'(Auf keinen Fall die "" vergessen) wobei 'C:\Filme' nur ein Beispiel ist für den Pfad zu den Filmordner anschließend bestätigst du mit Enter,
danach schreibst du 'dir \ /a:d /b /s > Liste.txt' und Enter drücken.

Das wars nun erscheint eine Textdatei im Filmordner den Inhalt brauche ich ^^.

soll ich dir die liste die dann im ordner erstellt wurde irgendwie privat per mail zu kommen lassen wiel die ist sehr lange
da sind auch alle anderen ordner irgendwie aufgeleuchtet, oder wie man das nennt.
die liste hat sicher an die 50 seiten
ich lad sie mal hoch und schick dir den link privat

Jop sind ganz schön viele Ordner :-)

Drück die WindowsTaste+R gleichzeitig,
Schreib 'notepad',
Drück Enter,
kopiere folgenden Code in den Text Editor:

Code:

Dim sList, SubFolder, Temp1, I, fCopy

'Variablen deklariren
 
 

        Set FSO = CreateObject("Scripting.FileSystemObject") 'Object erstellen um die Ordner zu bearbeiten
 

        ZeichentrickFolder = "H:\FILME\Zeichentrick" 'Variable mit dem Hauptordner Pfad

        

        Set Folder = FSO.GetFolder(ZeichentrickFolder)

        Zeichentrickfilme(Folder) 'Prozedur aufrufen die dann den Hauptordner bearbeitet
 

Sub Zeichentrickfilme(Folder)

        'Prozedur Anfang

        sList = ""

        Set SubFolder = Folder.SubFolders

        For Each I in SubFolder

                sList = sList & I.Name & vbcrlf 'Alle FILMDATEI-Ordner auflisten

        Next        

        Temp1 = Split(sList, vbcrlf)

        For I = 0 to UBound(Temp1)
 

                If Mid(Temp1(I), 1, 9) = "FILMDATEI" Then

                        FSO.CreateFolder(Folder & "\" & Mid(Temp1(I), 13, Len(Temp1(I)-13))) 'Ordner ohne "FILMDATEI - " erstellen

                        Set fCopy = FSO.GetFolder(Folder & "\" & Temp1(I)) 'Kopieren vorbereiten

                        fCopy.Copy "H:\FILME\Zeichentrick\" & Temp1(I) 'Ordner mit "FILMDATEI - " in den erstellten kopieren
 

                Else 'Und nun die restlichen Ordner mit dem Schreibfehler "FILMDATI" xD
 

                        FSO.CreateFolder(Folder & "\" & Mid(Temp1(I), 12, Len(Temp1(I)-12))) 'Ordner ohne "FILMDATEI - " erstellen

                        Set fCopy = FSO.GetFolder(Folder & "\" & Temp1(I)) 'Kopieren vorbereiten

                        fCopy.Copy "H:\FILME\Zeichentrick\" & Mid(Temp1(I), 12, Len(Temp1(I)-12)) & "\" & Temp1(I) 'Ordner mit "FILMDATEI - " in den erstellten kopieren

                End If

                

                

                

                

                'FSO.DeleteFolder(Folder & "\" & Temp1(I)

                'Wir könnten die fertig kopierten Ordner gleich löschen um die verschiebung abzuschließen

                'Aber zur sicherheit das du die daten ned verlierst falls ein fehler vorliegt und die aus

                'welchem Grund auch immer NICHT kopiert werden dennoch behalten kannst

        Next

        MsgBox "Prüfe bitte nun ob die Filmordner kopiert wurden!" & vbcrlf & "Falls dies der Fall ist starte die zweite Datei!"

End Sub

,

geh oben links auf Datei->Speichern unter...
und speichere die Datei wo auch immer du willst hauptsache du findest sie wieder, und achte bitte drauf das die Datei mit .vbs endet also z.B. "xxx.vbs"!

Danach machst du Rechtsklick irgendwo auf den Text im Text Editor,
klickst auf "Alle auswählen"
und löschst all den Text.

Nun fügst du diesen Code ein:

Code:

Dim sList, SubFolder, Temp1, I

'Variablen deklariren
 
 

        Set FSO = CreateObject("Scripting.FileSystemObject") 'Object erstellen um die Ordner zu bearbeiten
 

        ZeichentrickFolder = "H:\FILME\Zeichentrick" 'Variable mit dem Hauptordner Pfad

        

        Set Folder = FSO.GetFolder(ZeichentrickFolder)

        Zeichentrickfilme(Folder) 'Prozedur aufrufen die dann den Hauptordner bearbeitet
 

Sub Zeichentrickfilme(Folder)

        'Prozedur Anfang

        sList = ""

        Set SubFolder = Folder.SubFolders

        For Each I in SubFolder

                sList = sList & I.Name & vbcrlf 'Alle FILMDATEI-Ordner auflisten

        Next        

        Temp1 = Split(sList, vbcrlf)

        For I = 0 to UBound(Temp1)

                FSO.DeleteFolder(Folder & "\" & Temp1(I)

        Next

        MsgBox "Fertig!"

End Sub

,

Das genauso speichern aber mit dem Namen "ZweiteDatei.vbs".

Jetzt musst du nurnoch die erste Datei doppelklicken wenn sie Fehlerfrei durchgeführt wird bekommst du von ihr weitere Anweisungen.

WICHTIG!!! AUF KEINEN FALL DIE "ZweiteDatei.vbs" ÖFFNEN WENN ES NICHT DA STEHT!

Falls es Fehler oder Probleme gibt, dann beschreib Sie mir ich verbessere sie, versprochen!

wow
bist du der bruder von steve jobbs oder bill gates?
irre wie schafft das ein einzelner mensch? gibts ja gar nicht

also

also ich habe notepad geöffnet
ich habe den 1. code rein geschrieben
ich habe die datei abgespeichert als 1.vbs
ich habe dann alles markiert und gelöscht
ich habe den 2. code rein kopiert
ich habe die 2. datei als 2.vbs agespeichert
ich habe die 1. datei in den ordner gegeben mti den zeichentrickfilmen
ich habe die 1. datei und nur die doppelt geklickt
10 sekunden später

der zugriff auf windows script host wurde für diesen computer deaktiviert, wensen sie sich an einen administrator ...

dann

egistry (Start -> Ausführen -> regedit) bei dir unter: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings einen Eintrag mit dem Namen Enabled gibt. Wenn ja, dann weise diesem den Wert 1 zu, dann ist der Scripting Host wieder aktiviert.

also gleicher vorgang wie vorher,
neues problem

http://www.bilder-hochladen.net/files/80ua-lr-0699.jpg

was ist das?