reconnaissance du chemin & listbox

Version imprimable

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éré directement dans la page principal du serveur.

Je vous joint mon code d'upload qui vous aidera peut-être a comprendre le probleme. C'est une page qui est apelé de ma page pricipale :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
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ç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

14/12/2005, 16h32
Theocourant

Salut,

Je ne t'ai pas oublié mais je n'ai pas eu le temps d'approfondir ton problème ... Je regarde ça rapidement.

Autre chose :

Je te rappelle qu'il est défendu de faire du multipostage sur le forum donc il faut pour suivre sur le post précédent

Merci

Théo
15/12/2005, 08h17
malhivertman1

ok j'attend de tes nouvelles..

ps : comment tu fait pour que, en gros, un message auquel personne n'a repondu et n'est plus sur les pages principales y revienne?

en fait par contre, dsl de te dire ca et j'espere que tu n'a pas bossé dessus mais a la place de mettre 2 listes box, j'ai opté pour un treeview et une listebox. Les dossiers de mon ftp vont donc dans le treeview et les fichiers, dans la listbox.
Mon probleme a présent et de dire dans ma fonction dbl_click_treeview que qd je doubleclic, il m'ouvre le dossier en question et me met ses fichiers dans la listbox.
J'avais fait cette fonction avec mes 2 listbox et ca marché trés bien mais je n'arrive pas a la modifiée pour qu'elle remarche.

Je te la donne :
Code:

1 2 3 4 5 6 7 Private Sub TreeView1_DblClick() Inet1.Execute , "cd " & TreeView1.??? '(avant, qd ca marchait, il y avait listbox.text) Do Until Inet1.StillExecuting = False 'boucle pendant inet actif DoEvents Loop AfficheList1 End Sub
En esperant que ca sera clair pour toi
Merci

Citation:
Envoyé par malhivertman1
en fait par contre, dsl de te dire ca et j'espere que tu n'a pas bossé dessus mais a la place de mettre 2 listes box, j'ai opté pour un treeview et une listebox. Les dossiers de mon ftp vont donc dans le treeview et les fichiers, dans la listbox.
Mon probleme a présent et de dire dans ma fonction dbl_click_treeview que qd je doubleclic, il m'ouvre le dossier en question et me met ses fichiers dans la listbox.
J'avais fait cette fonction avec mes 2 listbox et ca marché trés bien mais je n'arrive pas a la modifiée pour qu'elle remarche.

Je te la donne :
Code:

1 2 3 4 5 6 7 Private Sub TreeView1_DblClick() Inet1.Execute , "cd " & TreeView1.??? '(avant, qd ca marchait, il y avait listbox.text) Do Until Inet1.StillExecuting = False 'boucle pendant inet actif DoEvents Loop AfficheList1 End Sub
En esperant que ca sera clair pour toi
Merci
Salut,

Voici la solution pour récupérer le nom du noeud sélectionné :

Code:

TreeView1.SelectedItem.Text

Par contre, tu risques de rencontrer des problèmes au niveau de l'accès au répertoire sélectionné car si tu double-clique sur un noeud "enfant" c'est à dire un sous-menu la commande que je t'ai donné ne renvoi que le nom du noeud actif et non associé à celui de ses parents...

Dans ce cas, tu peux utiliser la propriété fullpath:

Code:

TreeView1.SelectedItem.FullPath

ATTENTION : il donne le nom complet avec un séparateur définit par défaut à "\"

Tu peux modifier ceci avec

Code:

TreeView1.PathSeparator = "+"

Ici j'ai mis comme séparateur un "+"

Imaginons l'arbre suivant :
Code:

1 2 3 Racine I___rep1 I____sous-rep1
la procédure :
Code:

1 2 3 4 Private Sub TreeView1_DblClick() TreeView1.PathSeparator = "+" MsgBox TreeView1.SelectedItem.FullPath End Sub
avec la procédure suivante en cliquant sur sous-rep1, tu auras le message

Citation:

Racine+rep1+sous-rep1

Voilà

Bonne continuation

Théo

15/12/2005, 10h37
malhivertman1

Bon alors pour le fait du treeview.selecteditem.text, jte remerci, c'est parfait.
Il m'ouvre les dossiers superbement bien :wink:
Par contre, qd je veux uploader un fichier dans un de ses dossier, il ne reconnait pas que je suis justement dans un dossier, et envoi le fichier voulu dans la page principale du ftp, tu vois ce que je veux dire?
15/12/2005, 11h47
Theocourant

Citation:

Envoyé par malhivertman1

Bon alors pour le fait du treeview.selecteditem.text, jte remerci, c'est parfait.
Il m'ouvre les dossiers superbement bien :wink:
Par contre, qd je veux uploader un fichier dans un de ses dossier, il ne reconnait pas que je suis justement dans un dossier, et envoi le fichier voulu dans la page principale du ftp, tu vois ce que je veux dire?

Re,

A ce niveau là, c'est un problème concernant ta méthode copie vers le ftp ...

Si tu avais du code à nous montrer, ça pourrait aider

+

Théo
15/12/2005, 11h58
malhivertman1

je n'est pas remi mon code vu que qu'il est assez important et que je l'ai mis plus haut dans cette conversation (sub upload)
Merci
15/12/2005, 12h05
Theocourant

Citation:

Envoyé par malhivertman1

je n'est pas remi mon code vu que qu'il est assez important et que je l'ai mis plus haut dans cette conversation (sub upload)
Merci

excuse je n'avais pas détaillé le code :oops: je regarde
15/12/2005, 12h08
malhivertman1

no problem c'est pas grave
15/12/2005, 14h12
malhivertman1

ca va, tu comprend mon code? enfin qd jmet mon jdevrai mettre "mon", car je suis partis d'un code existant et ceci en fesait parti et ça explique pourquoi j'ai du mal a y modifier
19/12/2005, 14h16
Theocourant

Salut,

J'ai regardé le code ce week-end, malheureusement je ne peux guère plus t'aider car je ne connais pas le transfert de données de manière approfondie.

On peut espérer quelqu'un de plus calé regardera cela.

Bon courage pour la suite

Théo
20/12/2005, 11h36
malhivertman1

Merci quand même d'avoir regarder..