comment faire pour recuperer la taille d un fichier avec inet, il y a la commande size qui est dans mon code ci dessous, mais comment recuperer la valeur renvoyer par cette fonction (Getchunk mais comment?)
Private Sub Command1_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Dim sizetotal As String 'definit variable sizetotal nb variable
Dim sizedl As String 'definit variable sizedl nb variable
Dim fdd As String 'definit variable fdd (fichier sur Disque Dur)
Dim fserv As String 'definit variable fserv (fichier sur ftp)
Dim avancement As Byte 'definit variable avancement nb sans virgule
fdd = "c:\im.jpg" 'chemin sur disque dur Source
fserv = "ims.jpg" 'chemin sur ftp Destination
Inet1.AccessType = icUseDefault 'propriete du ftp
Inet1.Protocol = icFTP 'propriete du ftp
Inet1.URL = "ftp://user:pass@ftp.membres.lycos.fr"
Do While Inet1.StillExecuting
Inet1.Execute , "size " & fserv
'sizetotal = Inet1.GetChunk(1024) marche pas?????
DoEvents
Loop
Label1.Caption = sizetotal
sizetotal = 73278 'la c moi qui donne la taille ca marche??
'donc pas erreur ds le code
Inet1.Execute , "get " & fserv & " " & fdd
Do While Inet1.StillExecuting
If Fichier_Existe(fdd) = True Then
sizedl = FileLen(fdd)
ProgressBar1.Value = (sizedl * ProgressBar1.Max) / sizetotal
Else
ProgressBar1.Value = "0"
End If
avancement = ProgressBar1.Value
Label2.Caption = avancement & "%"
DoEvents
Loop
End Sub
Public Function Fichier_Existe(Path As String) As Boolean
If Dir(Path) = "" Then
Fichier_Existe = False
Else
Fichier_Existe = True
End If
End Function
merci de votre aide je comprend plus rien depuis plusieur jours
Partager