Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1788to1792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien nach Ordnername umbenennen?

Dateien nach Ordnername umbenennen?
01.11.2020 21:13:37
Sergej
Hallo Leute,
ich möchte in dem Pfad "P:\Berlin\Einstellungen\Configuration\Organization\Users\" incl. Unterverzeichnisse nach Dateien mit der Dateiendung *.backup suchen und diese so umbenennen, wie der Ordner heißt, in dem diese Datei gefunden worden ist.
Beispiel vorher:
P:\Berlin\Einstellungen\Configuration\Organization\Users\Mustermann\vorlage.backup
Beispiel nachher:
P:\Berlin\Einstellungen\Configuration\Organization\Users\Mustermann\Mustermann.backup
Ich habe zwar ca. 25 Standorte bzw. Pfade, aber mir würde ein Pfad ausreichen und dann muss ich es nach dem Ausführen nächsten Pfad anpassen.
Wie mache ich das bitte per VBA?
Beste Grüße,
Sergej

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien nach Ordnername umbenennen?
01.11.2020 21:37:08
Norman
Das hier sieht doch recht gut aus für einen Lösungsansatz: https://www.herber.de/forum/archiv/1644to1648/1645631_Ordner_Unterordner_Dateien_finden_und_umbenennen.html
oder hier: https://www.herber.de/forum/archiv/664to668/666167_Dateien_in_einem_Ordner_umbenennen.html
Den Pfad und Unterordner kannst du so ermitteln:
in Zelle A1 für Dateinamen mit Pfad anzeigen:
=ZELLE("dateiname";A1)
in Zelle A2 für Dateipfad ohne Dateinamen:
=TEIL(ZELLE("Dateiname";A1);1;FINDEN("[";ZELLE("Dateiname";A1))-1)
wenn du eine Liste mit allen Dateien und ihren Unterordnern hast, sollte sich was basteln lassen.
Gruß Norman
Anzeige
AW: Dateien nach Ordnername umbenennen?
01.11.2020 21:48:38
Nepumuk
Hallo Sergej,
teste mal:
https://www.herber.de/bbs/user/141240.xlsm
Einen Pfad musst du nicht ändern. Die Routine durchsucht das Laufwerk ruckzuck.
Gruß
Nepumuk
AW: Dateien nach Ordnername umbenennen?
02.11.2020 13:46:11
Sergej
Hallo Nepumuk,
ich bekomme diese Meldung "Laufzeitfehler 58: Datei existiert bereits".
Es soll übersprungen werden, wenn die Datei der Vorgabe entspricht.
Da ich das Ganze aus der Entfernung im Firmennetzwerk ändern muss, habe ich den Start-Pfad etwas genau definiert, ansonsten dauert es sehr lange :-)
Gäbe es bitte auch die Möglichkeit, mehrere Pfadverzeichnisse einzutragen, die nacheinander abgearbeitet werden sollen?
Beste Grüße,
Sergej
Anzeige
AW: Dateien nach Ordnername umbenennen?
02.11.2020 13:49:28
Nepumuk
Hallo Sergej,
wie viele Pfade sind es denn?
Gruß
Nepumuk
AW: Dateien nach Ordnername umbenennen?
02.11.2020 14:39:22
Nepumuk
Hallo Sergej,
teste mal:
Public Sub RenameFiles()
    
    Dim objFileSearch As clsFileSearch
    Dim ialngIndex As Long, lngFileCount As Long
    Dim avntTemp As Variant, vntTown As Variant
    
    Set objFileSearch = New clsFileSearch
    
    With objFileSearch
        
        .CaseSenstiv = False
        .Extension = "*.backup"
        .SearchLike = "*"
        .SubFolders = True
        
        For Each vntTown In Array("München", "Paris", "Kalkutta") ' Anpassen !!!
            
            .NewSearch = True
            .FolderPath = "G:\" & vntTown & "\"
            
            lngFileCount = .Execute()
            
            For ialngIndex = 1 To lngFileCount
                
                With .Files(ialngIndex)
                    
                    avntTemp = Split(.Path, "\")
                    
                    If Split(.Filename, ".")(0) <> avntTemp(UBound(avntTemp) - 1) Then _
                        Name (.Path) As Replace(.Path, .Filename, _
                        avntTemp(UBound(avntTemp) - 1)) & ".backup"
                    
                End With
            Next
        Next
    End With
    
    Set objFileSearch = Nothing
    
End Sub

Gruß
Nepumuk
Anzeige
AW: Dateien nach Ordnername umbenennen?
02.11.2020 14:44:40
Nepumuk
Oooooooooooooooooooops,
so:
.FolderPath = "P:\" & vntTown & "\"
Gruß
Nepumuk
AW: Dateien nach Ordnername umbenennen?
02.11.2020 19:27:48
Sergej
Hallo Nepumuk,
vielen herzlichen Dank!
Beste Grüße,
Sergej

69 Forumthreads zu ähnlichen Themen

Suche Code zum umbenennen von Dateien
Dateien

Hallo,
ich suche reinen VBcode um die Dateien aus einem Ordner nach dem Dateierstelldatum umzubenennen. Und alles über UserForm ohne sheets.
Hat jemand das schon mal gemacht?
Viele Grüße aus dem mal sonnigen Hamburg
Ray
23.10.2008 15:59:58
Thread-ID: 1018718
6 Beiträge
Anzeige
Dateien im aktuellen Ordner auslesen
Mister

Hallo und guten morgen,
vor langer Zeit habe ich folgendes Makro aus dem Forum das die Dateien im angegebenen Ordner ausliest und in der Tabelle "PDF" auflistet. Wie muss ich das Makro ändern damit die Dateien aufgelistet werden die sich im gleichen Ordner befinden wie die Datei die das Ma...
24.09.2009 10:20:27
Thread-ID: 1105169
3 Beiträge
Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
BENNY
Hallo,
habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.
Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
13.01.2010 14:52:54
Thread-ID: 1129510
5 Beiträge
Anzeige
Umbenennen von Dateien in einem Ordner
Dateien

Hallo,
ich habe folgende Frage:
Ich nutze Excel 2007.
Ich habe einen Ordner mit über 100 Excel-Dateien. Diese sollen so umbenannt werden, daß an den vorhandenen und unterschiedlich langen Dateinamen vier Buchstaben angehangen werden sollen.
Gibt es eine Möglichkeit dieses zu aut...
04.06.2010 13:20:53
Thread-ID: 1160328
4 Beiträge
alle Dateien in einem Ordner umbenennen
Joachim

Hallo,
ich hab in einem Ordner ca. 400 pdf-Files. Diese muss ich jetzt umbenennen. Die Dateinamen beginnen immer gleich, erst 7 Zeichen, dann eine 14-stellige Nummer, dann der Rest, der aber unterschiedlich lang sein kann. Ich muss nun aus der 14-stelligen Nummer eine 15-stellige machen, sp...
02.08.2010 11:07:41
Thread-ID: 1169991
23 Beiträge
Dateien im Ordner unbenennen
bruno

Hallo zusammen
Ich habe einen Ordner, in dem eine Variable Anzahl von pdf-Dateien sind. Kann ich mit einem Macro alle Dateien unbennenen? (unter unbenennen meine ich in diesem Fall, den alten Namen verkürzen auf die ersten 14 Zeichen)
Gruess ond Danke
de Bruno
27.10.2010 13:19:04
Thread-ID: 1184116
5 Beiträge
Auswertung aller Dateien in einem Ordner
Joerg.Kaiser1@web.de

Hallo
Habe eine Datei mit folgendem Aufbau:
---- A------B-----------------C----
1-----------------------------------
2-----------------------------------
3-----------------------------------
4--------Drehen---------Schmidt
5--------Fräsen----------Schulze
6------...
13.12.2011 07:22:59
Thread-ID: 1241758
14 Beiträge
VBA: mehrere Dateien nacheinander einlesen
H.Benitz

Hallo,
da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.
Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!
Das Ziel ist:
Es sollen aus einem vom Anwender vorgegeb...
06.12.2012 11:06:13
Thread-ID: 1289572
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
7
2
4
2
3
22
4
13
2
1
1
2
3
5
2
1
1
1
7
1
2
1
4
3