rename en file

Det går du ved at flytte den med et nyt navn:
File.Move(old, new)

hvordan laver jeg det i en function

Hvad mener du?

Private Function RenameFile(ByVal OldFileNameWithPath As String, ByVal NewFileNameWithPath As String) As Boolean
        Try
            File.Move(OldFileNameWithPath, NewFileNameWithPath)
        Catch ex As Exception
            MsgBox("Renaming file not possible", MsgBoxStyle.Information Or MsgBoxStyle.Critical)
        End Try
    End Function

Sorry glemte noget

  Private Function RenameFile(ByVal OldFileNameWithPath As String, ByVal NewFileNameWithPath As String) As Boolean
        Try
            File.Move(OldFileNameWithPath, NewFileNameWithPath)
            return true
        Catch ex As Exception
            err.clear
            return false
        End Try
    End Function

If RenameFile("C:\old.bat","C:\New.bat") = true then
      Msgbox("Succed")
else
      MsgBox("Renaming file not possible", MsgBoxStyle.Information Or
endif