@echo off
set Sofon_EXE_Dir=B:\Sofon2014
set Sofon_DB_Dir=B:\Database
Subst B: /d 2>nul:
set Local_Drive=%~d0%
set Local_Dir=%~dp0%
%local_Drive%
cd %Local_Dir%
if exist StartSofon.cmd goto LocalDirOK
goto LocalDirError
:LocalDirOK
if "%CD%" =="" goto NoLocalDir
set Drive_B=%CD%
setx Drive_B "%Drive_B%" >nul:
goto Subst_Drive
:NoLocalDir
Set Drive_B=.
:Subst_Drive
subst B: "%Drive_B%"
B:
cd \
if exist StartSofon.cmd goto SubstDirOK
goto SubstDirError
:SubstDirOK
setx Sofon_EXE_Dir "%Sofon_EXE_Dir%" >nul: