Ordner automatisch umbenennen

Hallo zusammen!
Ich habe das Problem, dass sich in einem laufenden Projekt die Objekt-IDs geändert haben. Das würde für mich bedeuten, dass ich ca. 600 Ordner (1 Ordner pro Objekt) manuell umbenennen muss.
Gibt es die Möglichkeit, das Ganze automatisiert über ein Excel-Makro zu lösen? Mir schwebt folgende Idee vor:
In Spalte A steht die alte ID (A2 abwärts). In Spalte B steht die neue ID (B2 abwärts).
Die Excel-Datei würde ich im selben Ordner ablegen, in dem sich auch alle Objektordner befinden, so dass Excel den Speicherpfad der Ordner auslesen kann.
Jetzt möchte ich quasi per Knopfdruck die Ordnernamen aus Spalte A durch die aus Spalte B ersetzen.
Soweit die Theorie - nur umsetzen kann ich das leider gar nicht! Kann mir bitte jemand von euch helfen?
Vielen Dank schon mal!
Grüße,
Nico

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Nico,
das habe ich bei vb@rchiv gefunden:
Der folgende Code wird von vb@rchiv zur Verfügung gestellt:
http://www.visualbasic-archiv.de/archiv/tipp_details.php3?pid=207
Option Explicit
' KONSTANTEN DER FUNC
' Kopiert das File in pFROM nach pTo
Private Const FN_COPY = &H2&
' Löscht das File in pFrom (pTo wird ignoriert)
Private Const FN_DELETE = &H3&
' Verschiebt das File in pFROM nach pTo
Private Const FN_MOVE = &H1&
' Umbenennen des Files in pTo
Private Const FN_RENAME = &H4&
' KONSTANTEN DER FLAGS
' Undo Information -> Schiebt beim Löschen
' das (die) File(s) in den Papierkorb
Private Const FNF_ALLOWUNDO = &H40&
' Bislang keine bekannte Funktion
Private Const FNF_CONFIRMMOUSE = &H2&
' Handle zum Eltern-Fenster der
' Progress-Dialogbox (also Me.hwnd)
Private Const FnF_CREATEPROGRESSDLG = &H0&
' Nur Files - KEINE ORDNER - wenn *.* als Source
Private Const FnF_FILESONLY = &H80&
' Für diverse Stellen bei DEST (der "pTo" muss dann
' die gleiche Anzahl von Zielen aufweisen wie "pFrom"
Private Const FnF_MULTIDESTFILES = &H1&
' ANTWORTET AUTOMATISCH MIT 'JA für alle'
Private Const FnF_NOCONFIRMATION = &H10&
' Keine Abfrage für einen neuen Ordner, falls benötigt
Private Const FnF_NOCONFIRMMKDIR = &H200&
' Bei Namenskollisionen im ZIEL wird ein neuer Name
' erzeugt (z.B. Kopie(2) von xy.tmp)
Private Const FnF_RENAMEONCOLLISION = &H8&
' Zeigt keine Fortschritts-Dialogbox (fliegende Blätter)
Private Const FnF_SILENT = &H4&
' Zeigt die Fortschritts-Dialogbox an, aber ohne Filenamen
Private Const FnF_SIMPLEPROGRESS = &H100&
' Wenn FnF_RENAMECOLLISION gewählt wird,
' hNameMappings wird gefüllt (Anzahl)
Private Const FnF_WANTMAPPINGHANDLE = &H20&
' Eine Funktion für vier Dateioperationen
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) _
As Long
Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
'***********Datei umbenennen
'Mit nachfolgender Routine kann eine Datei oder auch ein Verzeichnis in einen anderen Namen umbenannt werden.

Public Function fRename(Source As String, _
Dest As String) As Long
Dim FileStructur As SHFILEOPSTRUCT
With FileStructur
.wFunc = FN_RENAME
.pFrom = Check_NullChars(Source)
.pTo = Dest
.fFlags = FnF_RENAMEONCOLLISION + FnF_SILENT
End With
fRename = SHFileOperation(FileStructur)
End Function

Gruß
Heinz

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread