'coter serveur Dim wrd As String Dim nom As String Dim taille As String Winsock(Index).GetData taille Fichier = FreeFile Open App.Path & "\Admin-2.rxdata" For Binary As #Fichier Put #Fichier, , taille Close #Fichier End Sub
'coter client If Winsock1.State = sckConnected Then Fichier = FreeFile taille2 = FileLen(App.Path & "\Saves\Admin-2.rxdata") taille = Space(taille2) Open App.Path & "\Saves\Admin-2.rxdata" For Binary As #Fichier Get #Fichier, , taille Close #Fichier Winsock1.SendData taille End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionWith Dialogue .Flags = cdlOFNExplorer + cdlOFNFileMustExist + cdlOFNNoChangeDir .DialogTitle = App.Title & " - Choix du fichier" .Filter = "Tous les fichiers (*.*)|*.*" '.InitDir = app.Path .ShowOpen txtFichier.Text = .FileName End With