Unable to import CSV data from file on AppData path

[JRyman]

Describe the bug
I have data stored in a subdirectory of AppData e.g., C:\Users\user\AppData\Roaming\project\data.csv that I cannot load normally.

This is the snippet that errors,

    Set csv = New CSVinterface
    With csv.parseConfig
        .path = PROJECT_PATH & "data.csv"
        .dialect.fieldsDelimiter = ","
        .dialect.recordsDelimiter = vbCrLf
    End With
    With csv
        .ImportFromCSV .parseConfig
        .DumpToSheet SheetName:=DATA_SHEET
    End With

I've sourced the error to the FolderExists function within CSVTextStream class. It looks like the detection method here does not work for system folders. FolderExists("C:\Users\user\AppData") always returns False.

Private Function FolderExists(ByVal filePath As String) As Boolean
    FolderExists = CBool(LenB(Dir(filePath, vbDirectory)))
End Function

To Reproduce
Steps to reproduce the behavior:

1. Add csv file to C:\Users\user\AppData\Roaming\project\data.csv
2. Attempt ImportFromCSV method of CSVinterface
3. See error

Expected behavior
Data is imported

Desktop (please complete the following information):

• OS: 11
• Host Application: Excel
• Version: Version 2502 (Build 18526.20546 Click-to-Run)

[ws-garcia]

Thanks for your detailed report on the issue. We will check it out soon. As a note, I face a similar issue with other VBA solution on Windows 10: VBA was not allowed to save file in a given folder. My issue resolved by moving the entire file set to a new location.

[ws-garcia]

After testing your problem, I can confirm that CSV Interface is not capable of handling hidden subfolders. If you go to the properties of the AppData folder, uncheck the “Hidden” option, and apply the changes only to the current folder, you will be able to import the data as expected. This code works for me after applying the discussed solution:

Sub JRymanISSUE()
    Dim CSV As CSVinterface
    Dim PROJECT_PATH As String
    Dim DATA_SHEET As String
    Dim ps As String
    
    ps = Application.PathSeparator
    DATA_SHEET = "Sheet1"
    PROJECT_PATH = Environ("APPDATA") & ps & "project" & ps
    Set CSV = New CSVinterface
    With CSV.parseConfig
        .path = PROJECT_PATH & "data.csv"
        .delimitersGuessing = True
    End With
    With CSV
        .ImportFromCSV .parseConfig
        .DumpToSheet SheetName:=DATA_SHEET
    End With
End Sub

Edit:

I'll fix the code base, use the above solution if you are in hurry in a testing phase. The issue will be closed with the proper solution.

[ws-garcia]

Download the latest release and update your codebase. Enjoy and thanks for be part of our community!