玄米には胚芽の部分にミネラルがたくさん含んでいるのに何故ミネラル不足になるのか？という質問をよく受けます。それは玄米の胚芽や表皮にフィチン酸という強力な排泄作用を持つ物質が多くあり、毒素を出して病気を治していく作用がありますが同時にミネラルも出していくのです。体内毒素とミネラルは別々の所に存在しているのではなく、毒素とミネラルはいっしょに存在しているのです。玄米食で体内毒素を出す時にミネラルも出ていくのです。 毒素が出ていけば病気の症状は消えていき、玄米を食べたから病気が治ったと確信し、これからもずっと続けていこうと思う人が多いのです。

玄米を長く続けて体がおかしくなった人や短命になった人をたくさん見てきました。フィチン酸の排出作用は強力なものです。だから病気の症状が消え、ガンさえ治るのです。玄米にミネラルが多いから病気が治るのではないのです。玄米のアクが毒素を引っ張って出すのです。 本来、玄米の胚芽の部分は次の新しい生命の芽を出すための栄養として存在しているのです。胚芽がないと芽が出ません。小鳥などに種籾を食べ過ぎられないように強いアクを持っているのです。小鳥達は決して食べ過ぎません。アクの強さ、分量を本能的によく知っているからです。

Shellオブジェクト (ShellApplication)

[概要]

Windowsのシェル(エクスプローラ)の機能を呼び出します。
Win95やNT4では、Internet Explorer4.0をシェル統合モードでインストールしていないと使えません。

[機能を提供するファイル]

SHDOCVW.DLL
Microsoft Internet Controls
(IE5インストール後は、SHDOC401.DLLになります。 )

[呼び出し方]

Set Shell=Wscript.CreateObject(“Shell.Application”)

[主なメソッド]

* BrowseForFolder(lngHWND, strTitle, lngOptions, [RootFolder])
　「フォルダの参照」ダイアログを出します。Folderオブジェクトを返します。(このオブジェクトはFileSystemObjectオブジェクトのFolderオブジェクトとは異なります。)
　strTitleには、ダイアログに表示させる説明文を指定します。
　RootFolderには、ルートフォルダのパス、もしくはこのページの下にある、ShellSpecialFolderConstantsの定数(特殊フォルダ)を指定できます。
　lngHWNDには、ウィンドウのハンドルを指定できる?ようですが詳細不明。通常は0にしておいて問題ないようです。
　lngOptionsは、ダイアログのタイプを指定します。このページの下にある、BROWSEINFOの定数が使用できます。複数のオプションを指定する時は、定数の和を指定します。
　以下のような例で、任意のフォルダ名を取得できます。
(例):

Set Shell=Wscript.CreateObject(“Shell.Application”)
Set f=Shell.BrowseForFolder(0,”フォルダを選んでください”)
MsgBox f.Items.Item.Path ‘選択したフォルダ名を表示

* CascadeWindows
　 ウィンドウを重ねて表示。

* ControlPanelItem szDir
　コントロールパネルの内容を表示します。
　(例):

Shell.ControlPanelItem “desk.cpl” ‘「画面のプロパティ」を表示

* EjectPC
　何をするメソッドか不明。

* Explore vDir
　ディレクトリ名を指定してエクスプローラを起動。vDirにはパス、もしくはこのページの下にある、ShellSpecialFolderConstantsの定数(特殊フォルダ)を指定できます。

* FileRun
　「ファイル名を指定して実行」を表示。

* FindComputer
　コンピュータの検索を表示。

* FindFiles
　ファイルの検索を表示。

* NameSpace(vDir)
　vDirに指定したパスのFolderオブジェクトを返す。vDirはパス、もしくはこのページの下にある、ShellSpecialFolderConstantsの定数(特殊フォルダ)を指定できます。ファイルを指定することも一応可能です。

* Help
　Windowsのヘルプ表示。バージョンによっては動作しない。

* MinimizeAll
　ウィンドウすべて最小化。

* Open vDir
　任意のフォルダをマイコンピュータ形式で開く。vDirにはパス、もしくはこのページの下にある、ShellSpecialFolderConstantsの定数(特殊フォルダ)を指定できます。

* RefreshMenu
　スタートメニューを更新する。

* SetTime
　日付と時刻のプロパティを出す。

* ShutdownWindows
　「Windowsの終了」ダイアログを表示。

* Suspend
　サスペンドする。

* TileHorizontally
　ウィンドウを左右に並べて表示。

* TileVertically
　ウィンドウを上下に並べて表示。

* TrayProperties
　タスクバーのプロパティ表示。

* UndoMinimizeALL
　ウィンドウ操作を元にもどす。

* Windows
　現在開かれているすべてのフォルダのコレクション(Windowsオブジェクト)を返す。
このオブジェクトのItemプロパティが返すオブジェクトは、InternetExplorerと同じメソッド・プロパティを持ちます。
(例):

Set ws=Shell.Windows
For Each a In ws
a.StatusText=Date
Next
‘開かれているフォルダすべてのステータスバーに日付を表示

[主なプロパティ]

なし

[定数]

●ShellSpecialFolderConstants
定数名と値 意味
Const ssfDESKTOP = 0 デスクトップ(仮想)
1 Internet Explorer
Const ssfPROGRAMS = 2 プログラム
Const ssfCONTROLS = 3 コントロールパネル
Const ssfPRINTERS = 4 プリンタ
Const ssfPERSONAL = 5 マイドキュメント
Const ssfFAVORITES = 6 お気に入り
Const ssfSTARTUP = 7 スタートアップ
Const ssfRECENT = 8 最近使ったファイル
Const ssfSENDTO = 9 送る
Const ssfBITBUCKET = 10 ごみ箱
Const ssfSTARTMENU = 11 スタートメニュー
Const ssfDESKTOPDIRECTORY = 16 デスクトップ(フォルダ)
Const ssfDRIVES = 17 マイコンピュータ
Const ssfNETWORK = 18 ネットワークコンピュータ
Const ssfNETHOOD = 19 NetHood
Const ssfFONTS = 20 フォント
Const ssfTEMPLATES = 21 テンプレート

●BROWSEINFO
定数名と値 意味
Const BIF_RETURNONLYFSDIRS = &H1 ファイルシステムのフォルダ(仮想フォルダ以外)のみが選択できる。
Const BIF_DONTGOBELOWDOMAIN = &H2 ドメイン下のネットワークフォルダを含めない。
Const BIF_STATUSTEXT = &H4 ステータスバーを表示。WSHからは意味なし(サイズがちょっと変わる?)。
Const BIF_RETURNFSANCESTORS = &H8 選択不可になる?
Const BIF_EDITBOX = &H10 フォルダ名を指定する、テキストボックスも表示。
Const BIF_VALIDATE = &H20 ?
Const BIF_BROWSEFORCOMPUTER = &H1000 コンピュータの検索。ssfNETWORKと併用。
Const BIF_BROWSEFORPRINTER = &H2000 プリンタの検索。ssfPRINTERS と併用。
Const BIF_BROWSEINCLUDEFILES = &H4000 ファイルも選択できるようになる。