ftpsession.vb

来自「本光盘上程序的运行和工程文件的打开都需要用户首先安装 Microsoft Vis」· VB 代码 · 共 30 行

Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Imports System.Text
Imports System.Collections

Public Class FTPSession
  ' Server Socket
  Private serverSocket As System.Net.Sockets.Socket

  ' Connection Socket
  Private clientSocket As System.Net.Sockets.Socket
  ' Data Socket
  Private dataSocket As System.Net.Sockets.Socket

  ' FTP Root Path
  Private rootPath As String = Directory.GetCurrentDirectory() & "\FTPRoot\"
  Private currentPath As String = rootPath
  Private currentPathStr As String = "/"

  Private loginName As String = Nothing
  Private blnBinary As Boolean

  ' Data Socket IP and Port
  Private clientIP As String = Nothing
  'Private ipString As String = Nothing
  Private dataPort As Integer

  '