Ordner umbennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner umbennen

19.05.2020 15:50:30

Dieter(Drummer)

AW: Ordner umbennen

19.05.2020 15:58:27

maxim

AW: Ordner umbennen

19.05.2020 17:08:26

Firmus

AW: Ordner umbennen

25.05.2020 11:15:02

maxim

AW: Ordner umbennen

25.05.2020 11:25:27

maxim

AW: Ordner umbennen

19.05.2020 17:14:06

volti

AW: Zwei sehr schnelle und ...

19.05.2020 18:03:40

Dieter(Drummer)

AW: Ordner umbennen

25.05.2020 11:51:09

maxim

Hi Maxim,
anbei ein Beispiel:
https://www.herber.de/bbs/user/137632.xlsm
Besonderheiten
1. Es gibt drei Spalten
a) Pfad
b) alter Name
c) neuer Name
Die Überschriften der Spalten werden geprüft.
2. Das Blatt, das diese drei Spalten zum Umbenennen beinhaltet, muss "Umbenennen" heißen.
(Die Verifikation unter 1.+2. sind enthalten um versehentliches Ausführen möglichst zu verhindern.)
3. Viele mögliche Fehler werden vorab geprüft und pro Zeile (pro Datei) ein oder mehrere Meldungen ausgegeben.
4. Leerzeichen in Pfad und oder Dateinamen verursachen Probleme (Doppelquote!)
5. Unerlaubte Sonderzeichen in den Namen werden nicht geprüft, kommen aber als Meldungen hoch.
(Jede Zeile, die Rename durchführen soll erhält eine Meldung ob dies erfolgreich war.
Falls nicht erfolgreich, wird mindestens eine Meldung bzgl. "Warum nicht?" ausgegeben.)
6. Verzeichnisse und Dateien dürfen nicht READONLY sein - das kann der VBA-Befehl "NAME" nicht.
(Das ist der Befehl, der die Umbenennung durchführt)
Beispiel aus dem Code: Name AlterNameC As NeuerNameC 'Datei umbenennen.
Lass wissen ob es passt,
Gruß,
Firmus

Hallo Maxim,
Dieter hat Dir eine sehr schöne Datei zum Auflisten von Dateien und Ordnern angeboten.
Für Deine Zwecke reicht aber ggf. ein kleineres Makro speziell für Deine Anforderung.
Du sprachst von einem Ordner (also keine Unterordner), nicht von einer Filterung nach Erweiterung oder Datum oder sonstigen zu berücksichtigende Besonderheiten.
Hierfür reichen m.E. die zwei u.a. Makros.
Makro1 ordnest Du z.B. einem Button "Auflisten" zu, Makro2 einem Button "Umbenennen"
Dann sollte das klappen....
PS: Das Umbenennen habe ich jetzt nicht geprüft.

Sub DateienAuflisten()

'Auflisten von Dateien aus einem Ordner

 Dim OutZeile As Long, sArr() As String, sPath As String

 Dim oFile As Object, i As Integer

 sPath = "C:\Users\voltm\Desktop"       '!!!!anpassen

 With CreateObject("scripting.filesystemobject").GetFolder(sPath)

  For Each oFile In .Files      'Ordner durchsuchen

   If Err = 0 Then

    With oFile

     ReDim Preserve sArr(2, i)

     sArr(0, i) = Replace(.Path, "\" & .Name, "")

     sArr(1, i) = .Name         'Dateinamen im Direktfenster ausgeben

     sArr(2, i) = ""

     i = i + 1

    End With

   End If

 Next

 End With

 With ThisWorkbook.Sheets("Tabelle1")

  .Cells.ClearContents

  .Cells(1, 1).Resize(1, 3).Value = Split("Pfad,Dateiname,Neuer Dateiname", ",")

  .Cells(2, 1).Resize(i, 3).Value = Application.Transpose(sArr())

 End With

 MsgBox i & " Dateien gefunden!", vbInformation, "Dateisuche"

End Sub

Sub DateienUmbenennen()

'Benennt die Dateien lt. Liste um

 Dim i As Long, iAnz As Long

 With ThisWorkbook.Sheets("Tabelle1")

  On Error GoTo Fehler

  For i = 2 To .UsedRange.Rows.Count

   If .Cells(i, "B").Value &LT;&GT; "" And .Cells(i, "C").Value &LT;&GT; "" Then

     Name (.Cells(i, "A").Value & "\" & .Cells(i, "B").Value) _

       As (.Cells(i, "A").Value & "\" & .Cells(i, "C").Value)

       iAnz = iAnz + 1

   End If

  Next i

  MsgBox iAnz & " Dateien wurden umbenannt!", vbInformation, "Dateien umbenennen"

 End With

 Exit Sub

Fehler:

 MsgBox "Es ist der Fehler '" & Error & "' aufgetreten!", vbCritical, "Dateien umbenennen""

End Sub

viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread