Запись во внешний файл с использованием ACCESS 97

Question

Я использую классический VBA и у меня возникают проблемы при создании внешнего файла. В основном используя таблицу, я хочу создать стандартный текстовый файл. Я уже нашел способ проверить, существует ли файл и уничтожить его.

If Dir("%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim") <> "" Then
    Kill "%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim"
    Else
    End If

а также способ написать все нужные мне строки

Open "%USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim" For Append As #1
    Print #1, "1100258698,4"
Close #1

а также нашел способ запустить Firefox с файлом imacros

Проблема IS:

Я НЕ МОГУ СОЗДАТЬ файл. Я пытался использовать

Shell ("cmd.exe")
SendKeys ("dir /s/b %USERPROFILE%\Documents\iMacros\Macros\*.itwontfindanything > %USERPROFILE%\Documents\iMacros\Macros\CriarGDC.iim")

Но у меня проблемы с разрешениями - Windows 7 не позволяет мне это делать. Многие люди говорили мне, что команда

Sub WriteFile(ByVal FileName As String, ByVal Contexto As String)
  Dim fnum%
  fnum = FreeFile()
  Open FileName For Output As fnum
  Print #fnum, Contexto
Close #fnum
End Sub

Должно работать, но это не так! Эмм ... Помощь.

Answer 1

При предоставлении вашей WriteFile процедуре FileName , которая включает переменную окружения (например, "% USERPROFILE% \ Documents \ foo.txt"), VBA выдает ошибку # 76,' Путь не найден".

Используйте функцию Environ () , чтобы разрешить переменную среды перед ее передачей WriteFile .

WriteFile Environ("USERPROFILE") & "\Documents\iMacros\Macros\CriarGDC.iim", "some text"