22 lines
635 B
Plaintext
22 lines
635 B
Plaintext
' -*- coding: utf-8 -*-
|
|
|
|
Set sh = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
windir = fso.getspecialfolder(0).path
|
|
|
|
programs = sh.specialfolders("Programs")
|
|
allprograms = sh.specialfolders("AllUsersPrograms")
|
|
If allprograms = "" Then
|
|
allprograms = programs
|
|
End If
|
|
|
|
desktop = sh.specialfolders("Desktop")
|
|
alldesktop = sh.specialfolders("AllUsersDesktop")
|
|
If alldesktop = "" Then
|
|
alldesktop = desktop
|
|
End If
|
|
|
|
' Répertoire de base. On assume que c'est le répertoire qui contient le script
|
|
basedir = wscript.scriptfullname
|
|
basedir = Mid(basedir, 1, Len(basedir) - Len(wscript.scriptname) - 1)
|