Los Favoritos del IE es una carpeta dentro de la carpeta de usuario de windows que contiene los links a las paginas almacenadas como favoritas. En este ejemplo, vamos a ver como crear un link sencillo, pero las posibilidades del link permiten adornarlo mucho más.
Tambien vamos a crear una carpeta dentro de Favoritos para así ver como podriamos crear una estructura organizada por carpetas.
Dependiendo del SO puede ser que tengamos la carpeta Favoritos o en su defecto Favorites. En este ejemplo veremos como comprobar cual es la correcta para almacenar nuestro link.
| Name | DataType | Subtype |
| CarpetaPersonal | Text | |
| Carpeta | Automation | 'Microsoft Scripting Runtime'.FileSystemObject |
| CarpetaMia | Text | |
| TempInformes | Record | Informes |
| LCarpetaFavoritos | Text | |
| Continuar | Boolean |
| Fichero | File |
| Link | Text |
//Creo las variables de la carpeta de favoritos mia que voy a crear, la del link de mi informe y
//la variable de entorno donde esta la carpeta favoritos
CarpetaPersonal := ENVIRON('USERPROFILE');
CarpetaRaiz := 'MIS INFORMES';
Link := 'http://servidor/......MIS INFORME';
//Creo el controlador de carpetas
IF ISCLEAR(Carpeta) THEN
CREATE(Carpeta);
//Compruebo si existe en español o ingles
IF Carpeta.FolderExists(CarpetaPersonal + '\Favorites') THEN BEGIN
Continuar := TRUE;
LCarpetaFavoritos := '\Favorites';
END ELSE BEGIN
IF Carpeta.FolderExists(CarpetaPersonal + '\Favoritos') THEN BEGIN
Continuar := TRUE;
LCarpetaFavoritos := '\Favoritos';
END ELSE BEGIN
Continuar := FALSE;
END;
END;
//Continuo si encuentro Favoritos en el idioma español o ingles
IF Continuar = TRUE THEN BEGIN
//Creo mi carpeta dentro de favoritos
IF NOT Carpeta.FolderExists(CarpetaPersonal + LCarpetaFavoritos + '\'+ CarperaRaiz) THEN BEGIN
Carpeta.CreateFolder(CarpetaPersonal + LCarpetaFavoritos + '\' + CarperaRaiz);
END;
//Creo el fichero .url dentro de mi carpeta de favoritos Informe de Prueba.url es el nombre que aparecera en el menu de favoritos
Fichero.CREATE(CarpetaPersonal + LCarpetaFavoritos + '\' + CarperaRaiz + '\' + 'Informe de Prueba.url');
Fichero.WRITEMODE := TRUE;
Fichero.TEXTMODE := TRUE;
Fichero.WRITE('[InternetShortcut]');
Fichero.WRITE('URL='+Link);
Fichero.WRITE('IDList=');
Fichero.CLOSE;
END;
Con este código podemos facilitar el sacar informes de Reporting Services haciendolo directamente desde IE.
