>Simply get a object reference to the file and change its Name property like this

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
>oFile = oFSO.GetFile((GETFILE("*")))
>? oFile.Name
>oFile.Name = FORCEEXT(oFile.Name, 'DBF')
>? oFile.Name

Naturally, in VBScript you'd get the object references using Set.
>
>Why would you need two parameters?

I need to call this code with the old file name and the new file name. In fact, I need to create a file with a long name in Fox Pro 2.6, so my idea was to write a copy file tool that takes the two parameters.