TestScript/dlg1.vbs

   1 ' Common Dialog Sample1
   2 dim obj
   3 set obj = CreateObject("SeraphyScriptTools.CommDialog")
   4
   5 dim ret
   6 do
   7         ret = obj.OpenFileDialog(lst,"\83e\83L\83X\83g(*.TXT;*.DOC)|*.TXT;*.DOC|\83\8d\83O(*.TXT;*.LOG)|*.TXT;*.LOG|\82·\82×\82Ä(*.*)|*.*")
   8         if(isEmpty(ret)) then exit do
   9         msgbox ret
  10 loop