Søg kun hidden files og ændre dem til status normal
Dim allfiles,File,nytnavnSet 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 FaxServer & "\" & file.name, FaxServer & "\" & nytnavn
end if
Next
Ovennævnete kode skal omskrives til at kun returner hidden files
for derefter at ændre deres status til normal.
