Des exemples d'utilisation des fonctions du WLangage
Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.
Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.
Aller à la page des exemples évolués
ZipAjouteFichier (en anglais zipAddFile)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResCréation
=
0
ALORS
// Ajout d'un fichier dans une archive
ResAjoutFichier
=
zipAjouteFichier
(
"MonArchive"
, ...
"C:\MonRépertoire\MesFichiers\Fichier.pdf"
,
zipDisque
)
FIN
// Affichage du message d'erreur si le fichier n'a pas été ajouté
SI
ResAjoutFichier
<>
0
ALORS
Erreur
(
zipMsgErreur
(
ResAjoutFichier
))
FIN
|
Début de la page
ZipAjouteFichier (en anglais zipAddFile)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResCréation
=
0
ALORS
// Ajout d'un fichier dans une archive
ResAjoutFichier
=
zipAjouteFichier
(
"MonArchive"
, ...
"\MonRépertoire\MesFichiers\Fichier.pdf"
,
zipAucun
)
FIN
// Affichage du message d'erreur si le fichier n'a pas été ajouté
SI
ResAjoutFichier
<>
0
ALORS
Erreur
(
zipMsgErreur
(
ResAjoutFichier
))
FIN
|
Début de la page
ZipAjouteListeFichier (en anglais zipAddFileList)
// Création d'une archive et ajout d'un élément
// Avec jauge
NumEvenement
est un entier
NumErrZip
est un entier
NumErrZip
=
ZipCrée
(
"MonArchive"
,
"C:\Doc\Archive\ficArchive.WDZ"
)
SI
NumErrZip
=0 ALORS
NumEvenement
=
Evenement
(
"JaugeCompression"
,
FenEnExecution
(),
jaugecompactage
)
NumErrZip
=
zipAjouteListeFichier
(
"MonArchive"
,...
"C:\doc\Image\Maison.BMP"
+
RC
+
"C:\Mes Projets\WDStock\WDStock.wdp"
)
SI
NumErrZip
<> 0 ALORS
Erreur
(
zipMsgErreur
(
NumErrZip
))
FIN
FinEvenement
(
NumEvenement
)
SINON
Erreur
(
zipMsgErreur
(
NumErrZip
))
FIN
// procédure à appeler pour gérer la jauge
Procédure
JaugeCompression
Jauge
(
_eve.wparam
,
100
)
|
Début de la page
ZipAjouteListeFichier (en anglais zipAddFileList)
// Création d'une archive et ajout d'un élément
// Avec jauge
NumEvenement
est un entier
NumErrZip
est un entier
NumErrZip
=
ZipCrée
(
"MonArchive"
,
"\Doc\Archive\ficArchive.zip"
)
SI
NumErrZip
=
0
ALORS
NumEvenement
=
Evenement
(
"JaugeCompression"
,
FenEnExecution
(),
jaugecompactage
)
NumErrZip
=
zipAjouteListeFichier
(
"MonArchive"
,...
"\doc\Image\Maison.BMP"
+
RC
+
"\Mes Projets\WDStock\WDStock.wdp"
)
SI
NumErrZip
<>
0
ALORS
Erreur
(
zipMsgErreur
(
NumErrZip
))
FIN
FinEvenement
(
NumEvenement
)
SINON
Erreur
(
zipMsgErreur
(
NumErrZip
))
FIN
// procédure à appeler pour gérer la jauge
Procédure
JaugeCompression
Jauge
(
_eve.wparam
,
100
)
|
Début de la page
ZipAjouteRepertoire (en anglais zipAddDirectory)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResCréation
=
0
ALORS
// Ajoute la totalité des fichiers d'un répertoire
ResAjoutRép
=
zipAjouteRépertoire
(
"MonArchive"
, ...
"C:\MonRépertoire\MesFichiers"
,
Vrai
,
zipDisque
)
FIN
// Affichage du message d'erreur si l'ajout n'a pas été effectué
SI
ResAjoutRép
<>
0
ALORS
Erreur
(
zipMsgErreur
(
ResAjoutRép
))
|
Début de la page
ZipAjouteRepertoire (en anglais zipAddDirectory)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResCréation
=
0
ALORS
// Ajoute la totalité des fichiers d'un répertoire
ResAjoutRép
=
zipAjouteRépertoire
(
"MonArchive"
, ...
"\MonRépertoire\MesFichiers"
,
Vrai
)
FIN
// Affichage du message d'erreur si l'ajout n'a pas été effectué
SI
ResAjoutRép
<>
0
ALORS
Erreur
(
zipMsgErreur
(
ResAjoutRép
))
|
Début de la page
zipChangeChemin (en anglais zipChangePath)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Modification d'un chemin mémorisé de Fichier.doc
ResChangeChemin
=
zipChangeChemin
(
"MonArchive"
, ...
"Fichier.doc"
,
"Sauvegarde.doc"
)
...
FIN
|
Début de la page
zipChangeChemin (en anglais zipChangePath)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Modification d'un chemin mémorisé de Fichier.txt
ResChangeChemin
=
zipChangeChemin
(
"MonArchive"
, ...
"Fichier.txt"
,
"Sauvegarde.txt"
)
...
FIN
|
Début de la page
ZipChercheFichier (en anglais zipFindFile)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResCréation
=
0
ALORS
...
// Recherche d'un fichier dont le chemin mémorisé contient "Temp"
ResFichierTrouvé
=
zipChercheFichier
(
"MonArchive"
,
"Temp"
,
Faux
)
...
FIN
|
Début de la page
ZipChercheFichier (en anglais zipFindFile)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResCréation
=
0
ALORS
...
// Recherche d'un fichier dont le chemin mémorisé contient "Temp"
ResFichierTrouvé
=
zipChercheFichier
(
"MonArchive"
,
"Temp"
,
Faux
)
...
FIN
|
Début de la page
ZipCree (en anglais zipCreate)
// Création de l'archive au format WDZ
ResCréation
=
zipCrée
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResCréation
=
0
ALORS
...
FIN
|
Début de la page
ZipCree (en anglais zipCreate)
// Création d'une archive au format standard ZIP
ResCréation
=
zipCrée
(
"MonArchive"
,
"C:\Temp\Archive.zip"
)
SI
ResCréation
=
0
ALORS
...
FIN
|
Début de la page
ZipCree (en anglais zipCreate)
// Création d'une archive au format standard CAB
ResCréation
=
zipCrée
("MonArchive", "C:\Temp\Archive.cab")
SI ResCréation = 0 ALORS
...
FIN
|
Début de la page
ZipCree (en anglais zipCreate)
// Création de l'archive
ResCréation
=
zipCrée
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResCréation
=
0
ALORS
...
FIN
|
Début de la page
ZipCreeExe (en anglais zipCreateExe)
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"D:\Sauvegardes\Sauvegarde.WDZ"
)
SI
ResOuvre
=
0
ALORS
// Création d'une archive auto-extractible
ResExeArchive
=
zipCréeExe
(
"Archive"
,
"C:\Répertoires\Archive.EXE"
)
...
FIN
|
Début de la page
ZipDecoupe (en anglais zipSplit)
ResOuvreArchive
,
ResDécoupe
sont des entiers
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"D:\Sauvegardes\Sauvegarde.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
// Découpage d'une archive en plusieurs sous-archives (1,4 Mo chacune)
ResDécoupe
=
zipDécoupe
(
"Archive"
,
"A:\Archive.WDZ"
,
1400
*
1024
)
...
FIN
|
Début de la page
ZipDecoupe (en anglais zipSplit)
ResOuvreArchive
,
ResDécoupe
sont des entiers
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\Sauvegardes\Sauvegarde.zip"
)
SI
ResOuvreArchive
=
0
ALORS
// Découpage d'une archive en plusieurs sous-archives (1,4 Mo chacune)
ResDécoupe
=
zipDécoupe
(
"Archive"
,
"\Archive.zip"
,
1400
*
1024
)
...
FIN
|
Début de la page
zipEstMulti (en anglais zipIsMulti)
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"D:\Sauvegardes\Sauvegarde.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
FIN
// Archive mono-partie ou multi-parties ?
ResEstMulti
=
zipEstMulti
(
"MonArchive"
)
// Affichage du résultat
SI
ResEstMulti
=
Vrai
ALORS
Info
(
"L'archive est multi-parties"
)
SINON
Info
(
"L'archive est mono-partie"
)
FIN
|
Début de la page
zipEstMulti (en anglais zipIsMulti)
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\Sauvegardes\Sauvegarde.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
FIN
// Archive mono-partie ou multi-parties ?
ResEstMulti
=
zipEstMulti
(
"MonArchive"
)
// Affichage du résultat
SI
ResEstMulti
=
Vrai
ALORS
Info
(
"L'archive est multi-parties"
)
SINON
Info
(
"L'archive est mono-partie"
)
FIN
|
Début de la page
zipExtraitChemin (en anglais zipExtractPath)
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"D:\Sauvegardes\Sauvegarde.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Recherche du fichier "Fichier.doc"
ResFichierTrouvé
=
zipChercheFichier
(
"Archive"
,
"Fichier.doc"
)
// Chemin du fichier trouvé
CheminExtrait
=
zipExtraitChemin
(
"Archive"
, ...
ResFichierTrouvé
,
zipRépertoire
)
...
FIN
|
Début de la page
zipExtraitChemin (en anglais zipExtractPath)
// Ouverture de l'archive "Archive"
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\Sauvegardes\Sauvegarde.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Recherche du fichier "Fichier.txt"
ResFichierTrouvé
=
zipChercheFichier
(
"Archive"
,
"Fichier.txt"
)
// Chemin du fichier trouvé
CheminExtrait
=
zipExtraitChemin
(
"Archive"
, ...
ResFichierTrouvé
,
zipRépertoire
)
...
FIN
|
Début de la page
zipExtraitFichier (en anglais zipExtractFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"C:\Archives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Extraction d'un fichier à son emplacement d'origine
ResExtraitFichier
=
zipExtraitFichier
(
"Archive"
,
"Fichier.doc"
,
zipDisque
)
...
FIN
|
Début de la page
zipExtraitFichier (en anglais zipExtractFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\Archives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Extraction d'un fichier à son emplacement d'origine
ResExtraitFichier
=
zipExtraitFichier
(
"Archive"
,
"Fichier.txt"
,
zipDisque
)
...
FIN
|
Début de la page
zipExtraitTout (en anglais zipExtractAll)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"C:\Archives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Extraction de tous les fichiers de l'archive
ResExtraitTout
=
zipExtraitTout
(
"Archive"
,
zipDisque
)
...
FIN
|
Début de la page
zipExtraitTout (en anglais zipExtractAll)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\Archives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Extraction de tous les fichiers de l'archive
ResExtraitTout
=
zipExtraitTout
(
"Archive"
,
zipDisque
)
...
FIN
|
Début de la page
zipFerme (en anglais zipClose)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\Archives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
// Traitements
FIN
// Fermeture de l'archive
zipFerme
(
"MonArchive"
)
|
Début de la page
zipFerme (en anglais zipClose)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\Archives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
// Traitements
FIN
// Fermeture de l'archive
zipFerme
(
"MonArchive"
)
|
Début de la page
zipFichierEnCours (en anglais zipCurrentFile)
POUR
Indice
=
1
à
5
// Extraction des 5 premiers fichiers de l'archive
ResExtraitFichier
=
zipExtraitFichier
(
"Archive"
,
Indice
)
...
// Recherche du nom du fichier en cours d'extraction
ResFichierEnCours
=
zipFichierEnCours
(
"Archive"
)
// Affichage du nom du fichier dans la barre de message
Message
(
ResFichierEnCours
)
...
FIN
|
Début de la page
zipInfoFichier (en anglais zipInfoFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Informations sur un fichier d'une archive
ResInfoFichier
=
zipInfoFichier
(
"Archive"
,
"C:\Répertoire\Fichier.doc"
)
// Affichage des informations du fichier
Info
(
"Les informations du fichier sont : "
,
ResInfoFichier
)
...
FIN
|
Début de la page
zipInfoFichier (en anglais zipInfoFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"Archive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Informations sur un fichier d'une archive
ResInfoFichier
=
zipInfoFichier
(
"Archive"
,
"\Répertoire\Fichier.txt"
)
// Affichage des informations du fichier
Info
(
"Les informations du fichier sont : "
,
ResInfoFichier
)
...
FIN
|
Début de la page
zipListeFichier (en anglais zipListFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Renvoie la liste des fichiers de l'archive
ListeFichier
=
zipListeFichier
(
"MonArchive"
)
// Affichage des fichiers dans une liste
ListeAjoute
(
FichierZip
,
ListeFichier
)
...
FIN
|
Début de la page
zipMotDepasse (en anglais zipPassword)
ArchiveChemin est une chaîne =
ComplèteRep
(
fRepEnCours
()) + "Archive.ZIP"
SI fExtraitchemin(ArchiveChemin,
fextension
)~=".zip" ALORS
SI ZipOuvre("MonArchive",ArchiveChemin)= 0 ALORS
// Crypte l'archive
zipMotDePasse
("MonArchive","FLOP")
ZipAjouteFichier("MonArchive","C:\MonFic.txt")
// Ajout du fichier. Le fichier est crypté par le mot de passe
FIN
FIN
|
Début de la page
zipMsgErreur (en anglais zipMsgError)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
)
// Erreur d'ouverture d'une archive
SI
ResOuvreArchive
<>
0
ALORS
// Affichage d'un message d'erreur
Info
(
zipMsgErreur
(
ResOuvreArchive
))
...
FIN
|
Début de la page
zipNbFichier (en anglais zipNbFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de fichiers dans l'archive
ResNbFichier
=
zipNbFichier
(
"MonArchive"
)
Info
(
ResNbFichier
+
"fichiers présents dans cette archive"
)
...
FIN
|
Début de la page
zipNbFichier (en anglais zipNbFile)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de fichiers dans l'archive
ResNbFichier
=
zipNbFichier
(
"MonArchive"
)
Info
(
ResNbFichier
+
"fichiers présents dans cette archive"
)
...
FIN
|
Début de la page
zipNbPartie (en anglais zipNbPart)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de parties présentes dans l'archive
ResNbPartie
=
zipNbPartie
(
"MonArchive"
)
Info
(
"Cette archive est composée de"
+
ResNbPartie
+
"partie(s)"
)
...
FIN
|
Début de la page
zipNbPartie (en anglais zipNbPart)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de parties présentes dans l'archive
ResNbPartie
=
zipNbPartie
(
"MonArchive"
)
Info
(
"Cette archive est composée de"
+
ResNbPartie
+
"partie(s)"
)
...
FIN
|
Début de la page
zipNbPartieNecessaire (en anglais zipNbPartNeeded)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de parties de 1,4 Mo nécessaires pour contenir l'archive
ResNbPartieNécessaire
=
zipNbPartieNécessaire
(
"MonArchive"
,
1400
*
1024
)
Info
(
"Pour découper cette archive,"
+
ResNbPartieNécessaire
+ ...
"partie(s) de 1,4 Mo sont nécessaires"
)
...
FIN
|
Début de la page
zipNbPartieNecessaire (en anglais zipNbPartNeeded)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Nombre de parties de 1,4 Mo nécessaires pour contenir l'archive
ResNbPartieNécessaire
=
zipNbPartieNécessaire
(
"MonArchive"
,
1400
*
1024
)
Info
(
"Pour découper cette archive,"
+
ResNbPartieNécessaire
+ ...
"partie(s) de 1,4 Mo sont nécessaires"
)
...
FIN
|
Début de la page
zipOuvre (en anglais zipOpen)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
// Affichage du message d'erreur si l'archive n'a pas été ouverte
SI
ResOuvreArchive
<>
0
ALORS
Erreur
(
ZipMsgErreur
(
ResOuvreArchive
))
FIN
|
Début de la page
zipOuvre (en anglais zipOpen)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
// Affichage du message d'erreur si l'archive n'a pas été ouverte
SI
ResOuvreArchive
<>
0
ALORS
Erreur
(
ZipMsgErreur
(
ResOuvreArchive
))
FIN
|
Début de la page
zipRegroupe (en anglais zipMerge)
// Ouverture d'une archive multi-parties
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Regroupement des sous-archives d'une archive multi-parties
ResRegroupe
=
zipRegroupe
(
"MonArchive"
,...
"C:\MesArchives\ArchiveMono.WDZ"
)
...
FIN
|
Début de la page
zipRegroupe (en anglais zipMerge)
// Ouverture d'une archive multi-parties
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
SI
ResOuvreArchive
=
0
ALORS
...
// Regroupement des sous-archives d'une archive multi-parties
ResRegroupe
=
zipRegroupe
(
"MonArchive"
,...
"\MesArchives\ArchiveMono.zip"
)
...
FIN
|
Début de la page
zipSupprimeFichier (en anglais zipDeleteFile)
// Création de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de "Fichier.doc"
ResSuppression
=
zipSupprimeFichier
(
"MonArchive"
,
"Fichier.doc"
)
...
FIN
|
Début de la page
zipSupprimeFichier (en anglais zipDeleteFile)
// Création de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de "Fichier.txt"
ResSuppression
=
zipSupprimeFichier
(
"MonArchive"
,
"Fichier.txt"
)
...
FIN
|
Début de la page
ZipSupprimeListeFichier (en anglais zipDeleteFileList)
// Création de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de "Fichier.doc"
ResSuppression
=
zipSupprimeListeFichier
(
"MonArchive"
,
"Fichier.doc"
+
RC
+
"MonDoc.PDF"
)
...
FIN
|
Début de la page
ZipSupprimeListeFichier (en anglais zipDeleteFileList)
// Création de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de "Fichier.txt" et de "MonDoc.pdf"
ResSuppression
=
zipSupprimeListeFichier
(
"MonArchive"
,
"Fichier.txt"
+
RC
+
"MonDoc.PDF"
)
...
FIN
|
Début de la page
zipSupprimeTout (en anglais zipDeleteAll)
// Ouverture de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"C:\Temp\Archive.wdz"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de tous les fichiers
ResSuppression
=
zipSupprimeTout
(
"MonArchive"
)
...
FIN
|
Début de la page
zipSupprimeTout (en anglais zipDeleteAll)
// Ouverture de l'archive
ResOuverture
=
zipOuvre
(
"MonArchive"
,
"\Temp\Archive.zip"
)
SI
ResOuverture
=
0
ALORS
...
// Suppression de tous les fichiers
ResSuppression
=
zipSupprimeTout
(
"MonArchive"
)
...
FIN
|
Début de la page
zipTaille (en anglais zipSize)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
// Taille de l'archive ouverte
SI
ResOuvreArchive
=
0
ALORS
ResTailleArchive
=
zipTaille
(
"MonArchive"
)
...
FIN
|
Début de la page
zipTaille (en anglais zipSize)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
// Taille de l'archive ouverte
SI
ResOuvreArchive
=
0
ALORS
ResTailleArchive
=
zipTaille
(
"MonArchive"
)
...
FIN
|
Début de la page
zipTailleFichier (en anglais zipFileSize)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"C:\MesArchives\Archive.WDZ"
)
// Taille de "Fichier.txt"
SI
ResOuvreArchive
=
0
ALORS
ResTailleFichier
=
zipTailleFichier
(
"MonArchive"
,
"Fichier.txt"
)
...
FIN
|
Début de la page
zipTailleFichier (en anglais zipFileSize)
// Ouverture d'une archive
ResOuvreArchive
=
zipOuvre
(
"MonArchive"
,
"\MesArchives\Archive.zip"
)
// Taille de "Fichier.txt"
SI
ResOuvreArchive
=
0
ALORS
ResTailleFichier
=
zipTailleFichier
(
"MonArchive"
,
"Fichier.txt"
)
...
FIN
|
Début de la page
Auteur: Patrick Biker
