Gennemløb folder og omdøb filer

Prøv sådan her. Der er ikke en rename, så man bruger movefile:

<%
strmappe = "./folder"
Set fso=server.createobject("scripting.filesystemobject")
Set allfiles=fso.getfolder(server.mappath(strmappe))

For each file in allfiles.files
  if fso.GetExtensionName(file.name)="txt" then
    nytnavn = Left(file.name,len(file.name)-3) & "sub"
    fso.MoveFile Server.MapPath(strmappe & "/" & file.name), Server.MapPath(strmappe & "/" & nytnavn)
  end if 
Next
%>

Set fso=server.createobject("scripting.filesystemobject")
    Set allfiles=fso.GetFolder(FaxServer)
    For each file in allfiles.files
          if fso.GetExtensionName(file.name)="ERR" then
            nytnavn = Left(file.name,len(file.name)-3) & "sub"
            fso.MoveFile Server.MapPath(FaxServer & "/" & file.name), Server.MapPath(FaxServer & "/" & nytnavn)
          end if 
    Next

FaxServer="c:\Faxdir"
Eller
FaxServer="\\server\ddrev\faxdir"

Den melder fejl i fso.movefile ?

Ok når du har skrever "c:\faxdir" i variablen så skal fso.Movefile se sådan her ud uden server.mappath

fso.MoveFile FaxServer & "\" & file.name, FaxServer & "\" & nytnavn

Ok det virker