Определение пути сохранения в VB

Question

Сценарий создает текстовый файл информации с ПК пользователя, затем сохраняет его в папке общего каталога F: \ InstalledSoftware \

If WriteFile(s, sFileName) Then
  'optional prompt for display
  If MsgBox("Finished processing.  Results saved to " & sFileName & _
            vbcrlf & vbcrlf & "Do you want to view the results now?", _
            4 + 32, sTitle) = 6 Then
    WScript.CreateObject("WScript.Shell").Run """" & sFileName & """", 9
  End If
End If

A) sFileName = "F: \ InstalledSoftware \" & sCompName & "_" & GetDTFileName () & "_Software.txt"

B) sFileName = sCompName & "_" & GetDTFileName () & "_Software.txt"

оба результата приводят к созданию файла, например, «JOHNPC_05112011_093842_Software.txt»

но B правильно создает его в текущем активном каталоге.

Две проблемы. Поскольку у меня есть общий диск, если я отправляю ссылку на сценарий VB по электронной почте, я должен использовать выставку A, поскольку выставка B использует текущий активный каталог. Вторая проблема заключается в том, что диск F: отображается на некоторых машинах как другая буква диска J или K или в виртуальных средах другой диск. Но выставка B всегда будет работать, пока я нахожусь в правильной папке.

Есть ли другой способ обозначить путь. то есть

IP-адрес или DNS-имя, которое не использует букву диска?

sFileName = "???????????????? \ InstalledSoftware \" & sCompName & "………… ..

Answer 1

Просто используйте UNC-путь к месту, в котором отображается диск;

sFileName = "\\server_name_or_ip\optional_path\InstalledSoftware\" & sCompName & ..."