Путь к файлу

[veroman]

Пользователь в диалоговом окне открывает текстовый файл, нужно перехватить путь этого файла для последующей работы с ним.

Код: Выделить всё

    Dim fd As FileDialog

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
   
    With fd
              If .Show = -1 Then

            For Each vrtSelectedItem In .SelectedItems
            MsgBox "The path is: " & vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With


Вот так я могу печатать путь к файлу, но если я пишу например
Set f = fso.GetFile("& vrtSelectedItem") он не может найти файл, как мне быть?

[RayShade]

Set f = fso.GetFile(vrtSelectedItem)

[veroman]

Код: Выделить всё

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim f As Scripting.File
Set f = fso.OpenTextFile(vrtSelectedItem, 8, TristateFalse)


Ругается на последнюю строку Type mismatch

[RayShade]

Хм. Пропреть по умолчанию значит цеплять не хочет... Ну напиши тогда ему vrtSelectedItem.name что ли

[veroman]

а еще такой вопрос, у меня файл текстовый в досовской кодировке, как мне его открыть в нормальной кодировке (нужно данные импортировать в таблицу)

[RayShade]

Если только перекодировать в памяти, а потом обратно записать в ANSI уже. Перекодировка делается через

Код: Выделить всё

Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long


[veroman]

что-то я ничего не понял.....можно поподробнее обьяснить? Как конкретно мне пересобачить файл из досовкой кодировки

[RayShade]

1. Читаешь файл построчно

2. Каждую строку после чтения перекодируешь и добавляешь в коллекцию

3. Записываешь содержимое клоллекции обратно в файл.