Désolé j'ai oublié de suivre les réponses à ton précédent message sur le sujet
En utilisant le FileSystemObject, j'ai un truc comme ça:
Dim ls_Path
Dim objFSO
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
ls_Path="c:\test.txt"
If objFSO.FileExists(ls_Path) Then
MsgBox ls_Path & " est un fichier"
End If
If objFSO.FolderExists(ls_path) Then
MsgBox ls_Path & " est un répertoire"
End If