[InstallShield] Fichier copié au mauvais endroit

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [InstallShield] Fichier copié au mauvais endroit

Pyo

Salut à tous,

J'ai un truc qui m'énerve depuis 2h, je viens donc appeler à l'aide !

Dans mon script, je vais rechercher sur la disquette (A si le fichier license est là.

Si il y est, je copie ce fichier dans le répertoire d'installation du programme (répertoire choisi par l'utilisateur précédemment)

Or mon problème est que mon script copie mon fichier dans le dossier contenant l'installateur (Setup.exe) ><

Voici la partie de code qui copie mon fichier :

Code :

// Copier le fichier tee_pso.lic
CopyPasswordFile:
bPasswdInstall = FALSE ;
retBox = AskYesNo("Do you want to install the license file ?", YES) ;
if (retBox) then
szSrcDir = SRCDIR ;
strResult = "A:\\" ;
if (GetSystemInfo(DRIVE, nvResult, strResult)=0) then
if (nvResult=IS_REMOVABLE) then
szMsg = "Put the 'Password' floppy disk in drive A:\n and click on the 'Ok' button" ;
MessageBox(szMsg, INFORMATION) ;
TARGETDIR = svMainDirectory ;
SRCDIR = "A:\\" ;
// Chercher le 'ComputerName'
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE) ;
szRegKey = "SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName" ;
szName = "ComputerName" ;
RegDBGetKeyValueEx(szRegKey, szName, nvType, svValue, nvSize) ;
// Construire le nom du fichier de licence
passwordfilename = "tee_pso_" + svValue + ".lic" ;
fullpasswordfilename = SRCDIR ^ passwordfilename ;
#ifdef DEBUG
szMsg = "Fichier de licence recherché : " + passwordfilename + "\n\n" ;
MessageBox(szMsg, INFORMATION) ;
#endif
if (GetFileInfo(fullpasswordfilename, FILE_SIZE, nvResult, szResult)<0) then
szMsg = "Can't find '" + passwordfilename + "' on floppy disk\n\n" ;
szMsg = szMsg + " -> You will have to copy it manually\n\n" ;
MessageBox(szMsg, WARNING) ;
goto DisplayEndMessage ;
else
// svLicenseDirectory = "C:\Program Files\TEE_PSO\Flexlm\tee_pso.lic";
retBox = CopyFile(passwordfilename, "tee_pso.lic" );
if (retBox<0) then
szMsg = "Unable to copy '" + fullpasswordfilename + "' to " + TARGETDIR ;
#ifdef DEBUG
NumToStr(szTemp, retBox) ;
szMsg = szMsg + " Code d'erreur " + szTemp + " \n\n" ;
#endif
MessageBox(szMsg, SEVERE) ;
abort ;
endif ;
bPasswdInstall = TRUE ;
endif ;
endif ;
endif ;
SRCDIR = szSrcDir ;
endif;
DisplayEndMessage:
// If shared files could not be installed, then users must restart system.
if (BATCH_INSTALL) then
szMsg = "Some files could not be installed because they are " +
"currently in use by other programs in the system. " +
"To allow for proper operation of the new program you should restart" +
"your system at this time." ;
CommitSharedFiles(0) ;
RebootDialog("Restart Windows", szMsg, SYS_BOOTMACHINE) ;
else
szMsg = "Setup is complete.\n\n\n" ;
// Message pour Windows NT
if (!bPasswdInstall) then
svMainDirectory = TARGETDIR;
szMsg = szMsg + "Don't forget to copy the license file tee_pso.lic\n" ;
szMsg = szMsg + " to the FLEXlm directory '" + svMainDirectory + "'\n\n" ;
endif ;
endif ;
MessageBeep(0) ;
MessageBox(szMsg, INFORMATION) ;

Je signale que j'utilise InstallShield Professional X mais ce code n'a aucune fonction récente.

Je vous remercie d'avance pour votre aide !

Publicité

wackevat

Code :

retBox = CopyFile(passwordfilename, "tee_pso.lic" );

Et si tu precisais de facon explicite le dossier de destination ?

gatsu35

Blablaté par Harko

Si je peux me permettre, lire une licence sur une disquette c'est totalement dépassé, autant rentrer un numero de série. Car accessoirement, plus aucun ordi n'a de lecteur de disquette. Ou bien ils sont très très rares

Pyo

j'ai essayé de remplacer tee_pso.lic par C:\Program Files\TEE_PSO\Flexlm\tee_pso.lic
C'est le répertoire d'installation proposé, j'ai fait ça pour tester mais ça me ressort l'erreur (pourtant le dossier est créé vu qu'il a installé les autres fichiers dedans)

Code :

Unable to copy 'A:\tee_pso_TW010882.lic" to

Le TW010882 c'est le nom de mon PC test donc normal mais le problème c'est qu'il ne reconnait pas "INSTALLDIR" (vu qu'il ne s'affiche pas dans mon message)

Il faudrait que je remplace le répertoire par TARGETDIR mais il ne le reconnait pas.

Par contre, lorsque je clique sur "Non" lors du MsgBox qui me demande si je veux copier le fichier license, là il m'affiche bien le message "Don't forget to copy tee_pso.lic to C:\Program Files\TEE_PSO\Flexm"
Et donc là, la variable INSTALLDIR s'affiche correctement ...

Sinon pour Gatsu35, ce n'est pas moi qui décide ^^ Je suis en job d'étudiant et je dois créer les installateurs des programmes développés par la société dans laquelle je bosse pour le moment ...
Mais c'est vrai que c'est un peu dépassé comme méthode

Pyo

J'ai finalement trouvé la solution à mon problème.

Lorsque l'utilisateur choisit le répertoire d'installation, j'ai directement créé une variable "szRepertInstall" qui était égale à TARGETDIR.

Après, lors de ma 2ieme fonction (celle qui s'occupe du fichier license), je ré-annonce cette variable.

Puis lors de la copie de mon fichier je fais ceci :

Code :

svLicenseDirectory = szRepertInstall ^ "tee_pso.lic";
retBox = CopyFile(passwordfilename, svLicenseDirectory);

Et il le copie correctement

FORUM HardWare.fr

Programmation

Divers

[InstallShield] Fichier copié au mauvais endroit

Sujets relatifs
résultat d'une requete dans fichier que si requete retourne des lignes	logiciel vb 6.0 parsing fichier xml existant sur serveur
logiciel vb 6.0 faire le parsing d'un fichier xml sur serveur	un logiciel en vb 6.0 le parsing de fichier xml existe sur un serveur
[InstallShield] Voir code source + serial number + choix à cocher	& dans un nom de fichier
file_put_contents : ne veut pas fonctionner si le fichier n'existe pas	Récupérer fichier son depuis serveur distant
Fonction pour md5 d'un fichier + compiler la lib	macro insertion image word depuis un fichier
Plus de sujets relatifs à : [InstallShield] Fichier copié au mauvais endroit

Page générée en 0.068 secondes