Discussion :

[scratch1234]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ProgElecT]

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.

[scratch1234]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scratch1234]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :')

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[scratch1234]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

j'ai une erreur quand j'execute le script

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                Set WshShell = CreateObject("WScript.Shell")
                Desktop = WshShell.SpecialFolders("Desktop")
                ChemPlusFichierVBS = Desktop & "\XX.vbs"
                WshShell.Run ChemPlusFichierVBS
                Set WshShell = Nothing