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

Das hast du wunderbar gemacht :-).

Schaumal in die MsgBox die du gescreent und gepostet hast da steht in welcher zeile und an welcher Ziffer der Fehler ist nämlich:
Zeile 23
Zeichen 4
und..
Fehler Type missmatch
Type missmatch bekommt man wen man ein falschen Wert liefert z.B. ein Text(String) wird als Argument erwartet aber man hat z.B. eine Zahl(Integer) eingegeben!

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


hmm................
ich kann kein fehler erkennen ^^ versuch mal folgendes:
Rechtsklick auf 1.vbs
klick auf bearbeiten
Zeile 23 navigieren
VOR Zeile 23 das einfügen:

MsgBox Temp1(0)
Exit Sub
         

Anschließend sagst du mir ob einer der Ordnernamen dort steht z.B. "FILMDATEI - DATEN VOM FILM"

Falls nicht hab ich den fehler


Ich endschuldige mich hier erstmal für mein Fehler, leider kann ich den code nicht bei mir testen, da ich deine Filme nicht auf meiner Festplatte hab bzw. die Ordnerstrukturen also kan ich nur blind vor mich hin coden !

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

Steve Jobs* nicht jobbs ^^

ich bin seid 2 tagen wach & hab ne menge kaffee in mir da geht sowas leicht

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
MsgBox Temp1(0)
Exit Sub			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
         

so würde das dann bei mir aussehen
stimmt das deiner Meinung nach so?aha kaffee, igitt du armer
wie kann man überhaupt sowas schreiben?
wenn ich nur lesen tep1(0) dann weiß ich schon nicht mehr was das ist+g+g

wieder fehler
ich schick dir mal die bilder von dem ordner den ich habe privat rüber damit du siehst um was es geht mit fehlermeldung

Ja schau mal diesmal hast du den Fehler gemacht :-)
Du hast sozusagen 2 Zeilen in einer geschrieben

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

Das ist für dein PC so als würde ich dir jetzt 2 Wörter in einem schreiben fürn währe das.

Füg das ein in 1.vbs dann starte den Script & erzähl mir was in der MsgBox steht!

aha kaffee, igitt du armer
wie kann man überhaupt sowas schreiben?

Das mit dem Kaffee oder den kleinen schlichten Script ?

Kan das sein das du noch keine 18 Jahre alt bist?

EDIT:

hab vergessen den inhalt von 1.vbs zu schreiben hier ist er:

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
MsgBox Temp1(0)
Exit Sub			
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
         

aha das ist ja interessant
jetzt kam ein ok
aber kein ordner hat sich geändert
absolut keiner
obwohl ein ok kam +g+g

Ist das hier ein Grundkurs für MsgBoxes?
Warum sollte man auch nicht schnell und einfach die Neusortierung und Umbenennung der Dateien mit einem Renaming-Tool innerhalb kürzester Zeit machen wenn man die Aufgabe viel komplizierter mit VBS löst?

die dateiens ind ja alle richtig benannt.
und es war zwar en OK mit dem tollen VBS Skript, aber kein Ordner wurde in einen neuen veschoben was mich gerade wundert.

die Ordner sind alle richtig benannt
jeder Film hat einen eigenen ordner und alle haben davor das Filmdatei-
in vielen ordnern sind Video_TS und in vielen .avis

mit einem renaming tool geht das nicht
wie willst du das machen
ich habe den ordner sagen wir
Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min.
mit dem Avi Arielle die kleine meerjungfrau, USA 1990, 85 Min.
drinnen
und dieser ordner
soll in den neuen ordner
Arielle die kleine meerjungfrau, USA 1990, 85 Min.
kommen
wenn ich also den ordner
Arielle die kleine meerjungfrau, USA 1990, 85 Min.
öffne, habe ich den ordner
Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min.
drinnen udn in dem ist das Avi
Arielle die kleine meerjungfrau, USA 1990, 85 Min.
so jetzt mach das mal mit 150 filmdatei ordnern mit unterschiedlichen Namen
verstehst du?

aha das ist ja interessant
jetzt kam ein ok
aber kein ordner hat sich geändert
absolut keiner
obwohl ein ok kam +g+g
StefanC. ist offline Beitrag melden Mit Zitat antworten

Eine leere MsgBox mit einem OK?

Es konnte sich auch keine Datei/Ordner verändern.

Ist das hier ein Grundkurs für MsgBoxes?
Warum sollte man auch nicht schnell und einfach die Neusortierung und Umbenennung der Dateien mit einem Renaming-Tool innerhalb kürzester Zeit machen wenn man die Aufgabe viel komplizierter mit VBS löst?

Ich finde solche Renaming Tools sind Müll vorallem wen da erstmal kommt bitte hier dies und das Installieren plötzlich findet man dann 10 neue Toolbars im Webbrowser und am Ende kommt noch ne Meldung Testversion abgelaufen hier und da bezahlen D


Mit einer simplen Schleife in VBS ist es doch 100 mal leichter D? Ich weiß das dauert hier bereits seid 2 Tagen aber der StefanC kann ja auch nicht Scripten und wenn ich seine Festplatte hier währe währen die Ordner bereits auf ihrem richtigen Platz!

Mit einer simplen Schleife in VBS ist es doch 100 mal leichter
...
Ich weiß das dauert hier bereits seid 2 Tagen

Nach der Argumentation müsste es mit einem simplen Renaming-Tool dann über 200 Tage dauern die Aufgabe zu lösen? Wenn 100x leichter auch 100x schneller bedeutet? Oder ist das VBS-Script schneller zusammengefrickelt als man ein Renaming-Tool installieren kann?

