Sub test()
Dim FSO, TmpFolder, TestPath
Set FSO = CreateObject("scripting.filesystemobject")
Set TmpFolder = FSO.GetSpecialFolder(2)
MsgBox "%temp% = " & TmpFolder, vbInformation
TestPath = FSO.GetFolder("C:\Temp")
MsgBox "Le répertoire " & TestPath & _
IIf(FSO.FolderExists(TestPath), " existe", "n'existe pas") & " sur ce PC."
End Sub