Utilisateur anonyme
-
15 janv. 2007 à 21:31
Utilisateur anonyme -
16 janv. 2007 à 17:20
bonsoir, j'ai un petit problème avec mon code!
Inet3.Execute , "delete " & List1.Text
Do Until Inet3.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
je l'ai mis pour faire supprimmer le fichier de notre ftp selectionner dans la listbox appelé list1, bon je liste le ftp puis quand je selectionne le fichier et que je fais supprimer ça me met:
Inet3.Execute , "delete " & List1.Text
en jaune et voila!
c'est quoi le problème dans le code?
merci
With Inet2
.Protocol = icFTP 'declaration protocole
.URL = ("ftp://" & Text2 & ":" & Text3 & "@" & Text1) 'le ftp
End With
Dim dirtxt As String
Inet2.Execute , "dir" 'lit la racine du ftp
Do Until Inet2.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
dirtxt = Inet2.GetChunk(1024) 'recupere la liste de fichier dans dirtxt
Do Until Inet2.StillExecuting = False 'boucle pendant inet actif
DoEvents
Loop
'decoupage de la ligne
Dim tmp As String
Dim i As Integer
For i = 1 To Len(dirtxt) Step 1 If Mid(dirtxt, i, 1) Chr(13) And Mid(dirtxt, i + 1, 1) Chr(10) Then
If tmp <> "" Then List1.AddItem tmp
tmp = ""
i = i + 1
Else
tmp = tmp & Mid(dirtxt, i, 1)
End If
Next i
mais j'ai pas compris ce que tu m'as dis dsl
et le code n'est point de moi!