Текущая папка на локальном Servere

[David]

Люди ,
Как поменять текущюю папку, если она на локальном Servere и называется \\Srv2\AAA\DDD\...\CCC ? Команда CHDIR посылает ошибку, что и естественно, нет буквы диска.

СПАСИБО

[Ennor]

Ну, первое, что приходит в голову - мэп этой папки в сетевой диск. А вообще... Да, ChDir() не работает с UNC-путями, как и почти весь остальной VB. Если только через API, боюсь.
Кстати, возможно, Dir() будет работать. Тогда не совсем понятно, нафига тебе именно текущей эту папку делать.

[David]

Во-первых, спасибо, во-вторых там находятся папки коллег и каждый для себя (програмно естественно) должен создать файлы путем печати Acrobat PDFWriter, а он только пишет в текущую папку
Вот такие блины

[David]

Братцы, нашел, точнее подсказали

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

Option Explicit

Public Declare Function winpaiSetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Function F()
Dim strPath As String, lError As Long
    Debug.Print CurDir
    strPath = "\\Srv2\drivers\D_040311"
    lError = winpaiSetCurrentDirectory(strPath)
    If lError <> 0 And Err.LastDllError = 0 Then
        Debug.Print CurDir
    Else
        Debug.Print CurDir
    End If
End Function