Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien umbenennen

Dateien umbenennen
13.11.2002 09:26:19
jhaustein
hallo gemeinschaft,

habe folgendes problem
ich möchte gerne jpg. dateien umbenennen
habe schon gehört, dass es mit excel dateien gehen soll - geht das dann auch mit jedem anderen format.

bsp.:
im ordner c:/test liegt die datei bild.jpg - das bild soll jetzt in den ordner c:/test/klein mit der bezeichnung bild-klein.jpg

wie müsste der code aussehen, da in dem ordner test 180 dateien liegen

könnt ihr mir villeicht helfen
:-) jörg

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateien umbenennen
13.11.2002 10:01:44
jhaustein
hallo hans

bloss wie fange ich den dateinamen ab, so dass ich den namen entsprechend ändern kann

Re: Dateien umbenennen
13.11.2002 10:14:08
Hans W. Herber
... in meinem Beispiel sind die Dateinamen in zwei Zellen hinterlegt. Wenn Du also den Bezug auf die Zellen durch die Dateinamen ersetzt, hast Du das Makro angepaßt.

hans

Re: Dateien umbenennen
13.11.2002 10:18:35
jhaustein
könntest du mir dabei helfen, wie ich dann nacheinander die dateien aus dem ordner anpacken kann und den dateinamen dort eilesen kann - wäre echt super

:-) jörg

Anzeige
Re: Dateien umbenennen
13.11.2002 10:39:12
Coach
Hallo jhaustein,

mit folgendem Makro kannst Du Dateien umbenennen und verschieben.
Bitte ggf. die konkreten Daten entsprechend ersetzen:

Sub MoveRenameFile()
Dim Datei$, Verzeichnis$, Maske$, ZielVerzeichnis$
Dim fs, f
Dim p As Long
Verzeichnis$ = "c:\test\"
ZielVerzeichnis$ = "C:\Test\Klein\"
Maske$ = "*.jpg"
Set fs = CreateObject("Scripting.FileSystemObject")
Datei = Dir(Verzeichnis$ & Maske$, vbNormal + vbReadOnly + vbHidden)
Do While Datei$ <> vbNullString
Set f = fs.GetFile(Verzeichnis$ & Datei$)
p = InStr(f.Name, ".")
f.Name = Left(f.Name, p - 1) & "-Klein" & Mid(f.Name, p)
f.Move ZielVerzeichnis
Datei$ = Dir()
Loop
End Sub

Gruß Coach

Anzeige
Re: Dateien umbenennen
13.11.2002 10:55:11
Hans W. Herber
... für den Fall, das aus Sicherheitsgründen WSH nicht installiert ist:

hans

Re: Dateien umbenennen
13.11.2002 11:14:04
Coach
Hallo Hans,

da fehlt dann nur noch die gewünschte Umbenennung, z.B.

... worksheetfunction.substitute(arrFiles(iCounter),".","-Klein.")

Gruß Coach

Re: Dateien umbenennen
13.11.2002 11:15:32
Hans W. Herber
... ein büschen was zum Denken wollte ich ihm noch überlassen ;-)
Du hast recht.

hans

vielen dank meine herren
13.11.2002 11:24:03
jhaustein
es löppt - wie verrückt

:-) jörg

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige