importation initiale dans git

legacy/vbsinc/base

@@ -0,0 +1,21 @@
+' -*- 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)