获取Windows和System路径的VB6.0代码