Library file d:\d\rd\fd3.fll is invalid.

If Type("_WIN64") = "U" && это VFP 9 и ниже
...
Else
    If _WIN64 && это VFPA (x64)
...
    Else && это VFPA (x32)
...
    Endif
Endif

*!* && 25.09.2021 09:56
*!* Тест выполнения команды FoxPro и записи в сетевую папку (в файл Write Test.txt)

With Createobject("Form1")
    .Show(1)
Endwith

Define Class Form1 As Form

    Width = 600
    Started = .F.

    Add Object Label1 As Label With ;
        Caption = "Команда Foxpro:",;
        Top = 20,;
        Left = 20,;
        AutoSize = .T.

    Add Object Text1 As TextBox With ;
        Value = "MessageBox(1)",;
        Top = 40,;
        Left = 20,;
        Width = 400,;
        Height = 30,;
        Visible = .T.

    Add Object Command1 As CommandButton With ;
        Caption = "Выполнить ..",;
        Top = 40,;
        Left = 450,;
        Width = 100,;
        Height = 30,;
        Visible = .T.

    Add Object Label2 As Label With ;
        Caption = "Сетевая папка :",;
        Top = 100,;
        Left = 20,;
        AutoSize = .T.

    Add Object Text2 As TextBox With ;
        Value = "D:\D\BMES\CLIENTS\DESKTOP-E2NV4QV",;
        Top = 120,;
        Left = 20,;
        Width = 400,;
        Height = 30,;
        Visible = .T.

    Add Object Command2 As CommandButton With ;
        Caption = "Записать ..",;
        Top = 120,;
        Left = 450,;
        Width = 100,;
        Height = 30,;
        Visible = .T.


    Procedure Command1.Click()

        Local lcCommand
        lcCommand = Alltrim(Thisform.Text1.Value)

        Try
            *!* Пробуем выполнить команду
            &lcCommand
        Catch
            Messagebox("! Неверная команда ? : " + m.lcCommand, 16)
        Endtry


    Procedure Command2.Click()

        Local lcFolder
        lcFolder = Addbs(Alltrim(Thisform.Text2.Value))

        If Directory(m.lcFolder)
            *!* Пробуем записать в эту папку
            Try
                Strtofile("Тест записи " + Ttoc(Datetime()), m.lcFolder + "Write test.txt" + Chr(13)+Chr(10), 1)
                Wait Window "! Успешно " Timeout 1
            Catch
                Messagebox("! Не удалось записать в папку : " + m.lcFolder, 16)
            Endtry
        Else
            Messagebox("! Некорректная папка ? : " + m.lcFolder, 16)
        Endif


*!*       Procedure Activate() && Раскомментировать для EXE (Read Events)

*!*           If !Thisform.Started
*!*               Read Events
*!*               Thisform.Started = .T.
*!*           Endif

*!*       Procedure QueryUnload() && Раскомментировать для EXE (Clear Events)

*!*           Clear Events
*!*           Cancel


Enddefine

 1. Закройте все приложения, которые используют файлы времени выполнения VFP или VFP.
  2. В проводнике Windows перейдите в каталог установки VFP9 - по умолчанию \ Program Files \ Microsoft Visual FoxPro 9.0.
  3. Выделите существующий файл VFP9 IDE - VFP9.EXE - и нажмите F2, чтобы изменить имя файла. Переименуйте файл в «VFP9.exe.old».
  4. Найдите обновленный файл VFP9.exe в папке, в которую вы извлекли этот пакет.
 Скопируйте его в папку \Program Files\Microsoft Visual FoxPro 9.0.
  5. В проводнике Windows перейдите в папку модуля слияния - \ Program Files \ Common Files \ Merge Modules.
  6. Выделите существующий файл модуля слияния среды выполнения VFP9 - VFP9runtime.msm - и нажмите F2, чтобы изменить имя файла.
 Переименуйте файл в «VFP9runtime.msm.old».
  7. Найдите обновленный файл VFP9runtime.msm в папке, в которую вы извлекли этот пакет.
 Скопируйте его в папку \ Program Files \ Common Files \ Merge Modules.
  8. В проводнике Windows перейдите в папку среды выполнения Visual FoxPro - \ Program Files \ Common Files \ Microsoft Shared \ VFP.
  9. Выделите существующую среду выполнения VFP9r - VFP9r.dll - и нажмите F2, чтобы изменить имя файла.
 Переименуйте файл в «VFP9r.dll.old». Повторите процесс для VFP9t.dll.
  10. Найдите обновленные файлы VFP9r.dll и VFP9t.dll в папке, в которую вы распаковали этот пакет. 
Скопируйте их в папку \Program Files\Common Files\ Microsoft shared \ VFP.
    
  ПРИМЕЧАНИЕ. Чтобы включить обновленные библиотеки DLL в свой дистрибутив, необходимо перестроить все проекты распространения приложений,
 в которых используется модуль слияния VFP9Runtime.msm, и распространить ваш пакет среди клиентов.