× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Windows 7
 EXE pour débloquer fichiers et répertoiresSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Debrief
  Posté le 27/03/2020 @ 10:53 
Aller en bas de la page 
Astucien

Bonjour,

Je cherche un programme Windows .EXE indépendant ne nécessitant ps d'installation qui puisse être appelé par un autre programme pour débloquer un fichier ou un répertoire à la manière de Unlocker ou de IOBit Unlocker.

Cordialement,
D.

Publicité
skale
 Posté le 27/03/2020 à 15:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Ce n'est souvent qu'un problème d'autorisation pour débloquer. En administrateur ,il te faut devenir propriétaire du fichier ou repertoire et te donner les droits.

Debrief
 Posté le 27/03/2020 à 17:01 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

En l'occurrence, il s'agit d'un problème de blocage par l'Explorer (explorer.exe) de répertoires qui ont subit des renames successifs en VBA (Name <Répertoire> As <RépertoireNew>) et des accès de type Dir(<répertoire>, vbDirectory). L'instruction Name part alors en erreur 70 Permission refusée.

Pour en sortir il faut débloquer le répertoire avec Unlocker. Mais ça ne marche qu'un temps.

En analysant la liste de Unlocker après l'exécution des différentes fonctions, j'ai pu remarquer que:

- MkDir <full path répertoire> (répété plusieurs fois dans une exécution de Macro) ne créé pas de liste de blocage par l'Explorer dans Unlocker
- objFSO.CreateFolder <full path répertoire> (répété plusieurs fois dans une exécution de Macro) ne créé pas de liste de blocage par l'Explorer dans Unlocker

- Name <full path répertoire> as <full path répertoire new> (répété plusieurs fois dans une exécution de Macro) créé une liste de 2 items de blocage par l'Explorer dans Unlocker qui ne semble pas bloquer l'accès du répertoire par la Macro
- objFolder.Name = <répertoire> (répété plusieurs fois dans une exécution de Macro) créé une liste de 2 items de blocage par l'Explorer dans Unlocker qui ne semble pas bloquer l'accès du répertoire par la Macro

- Dir(<full path répertoire>, vbDirectory) (répété plusieurs fois dans une exécution de Macro) créé une liste d'items de blocage par l'Explorer dans Unlocker qui sont la cause de l'erreur 70 lors de l'accès du répertoire par la Macro
- objFSO.FolderExists(<full path répertoire>) (répété plusieurs fois dans une exécution de Macro) ne créé pas de liste de blocage par l'Explorer dans Unlocker

Donc la conclusion est que, pour une utilisation répétée en Macro, la fonction Dir() est à éviter et remplacer par une instruction objFSO.FolderExists() !

Petit rappel:

'FSO documentation: https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/filesystemobject-object
Dim objFSO As Object
Dim objFolder As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(<Chemin Complet>)



Modifié par Debrief le 27/03/2020 17:54
Debrief
 Posté le 27/03/2020 à 17:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

A moins d'un miracle (il y en a parfois sur PCA) je ne crois pas trouver un debloqueur sans installation fonctionnant en ligne de commande qui aurait pu être intégré au classeur puis appelé dans le code VBA si je n'avais pas trouvé une solution à mon problème. Donc je mets "Résolu", mais toutefois si quelqu'un sait faire des miracles ...

skale
 Posté le 27/03/2020 à 22:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Et ne peux tu pas fermer le processus explorer.exe, qui a l'air de bloquer et rester sous cmd pour le VBA.



Modifié par skale le 27/03/2020 22:42
beagles
 Posté le 28/03/2020 à 00:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Salut

Passe par un live linux

Pas plus long que le temps que tu y a mis à chercher.

Tu aurais bien aimé connaître un truc et moi aussi

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
69,99 €Enceinte connectée Amazon Echo avec assistant Alexa à 69,99 €
Valable jusqu'au 29 Mai

Amazon propose l'enceinte Echo de 3ème génération à 69,99 € (au lieu de 99,99 €). L'appareil piloté par la voix fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourrez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Par rapport à la génération précédente, le son est amélioré et l'enceinte arbore un nouveau design. L'enceinte est équipée du son Dolby qui remplira la pièce d'un son immersif et omnidirectionnel, avec des voix nettes, des basses profondes et des aigus clairs à volume élevé. Grâce à ses sept microphones, ses technologies de beamforming et de réduction du bruit, Amazon Echo vous entend où que vous soyez dans la pièce, même lorsqu'il y a de la musique. 


> Voir l'offre
50 € | 130 €Carte cadeau bonifiée Fnac / Darty de 60 € pour 50 €, 150 € pour 130 €.
Valable jusqu'au 30 Mai

La FNAC propose de nouveau la carte cadeau Fnac / Darty d'une valeur de 60 € à 50 € seulement. Cette e-Carte Cadeau Fnac-Darty est utilisable jusqu'au 7 juin 2020 au plus tard, s'utilise en une ou plusieurs fois dans les magasins Fnac, Darty, les agences Fnac Voyages, sur fnac.com (hors voyages, abonnements presse, tirages photo et Marketplace). Une carte de 150 € pour 130 € est également disponible. Maximum 2 cartes de 150 € et 2 cartes de 60 € par compte.


> Voir l'offre
199,99 €Disque dur externe USB 3.0 Seagate 10 To à 199,99 €
Valable jusqu'au 01 Juin

Amazon propose le disque dur Seagate Expansion Desktop Drive 10 To à 199,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 270 €. Le disque est non soudé et vous pourrez le récupérer pour l'utiliser dans un ordinateur, un NAS, etc.


> Voir l'offre

Sujets relatifs
Logiciel PDF pour lire et imprimer des fichiers
copie de fichiers vers des sous répertoires
Recherche fichier HPZPNP40.exe pour imprimante HP Deskjet 6980
Fonction " supprimer " pour les cases cochées des fichiers....
Peut on debloquer "en lot" des .exe
Recuperation de fichiers ,de repertoires ou de partition
Comment faire pour transférer des fichiers d'une session a une autre?
Fichiers END et Lol.launcher.exe
comment configurer pour recevoir des fichiers envoyer par bluetooth vers pc
création d'un live CD pour récupérer fichiers
Plus de sujets relatifs à EXE pour débloquer fichiers et répertoires
 > Tous les forums > Forum Windows 7