HOW CHECK FILE.NAME HAS EXISTS OR NOT IN FOLDER,if not exists then copy

I HAVE CODING LIKE this,using workbook open ,if file in folder has copy or file has exists ,for next time not to calculate or not copy again
else if in folder contain new file ,every workbook_open new file in sheet1.usedrange copy to resume file sheets("REKAP")
HOW TO do check up file exists or not exists
i have coding ,every file in folder has copy ,i am save filename in sheets.rekap columns("O")
how to do thank for attention

Private Sub Workbook_Open()
Dim fso As Object, f As Object, sf As Object, ssf As Object, myFile As Object
Dim WB As Workbook, j As Long, n As Long, i As Long, x(), mytable, SP
Dim s As String, temp As String, rg As Range
Set fso = CreateObject("Scripting.filesystemObject")
Set f = fso.GetFolder("C:\Users\wawang-pc\Documents\Locked\te\fileku\Gabungfile")
'GANTI PATH SESUAIKAN
 With Sheets("REKAP")
     If Not rg Is Nothing Then Set rg = Range("O1", .[O100000].End(3))
     If Not rg Is Nothing Then
         SP = Split(Join(Application.Transpose(rg.Value), ","), ",")  ' i want check up is file has copy or not,if in folder there are new file then copy range from new file
     Else
         GoTo n1
     End If
 End With
Application.ScreenUpdating = False
For Each sf In f.SubFolders
      Set ssf = sf
    For Each myFile In ssf.Files
     If myFile.Name Like "*DIKLAT*" Then
        For n = 0 To UBound(SP)
            If Not fso.FileExists(SP(n)) Then         ' IF FILE DOESN EXISTS IN FOLDER THAN COPY RANGE  FROM NOT EXISTS FILE
n1:
                    j = j + 1
                    ReDim Preserve x(1 To j)
                    Set WB = Workbooks.Open(SP(n), False)
                    With WB.Sheets("REKAP")
                         mytable = .UsedRange.Offset(1).Value
                          x(j) = mytable: mytable = ""
                          s = IIf(s = "", myFile, s & "," & myFile)         's = path of every file and save to range
                         .Parent.Close savechanges:=False
                    End With
             Else
               GoTo nn
             End If
           Next n
   End If
 
Next myFile, sf
For i = 1 To UBound(x)
   With Sheets("REKAP")
    Range("A100000").End(3)(2).Resize(UBound(x(i)), UBound(x(i), 2)) = x(i)
   End With
Next i
    With Sheets("REKAP")
       .Cells(Rows.Count, "O").End(3)(2).Resize(n) = Split(s, ",")   'SAVE PATH TO columns O
    End With
    Erase x
nn:
    MsgBox "Tidak ada tambahan file Baru di folder ", 64: Exit Sub
    Exit Sub: Application.ScreenUpdating = True
End Sub

this other code but still can copy if has exists

Sub ff()
Dim d As Object, fso As Object, wb As Workbook, rg As Range, r As Range
Set d = CreateObject("scripting.dictionary")
Set fso = CreateObject("scripting.Filesystemobject")
Dim t, a(), j As Long
For Each f In fso.getfolder("C:\Users\wawang-pc\Documents\Locked\te\fileku\Gabungfile\DATA").Files
  d(f) = ""
Next f
If Not rg Is Nothing Then
   Set rg = Columns(12).SpecialCells(2)
   For Each r In rg
      If d.EXISTS(r.Value) Then
       MsgBox d(r.Value)
       d.Remove r.Value
      Else
         For Each E1 In d
           Set wb = Workbooks.Open(E1, False)
           j = j + 1
           ReDim Preserve a(1 To j)
           a(j) = wb.Sheets("REKAP").UsedRange.Offset(1)
           wb.Close False
           Cells(Rows.Count, 12).End(3)(2) = E1
           MsgBox "file exists "
         Next E1
      End If
   Next r
 
Else
        For Each E In d
           Set wb = Workbooks.Open(E, False)
           j = j + 1
           ReDim Preserve a(1 To j)
           a(j) = wb.Sheets("REKAP").UsedRange.Offset(1)
           wb.Close False
           Cells(Rows.Count, 12).End(3)(2) = E
           MsgBox "file not exists "
        Next E
     
