Comment vérifier l'existence d'un fichier en VBScript

VBScript (Visual Basic Scripting Edition) permet de scripter des tâches Windows. Vérifier l'existence d'un fichier avant d'agir dessus évite les erreurs d'exécution. On utilise l'objet Scripting.FileSystemObject et sa méthode FileExists.

Script complet commenté

' Vérification existence fichier - FileCheck.vbs
Option Explicit          ' Force déclaration variables (bonne pratique)

Dim fso, cheminFichier, msg

' 1. Chemin du fichier à tester (modifiez selon besoin)
cheminFichier = "C:\Temp\test.txt"

' 2. Création de l'objet FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' 3. Test existence
If fso.FileExists(cheminFichier) Then
    msg = "Fichier TROUVÉ : " & cheminFichier & vbCrLf & _
          "Taille : " & fso.GetFile(cheminFichier).Size & " octets" & vbCrLf & _
          "Créé le : " & fso.GetFile(cheminFichier).DateCreated & vbCrLf & _
          "Modifié le : " & fso.GetFile(cheminFichier).DateLastModified
    WScript.Echo msg
Else
    WScript.Echo "Fichier INTROUVABLE : " & cheminFichier
End If

' 4. Nettoyage (bon usage)
Set fso = Nothing

Comment l'utiliser

1. Copiez le code ci-dessus dans le Bloc-notes.
2. Enregistrez sous C:\Scripts\FileCheck.vbs (extension .vbs obligatoire).
3. Modifiez la variable cheminFichier pour pointer vers votre fichier cible.
4. Double-cliquez le fichier .vbs → une boîte de message affiche le résultat.
5. Pour l'intégrer dans un script plus large : copiez le bloc If fso.FileExists(...).

Variantes utiles

Vérifier un dossier (au lieu d'un fichier)

If fso.FolderExists("C:\MonDossier") Then
    WScript.Echo "Dossier existe"
End If

Vérifier fichier OU dossier (chemin générique)

If fso.FileExists(chemin) Or fso.FolderExists(chemin) Then
    ' Existe (fichier ou dossier)
End If

Obtenir l'objet Fichier pour manipulations ultérieures

If fso.FileExists(chemin) Then
    Dim fichier
    Set fichier = fso.GetFile(chemin)
    ' fichier.Size, fichier.DateCreated, fichier.DateLastModified, fichier.Attributes
    ' fichier.Copy "C:\Backup\", fichier.Move "C:\Archive\", fichier.Delete
    Set fichier = Nothing
End If

Version fonction (réutilisable)

Function FichierExiste(chemin)
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    FichierExiste = fso.FileExists(chemin)
    Set fso = Nothing
End Function

' Utilisation :
If FichierExiste("C:\Data\config.ini") Then
    ' ...
End If

Exécution en ligne de commande (sans boîte de message)

cscript //nologo C:\Scripts\FileCheck.vbs

Renvoie le texte dans la console (redirigeable vers fichier : > resultat.txt).

Attention

• Double-clic sur un .vbs l'exécute. Pour éditer : clic droit > « Modifier » (ou « Edit »).
• Chemins avec espaces : pas de guillemets nécessaires dans la variable VBScript (chemin = "C:\Mes Docs\file.txt" fonctionne).
• Droits : le script s'exécute avec vos privilèges. Fichier système protégé → peut retourner « Faux » même s'il existe (accès refusé).
• Sensibilité à la casse : insensible sur Windows (NTFS/FAT32).