Help with renaming part of file

[Paul_Hossler]

Are you using VBA or Windows Scripting Host?

It looks like you're using WSH (the .VBS), but the statements are VBA so I'm not surprised it isn't working

You were also missing some path seperators

If you want to use WSH, then use the FileSystemObject and the .Files collection

Some thing like this

Dim strFolder
Dim strFile
dim oFSO, oFiles, oFile

    strFolder = "C:\Users\Daddy\Downloads\test\"
    
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    For Each oFile in oFSO.GetFolder(strFolder).Files
        strFile = oFile.Name
        If InStr(strFile, "Model (1)") > 0 Then
            oFSO.MoveFile strFolder & strFile, strFolder & Replace(strFile, " Model (1)", "")
        End If
    Next