reconnaissance du chemin && Listview

Question

Bonjour a tous, j'ai encore une fois besoin de vous.

Alors je vous explique mon probleme : 
    Suite a une connexion a un serveur ftp, j'ai 2 listbox, une qui prend les dossiers (listdoss), et une autre les fichiers (list1). Jusque la, tout va bien.
    Mais ensuite, lorsque que je veux uploader un fichier vers le serveur, il ne reconnait pas que si je suis dans un dossier ou non et colle donc le fichier transf&#233;r&#233; directement dans la page principal du serveur.

    Je vous joint mon code d'upload qui vous aidera peut-&#234;tre a comprendre le probleme. C'est une page qui est apel&#233; de ma page pricipale :

Sub upload
        Timer1.Enabled = False
Dim yaspc As Boolean
Dim taille As Variant
Dim pourcent As Integer
Dim fic_source, fic_destination As String
yaspc = False
fic_source = dir.Dir1.Path & "/" & dir.File1.FileName 'fichier a uploader"
fic_destination = dir.File1.FileName 'fichier de destination"

'verif fichier pas spc
Dim tmp, tmp2 As String
tmp = dir.File1.FileName
Dim i As Integer
For i = 1 To Len(tmp)
    If Mid(tmp, i, 1) = Chr(32) Then    yaspc True: tmp2 tmp2 & "_"
    Else: tmp2 = tmp2 & Mid(tmp, i, 1)
    End If
Next i
'verif si path a spc
tmp = dir.Dir1.Path
For i = 1 To Len(tmp)
    If Mid(tmp, i, 1) = Chr(32) Then
    yaspc = True
    End If
Next i
'si y a spc alors on passe par un temporaire sur c:
If yaspc = True Then
    Label1 = "copie du fichier temporaire..."
    FileCopy fic_source, "c:" & tmp2
    fic_source = "c:" & tmp2
    fic_destination = tmp2
End If
pb.Min = 0
pb.Max = FileLen(fic_source)
With Inet1
.Protocol = icFTP 'declaration protocole
.URL = dir.Inet1.URL
End With

Inet1.Execute , "put " & fic_source & " " & dir.Label1 & "/" & fic_destination 'envoie du fichier

Inet2.URL = Inet1.URL 'initialise inet2 : mm url

Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet1
On Error Resume Next
    If Inet2.StillExecuting = False Then 'si inet2 n'est pas actif
        
        Inet2.Execute , "size /" & fic_destination 'demande la taille du fichier sur le ftp
        Do Until Inet2.StillExecuting = False 'boucle pendant le demande inet2
        DoEvents
        Loop
            
        taille = Inet2.GetChunk(1024) 'recuperation du size dans taille
        Do Until Inet2.StillExecuting = False 'boucle pendant le demande inet2
        DoEvents
        Loop
       
       'affichage de la progressbar
       
       pb.Value = taille 'affichage de l'avancement de pb
       pourcent = (pb.Value / pb.Max) * 100 'calcul du pourcentage re&#231;u
       Label1.Caption = pourcent & "%" 'affichage du % du telechargement
       sb.Panels(1).Text = taille & "ko de " & (FileLen(fic_source))
    End If
Loop
'si scp effacement du fichier temporaire
If yaspc = True Then
Label1 = "Suppression du fichier temporaire...": Kill "c:" & tmp2
End If
dir.AfficheList1
Unload Me
End Sub

 
Etant  parti d'un code existant et pris sur ce site, j'ai un peu de mal a modifier ce qu'il faut.

En esperant que la solution sera clair pour l'un d'entre vous, Merci
++

malhivertman1 · Answer

En fait, l'intitul&#233;, c'est listbox et non listview
++

Reconnaissance du chemin && Listview

1 réponse

Discussions similaires