- VBSで便利なプログラムを作れスレ
615 ：デフォルトの名無しさん[sage]：2015/01/19(月) 22:34:01.04 ID:XQ8dBSiC - ブロックスコープをやりたいのだが
Rem Blockscope.vbs
Option Explicit
Sample
Function Sample()
Dim I
I = 10
I = Used
Msgbox Typename(I) 'Variant()
Rem I = 20 'Error at Erase I
Rem Set I = Nothing 'Error at Erase I
Erase I
End Function
Function Used()
Dim J()
Used = J
End Function
人力でErase I てのがバカっぽい
なんとかなりませんか
|
|