copyfile.bmx 365 B

12345678910111213
  1. SuperStrict
  2. Local result:Int = CopyFile(BlitzMaxPath() + "\versions.txt", BlitzMaxPath() + "\versions2.txt")
  3. If result = 0 Then
  4. RuntimeError "CopyFile not successful..."
  5. End If
  6. result = RenameFile(BlitzMaxPath() + "\versions.txt", BlitzMaxPath() + "\versions2.txt")
  7. If result = 0 Then
  8. RuntimeError "Rename not successful..." ' as file already exists
  9. End If