Каким образом можно использовать vbs скрипт для получения пути к песочнице (SandBox) ThinApp?

Как я могу достать путь к песочнице в собранном пакете с помощью ThinApp, чтобы проверить наличие определенного файла во время запуска программы и скопировать его туда, если файла нет?
  • 20 сентября 2023 г. 13:57
Ответы на вопрос 1
Для получения пути к песочнице ThinApp можно использовать следующий VBScript:

```vbscript
Set fso = CreateObject("Scripting.FileSystemObject")

' Путь к песочнице ThinApp (AppData)
sandboxPath = fso.GetSpecialFolder(26) & "\..\..\AppData\Roaming\ThinApp"

' Проверка наличия нужного файла
fileToCheck = sandboxPath & "\путь\к\файлу.txt"
If fso.FileExists(fileToCheck) Then
    ' Файл существует, выполните необходимые операции
Else
    ' Файл не существует, скопируйте его в песочницу ThinApp
    fileToCopy = "C:\путь\к\искомому\файлу.txt"
    fso.CopyFile fileToCopy, fileToCheck
End If
```

В этом скрипте мы используем объект `FileSystemObject` для взаимодействия с файловой системой. Сначала мы определяем путь к песочнице ThinApp, используя `GetSpecialFolder(26)`, который представляет папку `AppData`. Затем мы проверяем наличие нужного файла в песочнице. Если файл не существует, мы копируем его из другого места в песочницу ThinApp.

Обратите внимание, что вам необходимо заменить пути к файлам (`fileToCheck` и `fileToCopy`) на соответствующие значения в вашем случае.
Похожие вопросы