plötzlich findet man dann 10 neue Toolbars im Webbrowser und am Ende kommt noch ne Meldung Testversion abgelaufen hier und da bezahlen

Man installiert Software ja auch nicht mit der Augen-Zu-und-durch-Variante. Vllt solltest du auch mal aufmerksamer lesen was so alles die Setupfensterchen an Informationen mitbringen und evtl solltest du dich auch mal für eine benutzerdefinierte Methode entscheiden. Irgendwann bist du nämlich auch mal an Software angewiesen oder willst du dir alles an "Programme" und Software du du brauchst in VBS Nachbasteln?

Oder ist das VBS-Script schneller zusammengefrickelt als man ein Renaming-Tool installieren kann?

JAIN!
In diesem Fall nicht!
Aber im normalen Fall schon!
Jetzt frag bitte nicht was der normale Fall währe wen du es dir nicht denken kannst vergiss es!

Man installiert Software ja auch nicht mit der Augen-Zu-und-durch-Variante. Vllt solltest du auch mal aufmerksamer lesen was so alles die Setupfensterchen an Informationen mitbringen und evtl solltest du dich auch mal für eine benutzerdefinierte Methode entscheiden.

Sihst du das ist der Nachteil du musst ein haufen Text lesen dazu noch die Lizenz = 2 bis 3 Stunden!
Script = 5 Minuten !

Natürlich gibt es gute und nützliche Programme :-) aber ich wollte jetzt drauf hinaus, das man doch keine extra Software suchen, downloaden und installieren muss nur um son paar Ordner zu verschieben ^^

Also du hast ja selbst gesehen die Rename-Programme die hier gepostet wurden haben dem StefanC noch nichts gebracht. Das heißt ja für ihn er muss weiter suchen noch mehr Lizenzen von Programmen etc etc durchlesen sein Ziel ist noch garnicht zu sehen ! Da könnte er ja gleich die Ordner per Hand selbst verschieben und umbenennen!

Naja, ich weiß nicht ob man hier unbedingt VBS nehmen muss, sieht hier ein wenig nach Overkill aus

Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min.
mit dem Avi Arielle die kleine meerjungfrau, USA 1990, 85 Min.
drinnen
und dieser ordner
soll in den neuen ordner
Arielle die kleine meerjungfrau, USA 1990, 85 Min.

Alt: Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min
Neu: Arielle die kleine meerjungfrau, USA 1990, 85 Min.

Da muss doch nur was umbenannt werden
Und zwar muss "Filmdatei - " aus dem Dateinamen weg
Das geht auch mit einem Renamer

NEIN!!!
er will folgendes

Ordner erstellen "Arielle die kleine meerjungfrau, USA 1990, 85 Min"
Ordner verschieben "Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min." nach "Arielle die kleine meerjungfrau, USA 1990, 85 Min"


^^
genau das hab isch ja im code gemacht!
er hat mich privat drauf angesprochen ich werd dem da helfen! sobald wir uns mal nicht verpassen und beide on sind ist es eine frage von minuten ^^
bestimmt gibts nen programm mit dem sein vorhaben funktioniert aber bis dahin hat er bereits 3 programme installiert dafür ^^

ich denke,
wenn man programmier und scriptsprachen beherscht hat das schon seine vorteile

Zitat von Coldpep

wenn man programmier und scriptsprachen beherscht hat das schon seine vorteile

Betrachte die deutsche Schriftsprache doch einfach mal als Scriptsprache, vielleicht stimmt es dann besser.
Alternativ, wenn's dann immer noch nicht besser ist, weißt du anschließend, warum deine Scripte so oft nicht das tun, was sie sollten.
Shadow, der sich nur schon seit vielen, vielen Jahren wirklich wundert, warum vorgebliche Programmierer so oft die simple Syntax der deutschen (und englischen) Schriftsprache einfach nicht rüberbringen können.

Nur mal bitte drüber nachdenken, ist nicht böse gemeint.

dass rename mache ich immer mit total commander
aber der vorgang wo do im xp im hauptornder auf neue ordner erstellen gehst und dann den namen des filmes eingibst und da in den neuen ordner dann den Filmdatei - so und so reinschiebst, dass bei unzähligen Ordnern und hunderten Filmordnern das ist ja die Schwierigkeit. dass da ein skript hilft, ich frag mich wie man sowas schreibe kann, das schafft nicht mal bill gates mit microsoft. die können nicht mal nen ordentlichen code schreiben wie bei apple, sondern nehmen immer die alten dinger von den vorgängerversionen mit.

Ordner erstellen "Arielle die kleine meerjungfrau, USA 1990, 85 Min"
Ordner verschieben "Filmdatei - Arielle die kleine meerjungfrau, USA 1990, 85 Min." nach "Arielle die kleine meerjungfrau, USA 1990, 85 Min"

Wozu muss ein und dieselbe Information im Ordner und in der Filmdatei stehen? Redundante Meta-Datenhaltung?
Naja, ich muss nich alles verstehen

ganz einfaich
ich mache den ordner

Arielle, die kleine meerjungfrau, USA 1990, 85 Min. auf der Festplatte auf
darin befindet isch dann der Ordner - Filmdatei - Arielle, die kleine meerjungfrau, USA 1990, 85 Min. mit dem avi
darinnen befindet sich der Ordner
Infos - Arielle, die kleine meerjungfrau, USA 1990, 85 Min.
mit Covers und Bildern
darinnen befindet sich auch ein word dokument
INfo - Arielle, die kleine meerjungfrau, USA 1990, 85 Min.
mit der Beschreibung zum Film
alles schön geordnet
verstehst du?