**HOWTO:** `Set fso = CreateObject(« Scripting.FileSystemObject »)`

**Description**
Crée un FileSystemObject (FSO) pour manipuler fichiers/dossiers (lecture, écriture, copie, suppression…).

**Syntax**
`Set fso = CreateObject(« Scripting.FileSystemObject »)`

**Paramètres**
– *(aucun)*

**Retour**
Objet `Scripting.FileSystemObject`.

**Exemples**
« `vb
Dim fso
Set fso = CreateObject(« Scripting.FileSystemObject »)
WScript.Echo fso.GetSpecialFolder(2) ‘ TemporaryFolder
« `

**STATEMENT:** `With…End With`

**Description**
Réduit la répétition sur un même objet.

**Syntax**
`With…End With`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim re
Set re = CreateObject(« VBScript.RegExp »)
With re
.Pattern = « ^d+$ »
.Global = False
End With
WScript.Echo re.Test(« 123 »)
« `

**STATEMENT:** `On Error Resume Next`

**Description**
Gestion d’erreurs : continue l’exécution en cas d’erreur, puis contrôle via `Err`.

**Syntax**
`On Error Resume Next`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
On Error Resume Next
Dim fso, f
Set fso = CreateObject(« Scripting.FileSystemObject »)
Set f = fso.GetFile(« C:does_not_exist.txt »)
If Err.Number <> 0 Then
WScript.Echo « Erreur:  » & Err.Number &  » –  » & Err.Description
Err.Clear
End If
On Error GoTo 0
« `

**STATEMENT:** `Select Case`

**Description**
Alternative propre à une chaîne de If/ElseIf.

**Syntax**
`Select Case`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim role
role = « admin »
Select Case LCase(role)
Case « admin »
WScript.Echo « Accès complet »
Case « user »
WScript.Echo « Accès standard »
Case Else
WScript.Echo « Accès inconnu »
End Select
« `

**STATEMENT:** `Do…Loop`

**Description**
Boucle conditionnelle (While/Until).

**Syntax**
`Do…Loop`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim i
i = 0
Do While i < 3 WScript.Echo i i = i + 1 Loop ```

**STATEMENT:** `For Each…Next`

**Description**
Boucle sur une collection (ex: Dictionary, FSO.Files, etc.).

**Syntax**
`For Each…Next`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim d, k
Set d = CreateObject(« Scripting.Dictionary »)
d.Add « a », 1
d.Add « b », 2
For Each k In d.Keys
WScript.Echo k & « = » & d.Item(k)
Next
« `

**STATEMENT:** `For…Next`

**Description**
Boucle numérique.

**Syntax**
`For…Next`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim i
For i = 1 To 3
WScript.Echo i
Next
« `

**STATEMENT:** `If…Then…Else`

**Description**
Branche conditionnelle classique.

**Syntax**
`If…Then…Else`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Dim x
x = 10
If x > 5 Then
WScript.Echo « x est > 5 »
Else
WScript.Echo « x est <= 5" End If ```

**STATEMENT:** `Option Explicit`

**Description**
Force la déclaration des variables avec `Dim` (réduit fortement les bugs).

**Syntax**
`Option Explicit`

**Paramètres**
– *(aucun)*

**Notes**
– Astuce : active `Option Explicit` dans tes scripts pour éviter les variables mal orthographiées.

**Exemples**
« `vb
Option Explicit
Dim name
name = « Laurent »
WScript.Echo name
« `

**FUNCTION:** `FormatNumber(expression[, numdigitsafterdecimal[, includeleadingdigit[, useparensfornegativenumbers[, groupdigits]]]])`

**Description**
Formate une valeur numérique en chaîne (décimales, séparateurs, etc.).

**Syntax**
`FormatNumber(expression[, numdigitsafterdecimal[, includeleadingdigit[, useparensfornegativenumbers[, groupdigits]]]])`

**Paramètres**
– `expression` : Valeur numérique.

**Retour**
Chaîne formatée.

**Exemples**
« `vb
WScript.Echo FormatNumber(12345.678, 2, -1, 0, -1)
« `

**Output :** `12’345.68 (selon locale)`

**Voir aussi**
`FormatCurrency`, `FormatPercent`, `CStr`