Office: (Office 2003) Externe Dateien aus VBA umbenennen

Hallo,
weiß jemand wie man externe Objekte aus VBA heraus umbenennt, genauer deren Dateinamenerweitunerung?
Ich möchte eine *mid in eine *kar umbenennen.
Die Rename-Methode dürfte hier ja nicht funktionieren, weil es sich nicht um ein Datenbankobjekt handelt.
Und kann man die Warnmeldung unterdrücken, dass danach die Datei unbrauchbar sein könnte?
Danke

:)

 

Dim sFile As String
Dim sFileNew As String
sFile = "c:\multimedia\xyz.mid"
sFileNew = Left(sFile, InstrRev(sFile,".")) & "kar"
Name sFile As sFileNew

Ciao, Sascha

 

Hallo Sascha,
das funktioniert, vielen Dank!
Grüße aus Hamburg