nutools/legacy/vbsinc/base

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)