PC EXPLORE (PARCOURIR LES DOSSIERS AVEC DES LISTVIEW)...
cs_stailer
Messages postés
507
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
-
26 juil. 2002 à 04:00
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 2 févr. 2003 à 23:12
cs_Urgo Messages postés 780 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 avril 2009 - 2 févr. 2003 à 23:12
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3286-pc-explore-parcourir-les-dossiers-avec-des-listview
https://codes-sources.commentcamarche.net/source/3286-pc-explore-parcourir-les-dossiers-avec-des-listview
2 févr. 2003 à 23:12
29 juil. 2002 à 21:28
29 juil. 2002 à 21:22
28 juil. 2002 à 16:47
27 juil. 2002 à 16:13
27 juil. 2002 à 16:08
'Api qui récupère l'état d'une touche du clavier
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'api qui permet par exemple de supprimer des fichiers ou dossiers
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'Type pour l'api SHFileOperation
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
'---------------------------------------------------
'dans une procédure
Dim Fichier As String
Dim Shift As Integer
Dim FileOperation As SHFILEOPSTRUCT
Fichier = "Ton fichier que tu veux envoyer à la corbeille" ' ou un dossier d'ailleurs
Shift GetAsyncKeyState(16) ' récupère l'état de la touche shift ( enfoncée si -32767)
If Shift = -32767 Then
With FileOperation
.wFunc = FO_DELETE
.pFrom = Fichier
.fFlags = &O0
End With
r = SHFileOperation(FileOperation)
Else
With FileOperation
.wFunc = FO_DELETE
.pFrom = Fichier
.fFlags = FOF_ALLOWUNDO
End With
r = SHFileOperation(FileOperation)
End If
Voilà ça affiche la boite de dialogue envoyer à la corbeille, et si la touche shift est enfoncée, alors ça affichier supprimer.
Je met ça parce que j'ai vu que tu passes par une classe c'est tout un bordel, là c'est plus simple.
27 juil. 2002 à 15:53
C'est du bon travail, mais je continu de penser que c'est un peu dommage d'avoir mis toutes ces sources qui se ressemblent. Sinon bravo.
26 juil. 2002 à 19:10
PtitJeoJeo
26 juil. 2002 à 13:14
26 juil. 2002 à 04:00