ダイナブック2590xのバッテリランプが点灯しないとき

電源を切る
ACアダプタをはずす
バッテリーをはずす
ACアダプタを付ける
ESCを押しながら起動
文字が出たらＦ１キーを押す
BIOS画面が出たら「HOME」キーを押す
「END」キーを押す
「SURE・・・（Y/N）」とでたら「Ｙ」キーを押す
再起動するので、終了する
バッテリーを付ける
起動する
これで、オレンジのランプが点灯すればＯＫ

フォルダ選択VBA

Sub test_フォルダーの選択()

Dim objShell As Object 'Shell
Dim objFolder As Object 'Shell32.Folder
Const strTitle = "フォルダを選択してください。"

'シェルのオブジェクトを作成する
Set objShell = CreateObject("Shell.Application")

'フォルダー参照に設定
Const lngRef = &H1
'ルートフォルダーをデスクトップに設定
'5でMy Documents、6でFavoritesなど
Const fldRoot = &H0

Set objFolder = _
objShell.BrowseForFolder(0, _
strTitle, lngRef, fldRoot)
Set objShell = Nothing

'フォルダー名を取出す
Dim strMSG
If objFolder Is Nothing Then 'キャンセルチェック
strMSG = "キャンセル押しやがって、えっキャンセル押されたらのテスト？"
Else
If objFolder.ParentFolder Is Nothing Then
strMSG = "選択されたのは[ルート(デスクトップ)]です"
Else
strMSG = "選択されたのは[" & objFolder.Items.Item.Path & "]です"
End If
End If
MsgBox strMSG

End Sub