FAQ
Système
Function FindMesDocuments()
Dim Wsh As Object
Dim WshSystem As Object
Set Wsh = CreateObject("WScript.Shell")
Set WshSystem = Wsh.Environment("SYSTEM")
FindMesDocuments = Wsh.SpecialFolders("MyDocuments")
Set WshSystem = Nothing
Set Wsh = Nothing
End Function