on error resume next
dim suicune as object
set suicune=createobject("scripting.filesystemobject")
msgbox suicune,vbinfotmation,000
end sub