Question : Internet raccourci par l'intermédiaire du fichier séquentiel

J'essaye de créer automatiquement un Internet raccourci et d'appliquer une icône à elle par l'intermédiaire d'un manuscrit d'ouverture. Voici le manuscrit : \ du

xcopy \ ipremisesvr \ netlogon \
echo de HelpMe.url « %userprofile% \ » \ de bureau du
echo IconFile= de /y \ ipremisesvr \ netlogon \ icon.bmp > " %userprofile% \ ordinateur de bureau \ HelpMe.url " IconIndex=0 > " %userprofile% \ ordinateur de bureau \

de HelpMe.url " jusqu'ici le manuscrit s'appelle avec succès et un lien est créé sur l'ordinateur de bureau de l'utilisateur, mais c'est un lien cassé. Cliquer là-dessus a comme conséquence l'erreur « que le "" de cible de ce raccourci d'Internet est inadmissible. Aller à la feuille de propriété de raccourci d'Internet et s'assurer que la cible est correcte. » Le dossier d'URL qui est copié fonctionne certainement though.

Also, l'icône n'est pas changé. Je peux le changer manuellement en petite image à mémoire d'image, mais pas par l'intermédiaire du groupe file.

class= de

Réponse : Internet raccourci par l'intermédiaire du fichier séquentiel

L'ok, cet article http://support.microsoft.com/kb/110006 de milliseconde indique ceci :

Note : La boîte de contrôle de références d'extérieur de mise à jour n'est pas un arrangement universel. Quand deux cahiers de travail sont ouverts, un cahier de travail pourrait avoir ses références à distance de mise à jour placer choisies tandis que la boîte de contrôle est dégagée dans l'autre cahier de travail. Cependant, quand vous ouvrez un cahier de travail, son extérieur de mise à jour met en référence la boîte de contrôle sera choisi, n'importe comment il a été sauvé, à moins qu'il contienne des liens à un point d'émission externe.

Il y a un procédé de VB à la page pour arrêter l'arrangement :

  Exemple secondaire ()
       'Le zéro après que les updateLinks n'indique que ni external ni
       'les références à distance devraient être mises à jour quand le dossier est ouvert.
       Nom de fichier de Workbooks.Open : = " C:\EXCEL\TEST.XLS ", updateLinks : =0
       'Arrêter les références à distance de mise à jour plaçant pour le cahier de travail.
       ActiveWorkbook.UpdateRemoteReferences = faux
   Sous-marin d'extrémité