Salut tous le monde.

Je me fais un programme en vb.net et je veux transférer des données avec socket mais quand je fais mon code il ne marque pas d'erreur mais ne fais rien alors si quelqu'un pourrait m'aider j'aimerais bien.
voici mon code:

Dim t As String = "Data Source = c:\data\Livre de Maths

Dim dataSend As [Byte]() = System.Text.Encoding.ASCII.GetBytes(t)

Dim SB As New System.Data.DataTable

Dim Buffer() As Byte = System.Text.Encoding.ASCII.GetBytes(SB.ToString())

scmd = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)

ep = (New IPEndPoint(Dns.Resolve(host).AddressList(0), port))

scmd.Connect(ep)

scmd.Send(System.Text.Encoding.ASCII.GetBytes("USER" + Convert.ToChar(32) + username + Convert.ToChar(13) + Convert.ToChar(10)))

scmd.Send(System.Text.Encoding.ASCII.GetBytes("PASSWORD" + Convert.ToChar(32) + password + Convert.ToChar(13) + Convert.ToChar(10)))

scmd.Send(dataSend, 0, SocketFlags.None)
scmd.Shutdown(Net.Sockets.SocketShutdown.Send)

Bonjour

à la place de
scmd.Send(dataSend, 0, SocketFlags.None)
Essaye de mettre
scmd.Send(dataSend, 0, DataSend.Length)

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Salut,

j'ai modifier mon code un peu et j'ai essayé cela mais il me dit que je peux ouvrir le dossier. Mais mon but n'est de l'ouvir mais de le transferer.Alors si quelqu un pourrait m'aider j'aimerais bien.

Voici mon code:

Try

Dim fileupload As String = "Data Source = X:\data\clinique"

Dim rest As Integer = 1

'Index

Dim index As Integer = 0

Dim cptWhile As Integer = 0

Dim bye As Boolean = False

'Reading the file and stocking the bytes

Dim stream As FileStream = File.Open(fileupload, FileMode.Open)

Dim data(stream.Length) As Byte

stream.Read(data, 0, data.Length)

stream.Close()

While Not bye
cptWhile += 1
If cptWhile * 1024 > data.Length Then
rest = data.Length - ((cptWhile - 1) * 1024)
bye = True
Else
rest = 1024
End If
Dim Buffer(rest) As Byte
If rest > 0 Then

Array.Copy(data, index, Buffer, 0, rest)
index += rest
rest = scmd.Send(Buffer, rest, SocketFlags.None)
Else
bye = True
End If
End While
If scmd.Connected Then
scmd.Close()
End If

Bonjour

Pour transferer tout le contenu du dossier, il faut que tu transfert tout les fichiers du dossier indépendamment.

Pour cela, liste les fichiers et les sous-dossiers avec : System.IO.DirectoryInfo.GetFiles et .GetDirectory.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)