Get Filename of workbook in same folder

I need to get the filename of a workbook in the same folder, but I'm running into problems using ThisWorkbook.Path to define the folder structure.

I've tried the below, but I get

>Runtime Error 52 - Bad file name or number

Sub WorksheetImport()

Dim vWBFolder As String
Dim vWBName As String

vWBFolder = ThisWorkbook.Path
vWBName = Dir(vWBFolder & "*.csv*")

MsgBox vWBName

End Sub

It works if I define the folder manually e.g. - vWBFolder = "D:\\TestFolder\\"

The below answer is correct. Adding the \ should have fixed the issue.

Looks like my organization recently started backing up certain folders to OneDrive. This appears to have caused the error. Once the folder was excluded from OneDrive backup it worked as expected.

ThisWorkbook.Path doesn't have a slash at the end of it, so you just need to add a slash:

vWBName = Dir(vWBFolder & "\" & "*.csv*")

    Could you please use like this

Sub WorksheetImport()
    
    Dim vWBFolder As String
    Dim vWBName As String
    
    
    Path = ThisWorkbook.Path & "\"
    
    folderPath = Application.ActiveWorkbook.Path & "\"
    
    
    'vWBFolder = ThisWorkbook.Path
    vWBName = Dir(folderPath & "*.csv*")
    
    MsgBox vWBName
    
    End Sub