Problemstellung:
Wie kann ich mit SHFileOperation eine Datei oder Verzeichnis umbenennen?
Für 32Bit und 64Bit Office Versionen
Public Function RenameOperation(strSourceName As String, strTargetName As String) '******************************************* 'Name: RenameOperation (Function) 'Purpose: Umbenennen von Dateien und Verzeichnissen 'Author: Tommyk 'Date: März 11, 2004, 04:23:48 'Inputs: strSourceName=Name der Quelldatei oder Pfad ' strTargetName=Neuer Name der Quelldatei oder Pfad 'Output: '******************************************* Dim shellinfo As SHFILEOPSTRUCT With shellinfo .hWnd = Screen.ActiveForm.hWnd .wFunc = FO_RENAME .pFrom = strSourceName .pTo = strTargetName .fFlags = FOF_RENAMEONCOLLISION End With RenameOperation = (0 = SHFileOperation(shellinfo)) End Function
Aufruf:
RenameOperation "H:\Test\Crypter_New.dll", "H:\Test\Crypter_New_1.dll"
Ähnliche Artikel
Weiterlesen...