Suppression fichier si taille égale 0

Bonjour,

Je cherche à supprimer un fichier si sa taille est égale a 0
j'ai fait ça mais sa ne fonctionne pas
Code:

1 2 3 4 5 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile("D:\fichier.txt") If objFile.Size = 0 Then objFSO.DeleteFile("D:\fichier.txt") End If
si quelqu'un peut me m'aider sa serais parfait :)

Merci

..........
J'ai trouver la solution le sujet peut etre clos