トップページ > コンテンツ > プログラミング入門 > UWSC入門 > UWSCでのフォルダオープン

http://d.hatena.ne.jp/t_amago/20071014/p2にやり方が書いてあったので、備忘録的にメモ。

(例)複数のファイルを開く

TEXTBLOCK TEST
C:¥aaa¥bbb¥ccc.txt
C:¥ddd¥eee¥fff.txt
ENDTEXTBLOCK

sample = TEST
while (sample <> "")
Dim line = TOKEN("<#CR>",sample,TRUE)
IFB FOPEN(line, F_EXISTS) THEN
   wss = createobj("wscript.shell")
   wss.run("<#dbl>"+line+"<#dbl">)
ENDIF
wend