End If

Dim i As Long
For i = 1 To UBound(a, 1)
    With Sheet1
       .Cells(Rows.Count, 1).End(3)(2).Resize(UBound(a(i), 1), UBound(a(i), 2)) = a(i)
    End With
Next i
Erase a: j = 0
End Sub

See next code and file attached

Option Explicit
Sub Main()
Dim WkP As String
Dim WkF As String

    WkP = Range("WkP")
    WkF = Range("WkF")
    If (TestFolderExist(WkP)) Then
        MsgBox (" Folder " & WkP & "    exist")
    Else
        MsgBox (" Folder " & WkP & "    DO NOT  exist")
    End If
    If (TestFileExist(WkP, WkF)) Then
        MsgBox (" Folder " & WkF & "    exist")
    Else
        MsgBox (" Folder " & WkF & "    DO NOT  exist")
    End If

End Sub


Function TestFileExist(WkP As String, WkF As String) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
    TestFileExist = fso.FileExists(WkP & "\" & WkF)
End Function


Function TestFolderExist(WkP As String) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
    TestFolderExist = fso.FolderExists(WkP)
End Function

PCI problem is more complek any multiple path
this is myfile
folder DATA have many file ,name of file is 1.Diklat *.... ,2.diklat *...
different name but name of file have unique "Diklat"
for example in Folder "data" there are 2 file name
1.diklat RKP
2.diklat rst
----first run coding ,all file in folder "DATA" in every filename have sheets("REKAP") Copy to workbook.destination name "DATA GABUNGAN" in sheets("REKAP")
In folder "GABUNGAN"
then i am copy all path in folder "DATA" TO destination file "DATA GABUNGAN" Sheets("REKAP") columns(O)
---- second run coding (next time next week,or next day)
- if in folder DATA file name
1.diklat RKP
2.diklat rst
NOT TO COPY Because has copy in first run coding,
and in file "DATA GABUNGAN" Sheets("REKAP") columns(O) is exists path or has copy

- for next if in folder DATA add file example become 3 file
1.diklat RKP
2.diklat rst
3.diklat New add
while coding to run filename 3.diklat new add will to copy filename "DATA GABUNGAN" and (1.diklat RKP, 2.diklat rst) not to copy because has exist in columns(O) or has copy in first
run coding
I HOPE you understand my mind


TRY USING my code in to myfile
but can not different has copy or not

Sub ff()
Dim d As Object, fso As Object, wb As Workbook, rg As Range, r As Range
Set d = CreateObject("scripting.dictionary")
Set fso = CreateObject("scripting.Filesystemobject")
Dim t, a(), j As Long
'------FIRST SAVE ALL FATH (FILENAME) TO DICTIONARY
For Each f In fso.getfolder("C:\Users\wawang-pc\Documents\Locked\te\fileku\Gabungfile\DATA").Files
  d(f) = ""
Next f
'------SECOND REMOVE PATH IN DICTIONARY IF HAS EXIST IN COLUMNS(15)
If Not rg Is Nothing Then
   Set rg = Columns(15).SpecialCells(2)
   For Each r In rg
      If d.EXISTS(r.Value) Then
       MsgBox d(r.Value)
       d.Remove r.Value
      End If
    Next r
End If
'------THIRD ONLY NOT EXIST FATH IN FOLDER AND COLUMN 15 TO COPY
For Each e In d
 If Len(e) Then
           Set wb = Workbooks.Open(e, False)
           j = j + 1
           ReDim Preserve a(1 To j)
           a(j) = wb.Sheets("REKAP").UsedRange.Offset(1)
           wb.Close False
           Cells(Rows.Count, 15).End(3)(2) = e
 Else
           MsgBox "NOT FILE PATH TO COPY", 64: Exit Sub
 End If
Next e

Dim i As Long
For i = 1 To UBound(a, 1)
    With Sheets("REKAP")
       .Cells(Rows.Count, 1).End(3)(2).Resize(UBound(a(i), 1), UBound(a(i), 2)) = a(i)
    End With
Next i
Erase a: j = 0
End Sub