These filenames consist of a 6-character product code, which is always correct and there is only one filename per product, and then a description that isn't valid.

I have the correct product descriptions and product codes in a database. So I want to rename:

[Product] & [*.*] to [Product] & " - " & [Product_Description]

I was thinking about doing a filesearch for like "AB8515", and then retriving the filename from there to use the NAME statement, but I'm not sure of the code for it all. With the NAME statement, it appears I always have to specify the full filename to rename.

I owuld use the scripting.filesystem object. With that you can check the name, including the first n number of characters, and rename it after finding it. dd a reference to Microsoft Scripting runtime, and dim fs as new scripting.filesystem Will give you a lot of options. Hope this helps,

For Each ObjF1 In objFiles
If Left(ObjF1.Name, 9) = (Me!Productcode) And Right(ObjF1.Name, 3) = "zip" Then
On Error GoTo CannotRename
Name Me!FullDirectory & ObjF1.Name As Me!FullFileName
FoundIt = True
End If
Next