Ошибка при проверке существования файла (VBS)

Формулировка задачи:

Здравствуйте, у меня проблема: есть файл, в который я пишу логи своего скрипта. У данного файла выставлены права только на чтение. Я хочу при записи новых логов в данный файл, менять у него права, предварительно проверяя, есть ли такой файл или нет. Делаю я это таким способом:

                    Листинг программы
                
 If oFSO.FileExist(sLogPath) Then
        sLogFile.Attributes = 0
    End If

Тут - то и начинается трабл, так как пишет интерпретатор, что такое свойство объект не поддерживает. буду признателен за помощь. Может, неправильно делаю что-то? Подскажите.

                    Листинг программы
                
 
                            
                        
Sub GetFilesList(FolderName)
 
    Const sLogPath = "C:\Temp\copy_file.txt"
    
    ' Создание объекта класса FileSystemObject
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    
    ' Создание объекта Folder
    Set oFolder = oFSO.GetFolder(FolderName)
    Set oLogFile = oFSO.CreateTextFile(sLogPath, True)
    
    ' Получение коллекции файлов
    Set oFilesCollection = oFolder.Files
    
    ' Получение количества элементов в коллекции
    sResult = sResult & " Скопировано файлов: " & oFilesCollection.Count & vbCrLf
    
    ' Чтение атрибутов каждого файла из коллекции
    For Each oFile in oFilesCollection
        sResult = sResult & oFile.Name & vbTab
        sResult = sResult & oFile.Size & vbCrLf
    Next
    
    Set sLogFile = fso.GetFile(sLogPath)
    
        ' ********* РУГАЕТСЯ НА ЭТИ СТРОЧКИ *****************
    'если файл с логами существует, то изменяем права на доступ
    'If oFSO.FileExist(sLogPath) Then
    '   sLogFile.Attributes = 0
    'End If
        '************************************************   
 
    oLogFile.Writeline(sResult)
    
    'устанавливаем права только на чтение
    sLogFile.Attributes = 1
 
    MsgBox(sResult)
    
    MsgBox "Информация о копировании сохранена в Файл " & sLogPath, vbInformation, "Логирование работы программы"
 
End Sub

Решение задачи: «Ошибка при проверке существования файла (VBS)»

textual
                            Листинг программы 
                        
oLogFile.Writeline(sResult)
oLogFile.Close
Set oLogFile = Nothing
 
Set sLogFile = ofso.GetFile(sLogPath)
sLogFile.Attributes = 1
Set sLogFile = Nothing