[DllImport("wininet.dll", SetLastError = true, CharSet = CharSet.Auto)]
static extern bool FtpGetCurrentDirectory(IntPtr hConnect,
StringBuilder directory, ref int bufferLength);
Declare Function FtpGetCurrentDirectory Lib "wininet.dll" _
(ByVal hConnect As IntPtr, ByVal directory As StringBuilder, ByRef bufferLength As Integer) _
As <MarshalAs(UnmanagedType.Bool)> Boolean
None.
The buffer length should be at least MAX_PATH characters long.
Please add some!
' Where MAX_PATH has been declared as a constant (260)
' and Me.hINetConn is an IntPtr opened by InternetConnect
Public Function CurrentDir() As String
Dim s As New System.Text.StringBuilder
Dim nLen As Integer = MAX_PATH
s.Capacity = MAX_PATH
If FtpGetCurrentDirectory(Me.hINetConn, s, nLen) Then
CurrentDir = s.ToString
End If
End Function
Do you know one? Please contribute it!
Direct Link: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/FtpGetCurrentDirectory.asp