Discussion :

[The_link]

Bonsoir tout le monde,

Je me retourne de nouveau vers vous pour mon second problème qui me pose quelque difficultés, c'est le dernier promis loll

Grâce a l'aide de ProgElecT (que je remercie) j'ai pu obtenir une aide très bénéfique pour le problème précédent.

J'ai essayé diverses techniques et quelques recherches presque nul sur les moteurs de recherches

J'utilise ce code pour faire un zip, il marche très bien sans aucun souci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Label4_Click()
Dim z As ZipClass
Set z = New ZipClass
z.AddFile "c:\test.jpg"
z.WriteZip "c:\thhhest.Plsk", True
Set z = Nothing
End Sub

Il me les compresse parfaitement

Voici le problème :

Dans le programme, l'utilisateur appuie sur un bouton, qui ouvre une nouvelle fenêtre, dans celle ci il choisis son dossier et le chemin du dossier se met alors dans une textbox

La tout est normal, tout est impeccable.

Mais est-il possible de faire comprendre grâce a un bout de code que celui ci en se zippant aille chercher le chemin de la textbox? (le chemin de destination du dossier)

[SfJ5Rpw8]

"aille" chercher pourquoi faire...?

remplacer quoi dans ton code ..?

[The_link]

J'explique dans ma textbox, l'utilisateur a comme chemin "C:\Documents and Settings\Admin\Mes documents\Mes albums"

C'est l'endroit ou il a mis ses affaires qu'il veut zipper.

J'aimerais créer une option que le code reconnaissent ce chemin la et le zip

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Label4_Click()
Dim z As ZipClass
Set z = New ZipClass

"Ici il va chercher directement
C:\Documents and Settings\Admin\Mes documents\Mes albums
qui se trouve dans la textbox"

Au lieu de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

z.AddFile "c:\test.jpg"

Car "c:\test.jpg" est un chemin que j'impose directement,
et voudrais que dès lors le libre choix a l'utilisateur et
ne pas passer par ce chemin la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
z.WriteZip "c:\thhhest.Plsk", True
Set z = Nothing
End Sub

[SfJ5Rpw8]

ben si c'est vraiment le contenu de ta text box qu'il te faut tu peu faire ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
z.AddFile text1.text

un peu de lecture :

http://gilmir.developpez.com/tutoriels-vb6/debuter/

[The_link]

Merci, j'avais déjà essaye mais cela ne marchait pas

[SfJ5Rpw8]

Merci, j'avais déjà essaye mais cela ne marchait pas

et cela fait quoi ..?



dans ton exemple tu pour ta fonction add .. tu rajoute un nom de fichier... c'est bien un nom de fichier qui est saisi dans ton text box... et pas seulement un répertoire...?