Текущий диск

[rok]

Хотелось бы получить ответ в виде Да/Нет.
На всех ли компьютерах сети в Еxcel и Access текущим будет диск с папкой "Мои документы"?

[alibek]

Нет.

[rok]

Хотелось бы получить ответ в виде Да/Нет.
На всех ли компьютерах сети в Еxcel и Access текущим будет диск с папкой "Мои документы"?

А по умолчанию?

[_ae_]

Вероятно да

[GSerg]

Нет.
И то, что по умолчанию, тоже настраивается куда угодно.

[rok]

Как это творение?
Может кто что посоветует

Код: Выделить всё

If Dir("реестр", vbDirectory) = "реестр" Then
Exit Sub
Else
  MsgBox "Для экспорта реестра будет создана папка 'реестр'" & Chr(13)  & _ "Путь к ней: " & Chr(34) & CurDir & Chr(34)
MkDir ("реестр")
End If

Не нравится мне что этот каталог будет создаваться на разных машинах (навряд ли рядовые пользватели сменят установки по умолчанию) в разных местах... А может и ничего.

[GSerg]

Как это творение?
Может кто что посоветует

Пока до сих пор не ясно, чего требуется достичь.

[rok]

Для экспорта данных из Access в Еxcel создается каталог, а метод Аccessа помещает файл по указанному в аргументе пути на текущем диске. Что бы не заморачиваться с определением пути для каждого конкретного компьютера хотелось бы что-то универсальное-это и есть решаемая задача

[KL]

Для экспорта данных из Access в Еxcel создается каталог, а метод Аccessа помещает файл по указанному в аргументе пути на текущем диске. Что бы не заморачиваться с определением пути для каждого конкретного компьютера хотелось бы что-то универсальное-это и есть решаемая задача

А заморачиваться особо и не надо:

Код: Выделить всё

Sub test()
    MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
End Sub

и т.д. http://msdn2.microsoft.com/en-US/library/0ea7b5xe.aspx

[rok]

Спасибо KL