Checking Set of Files exist in the specific Path

Hi everyone,

Seeking some help on below;

i have created a Userform with Listbox, Textbox & Lable

the Listbox shows the list of files are folder based on the path mentioned in Textbox.

the Dir Path is well restricted and Textbox is not Visible so that user cannot go to desired path.

Now in a Sheet (eg: Sheet7(i + 1, 1) ) i have list of Mandatory files a Folder should have to consider as Completed.

if those files exist no matter what extension the Lable caption as Complete else Lable Caption as InComplete.

Private Sub Label17_Click()
 Dim FilePath As String
 Dim oFile As String
 Dim i As Integer
    FilePath = ""
    On Error Resume Next
    FilePath = dir(pdir.Text)
    On Error GoTo 0
    For Each oFile In FilePath
    Sheet7.Cells(i + 1, 1) = oFile
    i = i + 1
    
    If oFile = "" Then
        MsgBox "File doesn't exist", vbOKOnly
    Else
        MsgBox "File exist", vbOKOnly
    End If
    
Next oFile

End Sub

Can some one Please Help me on this.

Thanks alot.

Quote from Carim

Hi,

To test if file exists, you can use following UDF

Code

Function FileExists(FileName As String) As Boolean
     FileExists = (Dir(FileName) > "")
End Function

Hope this will help

Display More

Appreciate if you can explain how this works please....

Quote from Carim

When using the function FileExists()

You need to use the full file name (including the path) inside the function to define the variable FileName

As a result, you will get either True or False ...

Hope this clarifies

Display More

is My Loop code correct.

i need to check each file name against the sheet cells in a column.

Quote from Carim

As explained in message #4 you do need to use the full file name (including the path)

Hope this will help

How do i define this . should is include FileSystemObject

Private Sub Label17_Click()
 Dim fso As New FileSystemObject
 Dim FilePath As String
 Dim oFile As String
 Dim i As Integer
 Dim c As Range
 Dim rng As Range
 Set rng = Sheet7.Range("A2:A20")
 FilePath = ""
 On Error Resume Next
 FilePath = dir(pdir.Text)
 On Error GoTo 0
  For Each c In rng
 If fso.FileExists(c) Then
    MsgBox "File " & c & " Exist", vbInformation
 Else
    MsgBox "File " & c & " Does not Exist", vbInformation
 End If
 Next c
End Sub

Due to File Extension, is says file Does not Exist.

Due to File Extension, is says file Does not Exist.

Even with the File Extension it doesn't identify. Kindly Help

i achieved the using below code, but it doesn't scan the sub folders, anything you can think of to make it check sub folder also

Dim fso As New FileSystemObject
Dim rng As Range
Dim c As Range


    '----------------------------------------------
    Set rng = Sheet7.Range("A2:A11")
    For Each c In rng

        If dir(pdir.Text & "*" & c & "*") = "" Then
            RFiles.ListBox4.AddItem c
        End If

    Next c
    RFiles.show
    '----------------------------------------------
    'pdir.Text have the Path and gets updated with Listbox1.value on double click on ListBox1
    'Within the specific Folder Files that does not exist are Added to ListBox4 placed in Userform RFiles.