Я хочу записать содержимое файла .csv в строку в Visual Basic 6. Что не так с моим кодом?

Question

Вот мой код. Файл abc.csv существует и заполнен данными.

    Dim strContent As String
    Dim int As Integer      

    Open "C:\abc.csv" For Input As #int 

        strContent = Input(LOF(int), int)

    Close #int

Ошибка, которую я получаю, состоит в том, что код работает так, как будто файл никогда не существовал ... но он существует в каталоге C: \ drive. Я убедился в этом. C: \ abc.csv есть .... Чего мне не хватает?

Answer 1

Попробуйте

int = FreeFile
Open "C:\abc.csv" For Input As #int 

Answer 2

У меня нет среды VB6 для тестирования, но я думаю, что вы хотите попробовать это так:

Dim strContent As String
Dim int As Integer      
int = FreeFile
Open "C:\abc.csv" For Input As #int 
strContent = Input(LOF(int), #int) '<-- make sure to put the # on the 2nd param
Close #int

Подробнее см. Здесь (в разделе Использование метода Open в Classic VB):
http://www.vbknowledgebase.com/?Id=23&Desc=Read-Text-File-into-string-VB6