bonjour a tous.
Je rencontre un soucis et, pour le moment, je ne trouve pas de solution.
Je doit delete tout un tas de fichier dans un répertoire ( j'ai créé un script pour faire ça ) mais se pose le soucis des fichiers lockés.
Je précise que j'utilise le PERL 5.8.8, que je suis sur du Windows 2008 R2 et que j'utilise unlink pour supprimer mes fichiers.
Le unlink me retourne une erreur ( normal ) quand il tente de supprimer un fichier qui est locké ( exemple avec un fichier PDF ou WORD )
Pour pouvoir supprimer ce fichier, il faut donc d'abord le délocké. Et la, je bloque![]()
Une solution, avec windows, est de taper la commande "net file", de récupérer l'ID du fichier, puis de taper "net file n°ID /close"
Mon soucis est que la commande net file n'est pas assez précise concernant le nom du fichier
Je ne suis donc pas sur de délocker le bon fichier. Ma question est donc la suivante :C:\Users\s_planning>net files
ID Path User name # Locks
-------------------------------------------------------------------------------
3825205263 C:\Prod\EXP\data HEFTMAD 0
3690987983 D:\temp\... HEFTMAD 3
3825205743 C:\Prod\... HEFTMAD 0
3690988435 D:\temp HEFTMAD 0
The command completed successfully.
Est-il possible de délocker un fichier en commande PERL ou est-il possible de récupérer l'ID exact d'un fichier pour pouvoir passer la commande "net file /close" ?
Partager