20021009版ソース

[seraphyscrtools/SeraphyScriptTools.git] / TestScript / sfolder.vbs

dim obj
set obj = CreateObject("SeraphyScriptTools.Shell")

set map = CreateObject("SeraphyScriptTools.ObjectMap")
obj.getspecialfolderlocations(map)

mes = ""
for each x in map
        mes = mes &  x & " = " & map.value(x) & vbcrlf
next
msgbox mes