static extern bool FtpSetCurrentDirectory(IntPtr hFtpConnection, string lpszDirectory);

Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hConnect As IntPtr, ByVal lpszDirectory As String) As Boolean

Dim changed As Boolean = FtpSetCurrentDirectory(hINetConn, changePath)