code pour enregistré un fichier sous different nom
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Arrive As String
Dim hop As String
Dim chemin
On Error Resume Next
For a = 1 To 1000
If PathFileExists("C:\Picture" & a & ".bmp") = False Then
If OuvrirImage = False Then
Open ("C:\Picture" & a & ".bmp") For Binary Access Write As #2
OuvrirImage = True
ElseIf OuvrirImage = True Then
DoEvents
Set Form6.Image1.Picture = LoadPicture("C:\Picture" & a & ".bmp")
End If
End If
Winsock2.GetData Arrive
hop = Arrive
If hop = "END" Then
Close #2
OuvrirImage = False
Winsock2.Close
Exit For
Else
Put 2, , hop
End If
Next a
End Sub |
Bonjour,
voici mon code enfete je veux que quand le winsock recoi la photo enfin la picture il l'enregistre sous picture1 ou si picture1 existe picture2 et ainsi de suite.est ce que quelle qu'un peut me dire ou est le probleme.
