Dateien mit gleichem Namen, aber anderer Endung erzeugen

[Johannes Postler]

Hallo!

Ist mir jetzt etwas peinlich, aber ich stehe vor folgendem Problem.
Ich habe einen Ordner in dem lauter Bilder sind. Ich will jetzt in einem anderen Ordner für jedes Bild im ersten Ordner eine Datei haben, die gleich heißt, die Endung *.txt hat (also eine Textdatei ist) und leer ist.
Ich glaub ich sitze im Moment wirklich auf der Leitung.
Danke
tirolausserfern

 

[zirag]

Kopier die ganzen Bilder in den neuen Ordner und ändere bei jedem das .jpg oder was das auch für Bilder sind in .txt um

falls du WinXP hast , musst du vorher was einstellen , im Arbeitsplatz --> Extras --> Ordneroptionen --> Ansicht --> Erweiterungen bei bekannten Dateitypen ausblenden [ ] <--- da den hacken wegmachen


mfg ZiRaG

 

[IRQ]

Ich verstehe nicht ganz wozu das ganze gut sein soll, vor allem da die neuen Dateien ja leer sein sollten.

 

[Retlaw]

Kopiere folgenden Text ins Notepad, speichere in unter "Dateiname.vbs" (wichtig: die Hochkommata angeben, damit es auch eine vbs-Datei wird)

Wenn WSH installiert ist (eigentlich Standard) kannst du es per Doppelklick starten.

Du musst zwei Verzeichnisse eingeben, als erstes das mit den Bildern, als zweites das wo die Text-Dateien rein sollen.

Das Script erledigt dann den Rest.

On Error resume next

dim app
dim dir1, dir2, file, dir, i, f, newname
dim FSO

app     = "File Generator"
set FSO = CreateObject("Scripting.FileSystemObject")

dir1 = InputBox("Quellverzeichnis eingeben:",app,"C:\Bilder")
dir2 = InputBox("Zielverzeichnis eingeben:",app,"C:\Texte")

set dir = FSO.getFolder(dir1)

For each file in dir.Files
	'fso.copyFile file, dir2 & file
	For i=len(file) to 0 step -1
		if mid(file,i,1) = "\" then
			newname = dir2 & "\" & right(file,len(file)-i)
			set f = fso.createTextFile( left(newname, len(newname) -3) & "txt" )
			f.close
			exit for
		end if
	next
next

MsgBox "Erledigt"

 

[Johannes Postler]

Danke Retlaw, es hat funktioniert!
@ zirag: Die Dateiendungen ändern habe ich schon probiert. Das Problem dabei ist nur, dass die Dateien dann das Bild alsText ausgegeben enthalten.

cu tirolausserfern