вызвать API функцию SetCurrentDirectory.

А как вызвать API функцию?

1. Как вызвать API функцию можно прочитать в справке VB
2. Прочитать описание для конкретной функции можно на
[/SRC] msdn.microsoft.com

[SRC]
Option Explicit

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

Function F()
Dim strPath As String
Dim lError As Long

strPath = "\\ComputerName\ShareName"
lError = winpaiSetCurrentDirectory(strPath)
If lError <> 0 And Err.LastDllError = 0 Then
' success
Else
' fail
End If
End Function

1. Как вызвать API функцию можно прочитать в справке VB
2. Прочитать описание для конкретной функции можно на
msdn.microsoft.com