UDF > WinAPIEx > Files & Devices > Files >

_WinAPI_GetCompression

Obtient l'�tat actuel de la compression d'un fichier ou d'un r�pertoire

#include <WinAPIFiles.au3>
_WinAPI_GetCompression ( $sFilePath )

Param�tre

$sFilePath Le chemin d'acc�s au fichier ou au r�pertoire dont vous voulez l'�tat de compression.

Valeur de retour

Succ�s: Retourne l'�tat actuel de compression ($COMPRESSION_FORMAT_*).
�chec: Retourne (-1) et d�finit @error <> 0.

Voir aussi

Consultez FSCTL_GET_COMPRESSION dans la librairie MSDN.

Exemple

#include <APISysConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>

Local $sFile = FileOpenDialog('Select File', @ScriptDir, 'All Files (*.*)', 1 + 2)
If @error Then Exit

Switch _WinAPI_GetCompression($sFile)
    Case -1
        MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Compression de fichier', 'Impossible d''effectuer l''op�ration.')
    Case $COMPRESSION_FORMAT_NONE
        If _WinAPI_SetCompression($sFile, $COMPRESSION_FORMAT_DEFAULT) Then
            MsgBox(BitOR($MB_ICONINFORMATION, $MB_SYSTEMMODAL), 'Compression de fichier', 'Le fichier est compress� avec succ�s.')
        Else
            MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Compression de fichier', 'Impossible de compresser le fichier.')
        EndIf
    Case Else
        If MsgBox(BitOR($MB_YESNO, $MB_ICONQUESTION, $MB_SYSTEMMODAL), 'Compression de fichier', 'Le fichier est d�j� compress�.' & @CRLF & @CRLF & 'Je le d�compresse?') = 6 Then
            If _WinAPI_SetCompression($sFile, $COMPRESSION_FORMAT_NONE) Then
                MsgBox(BitOR($MB_ICONINFORMATION, $MB_SYSTEMMODAL), 'Compression de fichier', 'Le fichier est d�compress� avec succ�s.')
            Else
                MsgBox(BitOR($MB_ICONERROR, $MB_SYSTEMMODAL), 'Compression de fichier', 'Impossible de d�compresser le fichier.')
            EndIf
        EndIf
EndSwitch