remplacer le chemin d'un fichier classique en un universel en vbs

Bonjour a tous !!

Je me permet de faire ce post car j'aimerais remplacer un chemin de fichier "classique" dans in fichier vbs pour qu'il soit exécutable sur n'importe quel pc

par exemple :

Code:

---

1 2 3 4

dim Fso set Fso = CreateObject ( "Scripting.FileSystemObject" )   Fso.DeleteFile("C:\Users\NomDeCompte\Desktop\raccourci.lnk")

---

Sauf que sous cette forme la il ne fonctionnera que sur ma cession....

J'ai pu voir en me documentant qu'il y avait une fonction specialfolder mais je n'arrive pas a comprendre comment elle fonctionne.

Auriez vous une solution ?

Salut

Dans la FAQ, Comment lister les dossiers spéciaux de Windows ?, en fin de chapitre tu y découvriras Accéder à un dossier particulier.

comment je fait si je veux ouvrir un fichier spécifique si j'utilise :

Code:

---

1 2	Set WshShell = WScript.CreateObject("WScript.Shell") MsgBox WshShell.SpecialFolders("Desktop")

---

:salut:

Code:

---

1 2 3

Set WshShell = CreateObject("WScript.Shell") Desktop = WshShell.SpecialFolders("Desktop") WshShell.Run Desktop

---

Citation:

---

Envoyé par hackoofr

:salut:

Code:

---

1 2 3

Set WshShell = CreateObject("WScript.Shell") Desktop = WshShell.SpecialFolders("Desktop") WshShell.Run Desktop

---

---

imaginons que le fichier que je veuille excuser avec la commande si dessus soit XX.vbs ?

je suis perdu la :')

Salut
:koi:

Code:

---

1 2 3

Desktop = WshShell.SpecialFolders("Desktop") ChemPlusFichierVBS = Desktop & "/XX.vbs" WshShell.Run ChemPlusFichierVBS

---

:cfou:

Citation:

---

Envoyé par ProgElecT

Salut
:koi:

Code:

---

1 2 3

Desktop = WshShell.SpecialFolders("Desktop") ChemPlusFichierVBS = Desktop & "/XX.vbs" WshShell.Run ChemPlusFichierVBS

---

:cfou:

---

j'ai une erreur quand j'execute le script :aie:

Pièce jointe 556323

Salut

Code:

---

1 2 3 4 5

Set WshShell = CreateObject("WScript.Shell") Desktop = WshShell.SpecialFolders("Desktop") ChemPlusFichierVBS = Desktop & "\XX.vbs" WshShell.Run ChemPlusFichierVBS Set WshShell = Nothing

---