Rename File Atau Folder

Hai... Ini ada sedikit Source Code untuk Rename File Folder,
Langsung saja ini codenya, Semoga bermanfaat.

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Type SHFILEOPSTRUCT     hwnd As Long     wFunc As Long     pFrom As String     pTo As String     fFlags As Integer     fAborted As Boolean     hNameMaps As Long     sProgress As String End Type  Const FO_DELETE = &H3  Const FO_RENAME = &H4  Const FO_COPY = &H2  Sub RenameFile() Dim NewFileName As String Dim TitleFile Dim PathFile 'On Error Resume Next TitleFile = "Baru" PathFile = "D:\Lama" NewFileName = InputBox("Are you sure want rename File " & """" & TitleFile & """?", _         "Rename File", PathFile) Dim SHDirOp As SHFILEOPSTRUCT     With SHDirOp         .wFunc = FO_RENAME         .pFrom = "D:\BARU"         .pTo = NewFileName     End With SHFileOperation SHDirOp End Sub  Private Sub Form_Load()     RenameFile End Sub