VBA FileSystemObject, Rename fil tillatelse til å overskrive
Etter mye feiling har jeg greid å gi alle filer medcsv-endelse txt-endelse.
Dim fso As FileSystemObject
Dim fsoFld As Folder
Dim fsoFil As File
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFld = fso.GetFolder(sCsvFld)
For Each fsoFil In fsoFld.Files
If UCase(Right(fsoFil.Name, 3)) = "CSV" Then
fsoFil.Name = Left(fsoFil.Name, Len(fsoFil.Name) - 3) & "txt"
End If
Next
