Discussion :

[enboule]

Bonjours a tous,

Je viens vous embetter avec une petite question ( qui se trouve dans le titre) :
Comment utiliser les options de Folder.Copyhere en VB6.
J'ai parcouru quelques forums (dont developpez.net) et je comprend pas trop comment faire ...
sur le msdn il y a écrit :

System.Shell.Folder.copyHere( oItem, [ intOptions = 0 ])

oItem [in]
The System.Shell.Item to copy.

intOptions [in, optional]
Integer that specifies any combination of copy operation options.

Note : These values are based on flags defined for use with the fFlags member of the C++ SHFILEOPSTRUCT structure. These flags are not defined for Microsoft Visual Basic, Visual Basic Scripting Edition (VBScript), or Microsoft JScript, so you must define the values or use their numeric equivalents.

l'option que je veux utiliser est la numéro (4) : Do not display a progress dialog box.

A ce que j'ai compris avec mon anglais approximatif, les options ou du moins les flags utilisés ne marche pas en vb6...

quelqun a une idée svp ?!

Merci d'avance pour toutes réponses.
Enboule

[DarkVader]

Bonjour,
Je n'ai jamais utilisé mais
- System.Shell c'est .net
- et apparemment pour VB6, (référence Shell32)il faut utiliser la classe Shell32.Folder
après ...

[enboule]

Bonjour,
Désolé de la réponse tardive, j'étais pas au taf.

Merci pour ta réponse DarkVader

Voila j'ai continuer un peu mes recherches...
j'ai mis a jour ma shell32.dll (Version: 4.72.3812.600)

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
                    Set FSCopie = CreateObject("Scripting.FileSystemObject")
                    FSCopie.GetFile (ResultFile)
                    DossierZip = ResultFile
                    DossierDezip = stRep3
                    'msgbox "dossier zip=" & DossierZip & "dezip =" & DossierDezip
                    Set osa = CreateObject("Shell.Application")
                    nbFic = osa.NameSpace(DossierZip).Items.Count
                    ' Décompression des fichiers
                    Call osa.NameSpace(DossierDezip).CopyHere((osa.NameSpace(DossierZip).Items), 4)
                    Set osa = Nothing

ça marche très bien sauf cette option "4" dans le copyhere ...

Le problème en fait c'est tout simplement que si un utilisateur appuie sur le bouton "cancel" qui apparaît avec la displaybox ça plante complètement mon programme.
Donc l'objectif est soit : supprimer cette displaybox avec les options du copyhere, soit gérer le " cancel " qui apparaît (avec un return de la fonction copyhere ( qui bien sur n'existe pas ))... dans les deux cas je n'y arrive pas ;(

je me demande surtout si le problème des options avec Copyhere ne viens pas du fait que je veux copier un fichier ZIP.

EDIT : Cela vient bien du fait que j'essai d'utiliser les options avec des fichiers .ZIP car j'ai essayé avec des répertoires " simples " et les options ( notamment la "4" ) marchent parfaitement ...
Donc il me reste que le choix de virer ce " cancel " du dialogbox.

Cordialement,
Enboule