TestScript/dlg2.vbs

   1 ' Common Dialog Sample2
   2 dim obj
   3 set obj = CreateObject("SeraphyScriptTools.CommDialog")
   4
   5 dim ret
   6 ret = "c:\"
   7 do
   8         ret = obj.BrowseForFolder("\8eQ\8fÆ\82·\82é\83t\83H\83\8b\83_\82ð\8ew\92è\82µ\82Ä\82\82¾\82³\82¢",ret,0)
   9         if(isEmpty(ret)) then exit do
  10         msgbox ret
  11 loop
  12