Question : le vbscript créent le manuscrit de raccourci, ne remplissant pas le manuscrit, aucunes erreurs, code joint

Salut tout, le

my au-dessous de manuscrit crée d'abord un raccourci pour des utilisateurs dehors à la part de serveur si on ne fait pas déjà existe, fonctionne des suppressions du fine

second le raccourci de programme de défaut pour l'acte s'il existe, le fine

now de travaux que le 3ème devrait crée un raccourci au dossier de garniture d'acte s'il l'exists
i ACTE ne reçoit pas mon message « ! le lien n'existe pas créant maintenant ! » alors il ne fait pas la pente de l'anything
i voient pourquoi cela ne fonctionnerait pas l'un ou l'autre (seulement un débutant avec l'esprit de vbscript vous)

can n'importe qui point il dehors à moi ?
Thanks class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
objShell " de " codeSnippet838455 d'id= " de 
Dim de class= : Placer l'objShell = le CreateObject (« WScript.Shell »)
Obscurcir l'objFSO : Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
Obscurcir le strDesktopPath, ShrtServerFolders, ShrtACT

strDesktopPath = objShell.SpecialFolders (« ordinateur de bureau »)


Sinon objFSO.FileExists (strDesktopPath et « \ serveur Folders.lnk ») alors 'vérifient si le raccourci de chemise de serveur existe
	Placer ShrtServerFolders = objShell.CreateShortcut (strDesktopPath et « \ serveur Folders.lnk ») 'créent le lien de chemises de serveur
	ShrtServerFolders.TargetPath = « \ \ domain.local \ part »
	ShrtServerFolders.IconLocation = « c:\windows\system32\shell32.dll, 85 »
	ShrtServerFolders.Save 
Finir si

Si objFSO.FileExists (strDesktopPath et « \ ACTE ! par Sage Premium.lnk ») alors 'supprimer les dossiers de programme d'acte raccourcis s'il existe
	msgbox « son là »
	strDesktopPath d'objFSO.DeleteFile et « \ ACTE ! par Sage Premium.lnk » 'supprimer le lien
autrement
ACTE de msgbox « ! par Sage Premium.lnk n'existe pas ! »
Finir si

Sinon objFSO.FileExists (strDesktopPath et « \ ACTE ! .lnk ») alors 'vérifient si le raccourci de garniture d'ACTE existe
	ACTE de msgbox « ! le lien n'existe pas créant maintenant ! »
	Placer ShrtACT = objShell.CreateShortcut (strDesktopPath et « ACTE ! .lnk ») 'créent le lien de garniture d'acte
	ShrtACT.TargetPath = « \ \ domain.local \ part \ ACTE \ CH.PAD »
	ShrtACT.IconLocation = « \ \ domain.local \ NETLOGON \ act.ico, 0 »
	ShrtACT.Save 

autrement
ACTE de msgbox « ! Le lien existe »
	
Finir si
class= de

Réponse : le vbscript créent le manuscrit de raccourci, ne remplissant pas le manuscrit, aucunes erreurs, code joint

« Mailto : [email protected] ? Subject=MySubject&Body=MyBody »
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us