Répertoire compressé sur Windows XP

Bonjour HD,
HD a écrit :

Bonjour,

Avec les nouveaux Windows XP, 2000, Vista, etc... Il est possible de créer
des répertoires compressés qui apparaissent en bleu. L'avantage est que les
données que l'on y place sont directement compressées.

C'est lié à l'OS, mais surtout au système de fichiers NTFS. Si tu as des
partions en FAT32, tu n'auras pas de compression.

Comment peut on gérer ces répertoires compressés ?
1 ) Comment créer un répertoire compressé
2 ) Comment tester si un répertoire est compressé
3 ) Si le répertoire n'est pas compressé comment lancer sa compression ?

Regardes du côté de la classe Win32_Directory de WMI :

Méthodes Compress et Uncompress pour le contenu d'un répertoire
Méthodes CompressEx et UncompressEx pour une compression récursive
Propriété Compressed, pour savoir si un répertoire est compressé


Private Sub CompressFolder ()
Dim strComputer As String
Dim objWMIService As Object
Dim colFolders As Object
Dim objFolder As Object
Dim lResult As Long
Dim StopFile As String

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:\" & strComputer & "rootcimv2")

Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory Where Name = 'C:\MonRep'")

' Compression récursive
For Each objFolder In colFolders
Debug.Print objFolder.Compressed
lResult = objFolder.CompressEx(StopFile, , True)
Next
End Sub

Plus d'informations ici :

<http://msdn2.microsoft.com/en-us/library/aa389248.aspx>

NB : A noter le doublement de \ dans le chemin, le caractère ayant
une signification particulière sous WMI (caractère d'échappement)

--
Cordialement,

Jacques.