File System Object late binding

Question

I have problem with File System Object late binding. This is my code:

Dim WordA As Object 'aplikacja programu Word
Dim PlikW As Object 'plik Worda
Dim Nazwa As Object 'obszar Worda ze zdefiniowaną nazwą
Dim Zakres As Range 'zakres danych używany do wiadomości
Dim NrRaportu As Integer 'Numer tworzonego raportu
Dim Katalog As String 'pełna nazwa katalogu, w którym zapisywane są wiadomości
Const Raport_szablon = "Raport_szablon.docx" 'zazwa pliku z szablonem
Dim fso As Object 'Objekt FileSystemObject

'1. Wczytanie danych
Set Zakres = Range("R2:Z" & Cells(Rows.Count, "R").End(xlUp).Row)
Katalog = ThisWorkbook.Path & "\Raporty"
Set fso = CreateObject("FileSystemObject")
If Not fso.FolderExists(Katalog) Then _
    fso.CreateFolder (Katalog)

and I get a message that

"ActiceX component can't create object"

.

You need Set fso = CreateObject("Scripting.FileSystemObject") rather than simply Set fso = CreateObject("FileSystemObject") — John Coleman
– John Coleman, Commented May 11, 2018 at 21:00
@JohnColeman Apparently not (although it's not the culprit here). — GSerg
– GSerg, Commented May 11, 2018 at 21:17

Thomas Ludewig · Accepted Answer · 2022-01-14 13:43:36Z

0

You need also to use the reference manger and add the dll / ocx to the project. c:\windows\system32\wshom.ocx if i remember right

answered Jan 14, 2022 at 13:43

Thomas Ludewig

7259 silver badges18 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

File System Object late binding

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related