Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien unbenennen

Dateien unbenennen
25.05.2009 04:38:26
Franz
Hallo Fachleute,
ich möchte alle Dateien in einem Verzeichnis umbenennen und versuche das mit "Name" - "As", bekomme aber dauernd eine Fehlermeldung. Meine Anweisung:
Name .FoundFiles(i) As neuername
MsgBox .FoundFiles(i) ergibt z. B. "D:\Test\IMG_0001.JPG"
NeuerName = Replace(.FoundFiles(i), Right(.FoundFiles(i), 8), "1" & Right(.FoundFiles(i), 8))
MsgBox NeuerName ergibt nun: "D:\Test\IMG_10001.JPG"
Aber bei der Anweisung wie oben:
Name .FoundFiles(i) As neuername
heißt es Syntaxfehler!
Was bitte mache ich falsch?
Vielen Dank im Voraus und Grüße
Franz

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
GELÖST
25.05.2009 07:29:43
Franz
Hallo Fachleute,
die Form ".FileSearch.FoundFiles(i) As NeuerName" wird nicht akzeptiert. Es muss so geschrieben werden: "Name Application.FileSearch.FoundFiles(i) As NeuerName" - so klappts.
Grüße
Franz
AW: GELÖST
25.05.2009 07:48:44
Hajo_Zi
Hallo Franz,
das konnten wir aus Deinem Code aber nicht sehen. Laut Deinem Code hat Du With Application schon zu stehen, sonst würde das Replace auch nicht gehen.

AW: GELÖST
25.05.2009 07:50:56
Franz
Hallo Hajo,
ich habe "With Application.FileSearch" stehen - und damit geht's nicht!
Grüße
Franz
AW: GELÖST
25.05.2009 07:54:00
Hajo_Zi
Hallo Franz,
.FileSearch wäre dann ja doppelt bei Namen.
Das solltest Du eigentlich wissen bei VBA gut.
Gruß Hajo
Anzeige
?
25.05.2009 08:12:16
Franz
Hallo Hajo,
ich versteh nicht so ganz:
With Application.FileSearch
MsgBox .FoundFiles(i) 'KLAPPT
NeuerName = Replace(.FoundFiles(i), Right(.FoundFiles(i), 8), "1" & Right(.FoundFiles(i), 8)) 'KLAPPT
MsgBox NeuerName 'KLAPPT
Name .FoundFiles(i) As neuername 'KLAPPT NICHT!!
Name Application.FileSearch.FoundFiles(i) As NeuerName 'KLAPPT
End With
Grüße
Franz
"Name .FoundFiles(i) As neuername", also...
25.05.2009 17:20:30
Luc:-?
...muss ja dann neuername ein benutzerdefinierter Typ sein, Franz...!
Wir können natürlich nicht wissen, was du in der Type-Proc geschrieben hast! Wenn das eine neue Instanz oder Vglbares impliziert, kann es schon sein, dass das so nicht mehr mit dem bestehenden With-Block fkt...
Gruß Luc :-?
Anzeige
AW: "Name .FoundFiles(i) As neuername", also...
25.05.2009 18:07:06
Franz
Hallo Luc,
einfach nur "Dim NeuerName as String"......
Kann es damit gewesen sein?
Grüße
Franz
Nee, das ist i.O., ist ja hier auch etwas...
25.05.2009 18:27:14
Luc:-?
...anders, was ich nicht berücksichtigt hatte, Franz.
Aber das mit der Instanz wird's wohl doch treffen, wenn ich die Hilfe richtig interpretiere...
Name AlterPfadname As NeuerPfadname
AlterPfadname Erforderlich. Zeichenfolgenausdruck, der einen existierenden Dateinamen und seinen Pfad angibt. In dem Wert kann ein Verzeichnis oder Ordner sowie ein Laufwerk enthalten sein.
NeuerPfadname Erforderlich. Zeichenfolgenausdruck, der einen neuen Dateinamen und seinen Pfad angibt. In dem Wert kann ein Verzeichnis oder Ordner sowie ein Laufwerk enthalten sein. Die in NeuerPfadname angebene Datei darf noch nicht existieren.
Gruß Luc :-?
Anzeige
AW: Nee, das ist i.O., ist ja hier auch etwas...
25.05.2009 18:39:26
Franz
hm ja, werd ich mal probieren, vielleicht kann ich's noch kongreter rausfinden.
Danke auf jeden Fall und Grüße
Franz
Bitte sehr! ;-) Gruß owT
25.05.2009 18:40:37
Luc:-?
:-?
AW: ?
25.05.2009 18:57:24
Anton
Hallo Franz,
so vllt:
Name (.FoundFiles(i)) As neuername
mfg Anton
AW: ?
25.05.2009 22:37:21
Franz
aber ja, Anton!
Das isses, so geht's!!!
Danke und Grüße
Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige