Fonction include en vbs

'---------------Fonction permettant d'inclure un fichier *.vbs
Sub Include(sInstFile)
  On Error Resume Next
  Dim oFSO, f, s
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  If oFSO.FileExists(sInstFile) Then
    Set f = oFSO.OpenTextFile(sInstFile)
    s = f.ReadAll
    f.Close
    ExecuteGlobal s
  End If
  Set oFSO = Nothing
  Set f = Nothing
End Sub
 
'----------------Inclusion
include("mon_fichier.vbs")

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *