bravo!

Excellente source, sauf quand on dezip une source déjà compréssée (par 7z par ex) les dossiers vides ne sont pas reconnus.
Ya t'il qq part un paramètre à modifier ou rajouter ??

Merci olbou621, en effet le but n'est pas de copier ou refaire
une source, mais ici c'est de la diffuser pour ceux qui veulent
bien prendre ce qu'il y a dedans, voir l'utiliser...
aplus; gmni.

Et bien ABF pourquoi pas ça (copier/coller un dossier/fichier):

Option Explicit

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
      
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_WANTMAPPINGHANDLE = &H20
Private Const FOF_CREATEPROGRESSDLG = &H0
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_FILESONLY = &H80
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_NOCONFIRMMKDIR = &H200
Private Const FO_MOVE = 1
Private Const FO_COPY = 2
Private Const FO_DELETE = 3
Private Const FO_RENAME = 4

Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function Copie(ByVal strSource As String, ByVal strDest As String) As Boolean
'
Dim varFOS As SHFILEOPSTRUCT
With varFOS
.wFunc = FO_COPY
.pFrom = strSource
.pTo = strDest
End With
Call SHFileOperation(varFOS)
Copie = (varFOS.fAnyOperationsAborted = 0)
'
End Function

Private Sub Command1_Click()
Copie "C:\test", "E:\test"
End Sub

Source originale!

ce serai bien de mettre un petit exemple pour exploiter ce code; pour
les debutants (hum hum)

tres simple, tres utile...

Merci!

Désolé, en fait le truc etait de mettre ton code sur la form "main", ou la prmiere form de demarrage,
Sinon merci pour ton attention,
a+ gmmni

Mon programme est tres lourd.
J'ai un "Form_Unload" sur la form principale avec ce type d'evénements :
Unload about
Unload Chemin
Unload conf
Unload debut
Unload infos
Unload listz
Unload mini
Unload wait
J'ai aussi essayé avec un QueryUnload.

Type d'erreurs :
'
Quand du systray j'ouvre ma fenetre principale, erreur :
"Object was unloaded"
Il me marque en jaune le nom de la form qui contient ton code:
ex: racc.hide
'
Quand je quitte avec le bouton X de la fenetre principale: Rien ce passe.
'
Quand je quitte à partir du systray (form fille du programme):
"Run-time error '365'
Unable to unload within context"
Il me marque "Unload F1" (F1 est la form principale).
'''
J'ai l'impression que ta source prend le dessus sur tous les evenements, meme quand on desactive
avec "HotKey.StopProcessing".
Alors comment la désactiver completement ?