VBA (msoFileDialogFolderPicker) Error

[VBA learner ITG]

Hi all,

I need your advice if possible for some reason I keep getting this error message appearing only on 1 specific macro workbook where it says:

Compile Error:
Cant Find Project or Library

I have the following selected in the reference library and cant understand the cause of the issue!

My Code below for Reference:

Sub Get_Files_test()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
Dim zFilepath As String
Dim MyRow As Integer

MyRow = InputBox("What Row to start at?")
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
    With Application.FileDialog(msoFileDialogFolderPicker)
    
        .AllowMultiSelect = False
        If .Show = False Then Exit Sub
        zFilepath = .SelectedItems(1)
        DoEvents
    End With
Sheets("Control").Range("E2").Value = zFilepath & "\"
Set objFolder = objFSO.GetFolder(zFilepath)
i = MyRow
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
'print file name
Cells(i, 4) = objFile.Name
'print file path
Cells(i, 5) = objFile.Path
i = i + 1
Next objFile
End Sub

 

[GWteB]

Pasted your code in a new workbook. It compiles and runs as intended, so most likely something else is the cause of your issue.

 

[VBA learner ITG]

Pasted your code in a new workbook. It compiles and runs as intended, so most likely something else is the cause of your issue.

hi

Pasted your code in a new workbook. It compiles and runs as intended, so most likely something else is the cause of your issue.

View attachment 45597

Thank you for taking a look. I have unselected and reselected the reference library options and it seems to work.

 

[Fluff]

You could also use

With Application.FileDialog(4)

which means you would not need to set the reference

 

[VBA learner ITG]

You could also use

With Application.FileDialog(4)

which means you would not need to set the reference

Thank you for replying to my post it worked. again you are a great help.

 

[Fluff]

Glad we could help & thanks for the feedback.