Alexanbar » 15.03.2005 (Вт) 20:50
Вообще-то, можно для передачи файлов вообще не привлекать Winsock.
Просто нужно к требуемой папке подключиться. А дале можно использовать любые средства для проведения файловых операций.
Вот нужные ф-ции:
Public Declare Function WNetAddConnection Lib "mpr.dll" _
Alias "WNetAddConnectionA" _
(ByVal lpszNetPath As String, _
ByVal lpszPassword As String, _
ByVal lpszLocalName As String) As Long
Public Declare Function WNetCancelConnection Lib "mpr.dll" _
Alias "WNetCancelConnectionA" _
(ByVal lpszName As String, _
ByVal bForce As Long) As Long
'------------------------------------------------------
'Константы
'------------------------------------------------------
'Public Const NO_ERROR = 0 ' dderror
Public Const WN_NO_ERROR = 0 'NO_ERROR
Public Const ERROR_BAD_USERNAME = 2202&
Public Const ERROR_INVALID_PASSWORD = 86&
Public Const WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD
Public Const WN_BAD_USER = ERROR_BAD_USERNAME
'-----------------------------------------------------
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long