' спрашиваем у пользователя номер дела
fname=InputBox("Введите номер БЕЗ ПРЕФИКСА 'А44' и БЕЗ ГОДА, в формате: 'НОМЕР'. Например, дело '1234'","Звукозапись","")
' спрашиваем у пользователя год дела
fgod=InputBox("Введите год дела в формате: 'ГГГГ'. Например, год 2012","Звукозапись","2012")
' спрашиваем у машины дату и форматируем для имени файла
sdate = replace(formatdatetime(now(),2),".","-") & "_" & replace(formatdatetime(now(),4),":","-")
fname="А44-" & fname

' путь куда хранить записи у пользователя должен быть
pname="c:\АУДИОЗАПИСИ\"

' путь куда хранить записи на сервере должен быть и зависит от параметров
dpname="c:\000\АУДИОЗАПИСИ\"

' играемся с переменными
strDirectory = pname & fgod & "\" & fname & "-" & fgod & "\"
strDirectory1 = dpname & fgod & "\" & fname & "-" & fgod & "\"
fname=fname & "-" & fgod & "_" & sdate
fsname=strDirectory & fname

' создаем если их нет папки с именем номера дела у пользователя и на сервере
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strDirectory) Then
   Set objFolder = objFSO.GetFolder(strDirectory)
Else
   Set objFolder = objFSO.CreateFolder(strDirectory)
End If
If objFSO.FolderExists(strDirectory1) Then
   Set objFolder = objFSO.GetFolder(strDirectory1)
Else
   Set objFolder = objFSO.CreateFolder(strDirectory1)
End If

' запускаем программу звукозапись с прописанным именем файла
set WshShell = WScript.CreateObject("WScript.Shell")
sReturn = WshShell.Run("c:\Windows\winsxs\amd64_microsoft-windows-soundrecorder_31bf3856ad364e35_6.1.7600.16385_none_fafe374a4c946066\SoundRecorder.exe /file " & fsname, 1, TRUE)

' играемся с переменными
fsname=fsname & ".wma"
fname=fname & ".wma"

' копируем запись на сервер и говорим пользователю куда
objFso.CopyFile fsname, strDirectory1 & fname, TRUE
wscript.echo "Аудиозапись судебного заседания " & fname & " сохранена в папке " & strDirectory & " и скопирована на сервер в папку " & strDirectory1