> -- Борис Рюмшин писал(а):
> А что за скрипт?

"динамический" /Use

в некой папке (ниже root) можно иметь несколько вторичных папок,
скрипт открывает диалог, можно выбрать вторичную папку, в которой и работать.

## Код:
```
' adapted by FVT 2005-08-28
'------------------------------------------------------------ browse.vbs ----
' Author: Bernhard Treutwein BdT(at)wildwein de
' based on a hotline answer of the german computer magazin c't, issue 9/2004, p. 184
' original script and copyright available at: ftp://ftp.heise.de/pub/ct/listings/0409-184.zip
' modified with help of the original author Hajo Schulz [hajo.schulz@heise.de]
' Last change: 28-Apr-2004
' ------specific directories changed by FVT as needed.

Option Explicit
Dim sh, app, fldr
Dim prg, arg, mypath, root
Dim i

Set sh = WScript.CreateObject("WScript.Shell")
Set app = Wscript.CreateObject("Shell.Application")

prg = "C:\!BlackBox\exe\blackbox15i21base\BlackBox.exe"  ' Define prg as the full path name of your BlackBox installation
root = "C:\!BlackBox\!projects\"  ' Define root as the full path name of the root directory of your BlackBox Projects

set fldr = app.BrowseForFolder(0, "Please choose project folder" & CHR(10) & CHR(10) & "Cancel uses Blackbox Program directory", 65, root)
If fldr Is nothing then ' Cancel pushed, use default
  mypath = ""
 Else
  mypath = fldr.Self.Path
End If

If mypath = "" Then
  sh.Run prg, 1, false
 Else
'  sh.CurrentDirectory = "C:\!BlackBox\!projects\"
'  mypath = "C:\!BlackBox\!projects\"
  sh.CurrentDirectory = mypath
  sh.Run prg & " " & "/use " & mypath, 1, false
End If
```
