AccessType Property
The type of required network connection.
object.AccessType [ = value ]
Return Value

None
Settings

The settings for value are:
Constant Value Description
SiteSite 0
Direct 1
UserAfterLogon 2
OpenSite 3
Socks4 4
Socks5 5
Socks4a 6
FireUserIDAt 7
HTTP 8
Example
Private Sub Form_Load()
'\\ Loads the form and sets the accesstype options in the combo box.
Form1.Show
Dim StrArr(1 To 10) As String
FtpTree1.AllowEditLabels = True
StrArr(1) = ".htm,C:\Program Files\Microsoft FrontPage\bin\fpeditor.exe"
FtpTree1.AlternateEditors = StrArr
FtpTree1.UploadNewerOnly = True
Combo1.AddItem "SiteSite", 0
Combo1.AddItem "Direct", 1
Combo1.AddItem "UserAfterLogon", 2
Combo1.AddItem "OpenSite", 3
Combo1.AddItem "Socks4", 4
Combo1.AddItem "Socks5", 5
Combo1.AddItem "Socks4a", 6
Combo1.AddItem "FireUserIDAt", 7
Combo1.AddItem "HTTP", 8
Combo1.ListIndex = 1
End Sub

Private Sub Connect_Click()
'******Connection Button Function*********
'********
'********
'***Check to see if we should be in PASV mode.******
If Form1.Check1 Then
   FtpTree1.PASV = True
End If

'***Get the accesstype from the dropdown box.*******
FtpTree1.AccessType = Combo1.ListIndex

'***Are we connecting through a proxy server?*******
If Not Text3.Text = "" Then
   FtpTree1.ProxyName = Text3.Text
   FtpTree1.ProxyPort = Text4.Text
End If

'**********Set some properties********************
FtpTree1.CleanupTempFiles = False
FtpTree1.ShowFtpSite = True
FtpTree1.ConnectionTimeout = 100
FtpTree1.ConnectionRetries = 5

'**************Connect to the site!***********
FtpTree1.NewSession Site, "", UserID, Password

End Sub