Für 32Bit und 64Bit Office Versionen
Problemstellung:
Wie kann ich Verzeichnisse oder Dateien umbenennen?
Das Umbenennen von Dateien und Verzeichnissen mittels VBA ist ganze einfach.
Es kommt nur die Name-Eigenschaft zum Einsatz.
Zur Beachtung:
Es ist nicht möglich Dateien oder Verzeichnisse mittels dieser Methode zu verschieben.
Public Function RenameFileFolderVBA(strSource As String, strTarget As String) '******************************************* 'Name: RenameFileFolderVBA (Function) 'Purpose: Umbenennen von Dateien und Ordnern 'Author: Tommyk 'Date: März 11, 2004, 04:19:04 'Inputs: strSource= Datei- und/oder Pfad der Quelldatei ' strTarget= Datei- und/oder Pfad der Zieldatei 'Output: '******************************************* On Error GoTo Err_Handler Name strSource As strTarget Err_Handler_Exit: Exit Function Err_Handler: Dim strErrString As String strErrString = "Error Information..." & vbCrLf strErrString = strErrString & "Error#: " & Err.Number & vbCrLf strErrString = strErrString & "Description: " & Err.Description & vbCrLf MsgBox strErrString, vbCritical + vbOKOnly, "Error in Function: RenameFileFolderVBA" Resume Err_Handler_Exit End Function
RenameFileFolderVBA "G:\Java", "G:\Java_1"
würde das Verzeichnis "G:\Java" in "G:\Java_1" umbenennen.
RenameFileFolderVBA "G:\Java\test.js", "G:\Java\test_neu.js"
würde die Datei "G:\Java\test.js" in "G:\Java\test_neu.js" umbenennen.
Ähnliche Artikel
Weiterlesen...