rename an external file

[rorymurray]

Does anyone know how to use access to rename a file. I basically want to change something from "filename.650" to "filename.txt"

 

[JohnYingling]

Name oldpathname As newpathname

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[rorymurray]

So I would do something like:

sub change_name(path as string)

'Remove the "650" from the end

dim newpath as string

newpath = left(path,(len(path-3)) & "txt"

Name path as newpath

end sub


Is this correct?

 

[JohnYingling]

No
sub change_name(path as string)
'Remove the "650" from the end
dim newpath as string
'***newpath = left(path,(len(path-3)) & "txt"
if Len(path) >= 3 then ' bulletproof it
newpath = left(path,len(path)-3) & "txt"
Name path as newpath
End if
end sub

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[THoey]

Don't forget to add the "." before the TXT Terry M. Hoey

 

[rorymurray]

Thanks guys, it works well now....