CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Rename files (in five ways)
'Using Name Statement:

Public Sub RenameFileUsingName(ByVal sOldFileName As String, ByVal sNewFileName As String)
'Using Name on an open file produces an error. You must close an open
'file before renaming it. Name arguments cannot include multiple-character (*)
'and single-character (?) wildcards.
'If the file sNewFileName already exists then it will produce an error
    Name sOldFileName As sNewFileName
End Sub
 
'Using File Copy:

Public Sub RenameFileUsingFileCopy(ByVal sOldFileName As String, ByVal sNewFileName As String)
'Using Name on an open file produces an error. You must close an open
'file before renaming it. Name arguments cannot include multiple-character (*)
'and single-character (?) wildcards.
'If the file sNewFileName already exists then it will overwrite
    FileCopy sOldFileName, sNewFileName
End Sub
 
'Using FSO (Method 1):

Public Sub RenameFileUsingFSO(ByVal sOldFileName As String, ByVal sNewFileName As String)
'Set a reference to "Microsoft Scripting Runtime"
'If the file sNewFileName already exists then it will overwrite
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    FSO.CopyFile sOldFileName, sNewFileName
    Set FSO = Nothing
End Sub
 
'Using FSO (Method 2):

Public Sub RenameFileUsingFSO(ByVal sOldFileName As String, ByVal sNewFileName As String)
'Set a reference to "Microsoft Scripting Runtime"
'If the Folder sNewFolderName already exists then it will overwrite
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    FSO.GetFile(sOldFileName).Name = Mid$(sNewFileName, InStrRev(sNewFileName, "\") + 1)
    Set FSO = Nothing
End Sub
 
'Using API:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
    (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
     ByVal bFailIfExists As Long) As Long
 
Public Sub RenameFileUsingAPI(ByVal sOldFileName As String, ByVal sNewFileName As String)
    Call CopyFile(sOldFileName, sNewFileName, False)
End Sub