Отправка файлов по сети ..

[Valerik]

Привет Всем !
Народ кто знает, как это можно осуществить "Отправку файлов в локальной сети" с компа на комп.
Киньте пример кода

Заранее благодарен.

[GSerg]

filecopy "c:\1.txt", "\\user\sharedresource\1.txt"

[Sirik]

filecopy "c:\1.txt", "\\user\sharedresource\1.txt"

Это возможно если диск удалённый открыт на запись.

А вобще можно, дробить файл на куски(например по 1024 байт) и зная IP, кидать клиенту. Правда, надо ещё написать программу на клиенте, чтобы та "ловила" куски и соеденяла в один файл (правда с таким методом побольше гемороя, но зато можно кидать всё и куда угодно).

[Alexanbar]

перед тем, как делать filecopy, нужно к ресурсу подключиться.

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

'++++++++++++++++++++++++++++++++++++++++++++
'вот собственно подключение. Path - это путь к файлу, Password-пароль
'++++++++++++++++++++++++++++++++++++++++++++

Lan_connect = WNetAddConnection(Path, Password & vbNullString, vbNullString)

[Sirik]

2 Alexanbar: помоему это всё пройдёт если ресурс на удалённом компьютере разшаренный, а если нет, тогда - нет.

[Шурик]

Это все пройдет если на SHARED пароля нет
Можно и так:

Код: Выделить всё

Net Use * \\имя_компутера\имя_ресурса пароль


[Sirik]

Код: Выделить всё

Net Use * \\имя_компутера\имя_ресурса пароль


М-да хороший пример, придраться не к чему. Z-zzz - молодец

[Valerik]

Народ а вот у мя такая ситуация !
Типа сервак и на нём находится БД которую я в дальнейшем хочу переправить по локальной сети между компьютерами !
А на этих ПК стоят клиенты.
Как при помощи Сервака отослать в этой Локальной сети Всем Клиентам БД-х

Заранее Благодарен

[AlexJ]

Держи код[/url][/list]