//Ce traitement à pour intérêt de ne pas obtenir d`erreur lors de la manipulation d`un fichier qui ne peut pas l`être.
//Dans mon cas, ajout d`une image ou d`un dossier dans un mémo alors que WinZip est toujours actif sur ce fichier ou dossier.
//Variables
NomFichierSel est une chaîne
nIdFic est un entier
//Séléction du fichier ZIP de reproduction
NomFichierSel=fSélecteur("", "", "Sélectionnez un fichier...", "Tous fichiers (*.*)"+TAB+"*.*", "*.*", fselOuvre + fselExiste)
SI NomFichierSel <> "" ALORS
nIdFic = fOuvre(NomFichierSel, foBloqueLecture + foBloqueEcriture)
SI nIdFic = -1 ALORS
Info("Le fichier est actuellement ouvert. Fermez le et recommencez sa sélection")
SINON
SI fFerme(nIdFic) = -1 ALORS
Info("Eerreur lors de la fermeture du fichier " + NomFichierSel)
SINON
//Le fichier n`est pas en cours de consultation
//Programmez le traitement voulu sur ce fichier
FIN
FIN
FIN
|