Добрый день!

Подскажите есть ли в 1С метод для получения серверного (UNC) пути к папке?

К какой папке?

(1) Которую пользователь выбрал через диалог выбора файла
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
но нужно не Y:\.... а \\server_name\share_name[\path]

Тут вроде решили: https://forum.sys-adm.in/index.php?topic=1345.0
Только я скрипта не вижу....

http://www.sql.ru/forum/929591/put-k-setevoy-papke

http://www.sql.ru/forum/268437/kak-poluchit-imya-servera?mid=2417222#2417222

А в 1С нету такого метода.

(4) очень жаль я так надеялся

(5) что мешает через скрипт сделать?

(6) Если честно пока не знаю как это сделать через скрипт

Судя по всему что-то такое
    Попытка
        Script = Новый COMОбъект("MSScriptControl.ScriptControl");
        Script.Language = "javascript";
        Script.Timeout    = -1;
        Время = Script.Eval("var d = new Date(); d.getTime()");
    Исключение
        Время = ТекущаяДата();
    КонецПопытки;    
    
    Возврат Время;

Только пока не понятно что тут нужно написать

var sb = new StringBuilder(512);
var size = sb.Capacity;
var error = Mpr.WNetGetConnection("Z:", sb, ref size);
if (error != 0)
    throw new Win32Exception(error, "WNetGetConnection failed");
var networkpath = sb.ToString();

что-то типа такого наверно надо, просто так не получить

(11) Текст скрипта ребята подсказали выше, пока не знаю как это в 1С приладить

Sub Driveinfo()
    Dim drvpath
    drvpath = "z:"
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvpath))
    s = "Drive " & UCase(drvpath) & " - "
    s = s & d.VolumeName & vbCrLf
    s = s & d.sharename & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
End Sub

(3) Там зарезаться надо, и скрипт видно будет.

(13) +зарегатся.

(13) :) Я знаю. :)
Я ТС подсказал, пусть он и режется. :)

(12) ох е-мое, это ж обчный cmd "NET USE Z:"

да и выдает как надо

Скрипт в (12) не заработал, или я что-то не так делаю, подскажите если кто в курсе

  Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
  Скрипт.language="VBscript";
  
      Текст =
        "Sub Driveinfo()
        |Dim drvpath
        |drvpath = ""Y:""
        |Dim fs, d, s
        |Set fs = CreateObject(""Scripting.FileSystemObject"")
        |Set d = fs.GetDrive(fs.GetDriveName(drvpath))
        |s = ""Drive "" & UCase(drvpath) & "" - ""
        |s = s & d.VolumeName & vbCrLf
        |s = s & d.sharename & vbCrLf
        |s = s & ""Free Space: "" & FormatNumber(d.FreeSpace / 1024, 0)
        |s = s & "" Kbytes""
        |MsgBox s
        |End Sub";
  
  Скрипт.AddCode(Текст);    
  Текст = Скрипт.Run("Mess");

(3) Вот такой скрипт работает, а как из него получить значения в 1С можете подсказать?

  Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
  Скрипт.language="VBscript";
  
      Текст =
        "Sub Driveinfo()
        |Dim drvpath
        |drvpath = ""Y:""
        |Dim fs, d, s
        |Set fs = CreateObject(""Scripting.FileSystemObject"")
        |Set d = fs.GetDrive(fs.GetDriveName(drvpath))
        |s = ""Drive "" & UCase(drvpath) & "" - ""
        |s = s & d.VolumeName & vbCrLf
        |s = s & d.sharename & vbCrLf
        |s = s & ""Free Space: "" & FormatNumber(d.FreeSpace / 1024, 0)
        |s = s & "" Kbytes""
        |MsgBox s
        |End Sub";
      
  Скрипт.AddCode(Текст);    
  Текст = Скрипт.Run("Driveinfo");

все как всегда просто до нельзя...
пора на отдых

ф = новый COMОбъект("Wscript.Network");
ц = ф.EnumNetworkDrives();
для т = 0 по ц.count() -1 цикл
  сообщить(ц.item(т));
КонецЦикла;

Можно задать вопрос - а чего мы вообще хотим ?
Если мы хотим расшарить папку, то нужно вызывать одну функцию.
Если мы хотим подключиться к машине с сетевой папкой - другую.
А если мы хотим узнать, кто подключен, третью.

И что мы хотим ?

У меня вот так получилось, всем спасибо!

Функция СетевоеИмяДиска(ИмяДиска)
    
    СетевоеИмяДиска = "";
    Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
    Скрипт.language="VBscript";
  
    Текст = СтрШаблон(
        "Function  Driveinfo()
        |Dim drvpath
        |drvpath = ""%1""
        |Dim fs, d
        |Set fs = CreateObject(""Scripting.FileSystemObject"")
        |Set d = fs.GetDrive(fs.GetDriveName(drvpath))
        |Driveinfo = Driveinfo & d.sharename
        |End Function", ИмяДиска);
    
    
    Скрипт.AddCode(Текст);    
    Попытка
        СетевоеИмяДиска = Скрипт.Run("Driveinfo");
    Исключение
    КонецПопытки;

    Если ТипЗнч(СетевоеИмяДиска) = Тип("Строка")
        И Не ПустаяСтрока(СетевоеИмяДиска) Тогда
      
        Возврат СетевоеИмяДиска;
    Иначе
        Возврат ИмяДиска;
    КонецЕсли;    
  
КонецФункции

За это:

    Исключение
    КонецПопытки;

Поубивал бы!!!!!
Ну обработайте вы исключение хоть сообщением каким, хоть записью в ЖР!!!!

(22) Я это и так обработал, в самом начале функции СетевоеИмяДиска = ""; если что-то не сработает пользователь увидит просто свои привычные "Y:\..." а выводить для него сообщение об ошибке тип "скрипт не отработал ошибка Х:015941" не нужно, поберегу его нервы.

Ну, удачи при отладке, при таких обработках исключений

(24) Спасибо, но тут отлаживать нечего.