|
| Inicio → WINDEV 2025 → Impossible de supprimer un fichier ZIP téléchargé sur internet avec fsupprime() |
| Impossible de supprimer un fichier ZIP téléchargé sur internet avec fsupprime() |
| Iniciado por Jean-Michel C, 12,dic. 2018 18:22 - 2 respuestas |
| |
| | | |
|
| |
Miembro registrado
474 mensajes |
|
| Publicado el 12,diciembre 2018 - 18:22 |
Bonjour à tous,
Je cherche un moyen pour débloquer par programmation la sécurité d'un fichier qui provient d'internet.
(case à coché "Débloquer" dans l'onglet général des propriétés d'un fichier)
J'ai essayé ça
// Déverouille le fichier provenant d'une source externe
resCmd est un booléen
sCmdTotal est une chaîne
sCmd est une chaîne = "cmd.exe dir "
sFic est une chaîne = fCheminLong(SAI_Fichier_a_transferer)
sOpt est une chaine = " -Recurse | Unblock-File"
sCmdTotal = "%1"+"%2"+"%3"
resCmd = LanceAppli(ChaîneConstruit(sCmdTotal,sCmd,sFic,sOpt))
Mais ça ne fonctionne pas.
Est ce que quelqu'un a une solution ?
Merci
--
Jean-Michel |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
953 mensajes |
|
| Publicado el 13,diciembre 2018 - 14:58 |
bonjour Jean-Michel
il faut appelle la méthode DeleteFileA de la dll Kernel32 , en ajoutant à la fin de votre fichier ":Zone.identifier"
à tester mais normalement çà fonctionne ,
un peu comme ceci :
// Prototype de la fonction : BOOL WINAPI DeleteFileA( LPCSTR lpFileName );
DeleteFileA est une Description d'API
DeleteFileA.NomDLL = "kernel32.dll"
DeleteFileA.NomFonction = "DeleteFileA"
DeleteFileA.Paramètre[1].Type = apiEntierSystème // lpFileName
_file est une chaîne=ComplèteRep(SysRep(srTéléchargements))+"ePOS_SDK_UniversalWindowsApps_v2.9.2.zip"
_suffixe_file est une chaîne=":Zone.identifier"
_file_dest est une chaîne
SI fFichierExiste(_file) ALORS
_file_dest=_file+_suffixe_file
DeleteFileA(&_file_dest)
Info("Fichier débloqué")
SINON
Erreur("fichier : "+_file+" inexistant !")
FIN
bon dèv |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
474 mensajes |
|
| Publicado el 18,diciembre 2018 - 10:06 |
Merci beaucoup Christophe 
--
Jean-Michel |
| |
| |
| | | |
|
| | | | |
| | |
|