Macro AHGtoLocal - Copie de fichier vers local

Attention : Ce code nécessite des droits administrateur.

La macro vérifie l'existence du répertoire de destination (et le crée si nécessaire via %AHGmkdir), extrait le nom du fichier, et utilise la commande système 'copy' (syntaxe Windows) via l'instruction SYSTASK pour effectuer la copie. Elle propose une option pour ouvrir le fichier résultant.

Analyse des données

Type : EXTERNE

Manipulation de fichiers physiques via le système d'exploitation.

1 Bloc de code

MACRO

Explication :
Définition de la macro : gestion des paramètres par défaut, création conditionnelle du répertoire cible, exécution synchrone de la commande de copie OS (Windows) et ouverture conditionnelle du fichier.

Copié !

1	%macro AHGtoLocal(from,to=,open=0,where=);
2
3	%IF %AHGblank(&to) %THEN %let to=%AHGtempdir;
4	%IF not %sysfunc(fileexist(&to)) %THEN %AHGmkdir(&to);
5	%local filename;
6	%let filename=%AHGfilename(&from);
7	option xsync;
8	systask command "copy &from &to /y" wait;
9
10	%IF &open=1 %THEN %AHGopenfile(&to\&filename,&where);
11
12	%mend;

Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.

Retour à la liste