デスクトップのファイルを全部チェック
サーバーの移行に伴って、サーバーにあるファイルへの
ショートカットがリンク切れとなる障害が発生する
ショートカットのリンクが切れているからといって、
普通にPCを触っている人なら、たいした問題とは
ならないのだが、ショートカットがなにかという
こと自体を知らない人にとっては、リンク先へ
いけないことはとても大問題になってしまう。
そこで、デスクトップとマイドキュメントにある
ショートカットファイルだけに絞って、リンク先を
変更してしまおう！ヾ(＠°▽°＠)ﾉ
っと考えた。
先日から使っている、VBScriptだ！ﾍ(ﾟ∀ﾟ*)ﾉ
便利だし、アプリじゃないし、ループ処理さえ間違え
無ければ、簡単すぎるほど簡単だし！！
というわけで、フォルダ内のファイルを列挙する
方法の応用でショートカットファイルだけリンク先の
変更をやってみよう！(￣ー☆
'Shellスクリプトを呼び出す。
Set ws = WScript.CreateObject("WScript.Shell")
Set Shell = CreateObject("Shell.Application")
'デスクトップフォルダをオブジェクトとしてセットする
Set objFolder = Shell.NameSpace(0)
'デスクトップのアイテムコレクション
Set objFolderItems = objFolder.Items()
'コレクションをForEachでループしてファイルを見る
For Each item in objFolderItems
'ファイル名を格納
str = objFolder.GetDetailsOf(item, 0)
'ショートカットファイルだった場合、
'リンク先変更のSubプロシージャを実行する
If objFolder.GetDetailsOf(item, 2) = "ショートカット" Then
'デスクトップフォルダパスを格納
desktop = ws.SpecialFolders("Desktop")
'Subプロシージャを呼び出し
Call ChangeTarget(str, desktop)
End If
Next
MsgBox "完了"
Set objDocuFolderItems = Nothing
Set objDocuFolder = Nothing
Set objFolderItems = Nothing
Set objFolder = Nothing
Set Shell = Nothing
Set ws = Nothing
'Sub プロシージャ
Sub ChangeTarget(StrFileName, FdrPath)
' ショートカット作成（既存ファイルは上書きします。）
Set shortcut = ws.CreateShortcut(FdrPath & "\" & StrFileName & ".lnk")
lnk = "リンク先"
shortcut.TargetPath = lnk
shortcut.Save
Set shortcut = Nothing
End Sub
以上です。
デスクトップフォルダをオブジェクトとして
格納するのがポイントかな？
オブジェクトとしてしまえば、その中のファイル達を
メンバとして列挙できるので、それに対して
ループ処理でやっちゃえばいいのだ！
我ながら・・・う～ん・・・
こんなことはみんなやっているかぁ～
まぁ、オレ的には満足として・・・・
よし！やった。やったはず。。。(￣∇￣+)
これで、移行後のフォローが楽になった！
いい仕事したぞ・・・・・・・・はず・・・
最速攻略 VBScriptサンプル大全集/結城 圭介
￥2,919
Amazon.co.jp
ショートカットがリンク切れとなる障害が発生する
ショートカットのリンクが切れているからといって、
普通にPCを触っている人なら、たいした問題とは
ならないのだが、ショートカットがなにかという
こと自体を知らない人にとっては、リンク先へ
いけないことはとても大問題になってしまう。
そこで、デスクトップとマイドキュメントにある
ショートカットファイルだけに絞って、リンク先を
変更してしまおう！ヾ(＠°▽°＠)ﾉ
っと考えた。
先日から使っている、VBScriptだ！ﾍ(ﾟ∀ﾟ*)ﾉ
便利だし、アプリじゃないし、ループ処理さえ間違え
無ければ、簡単すぎるほど簡単だし！！
というわけで、フォルダ内のファイルを列挙する
方法の応用でショートカットファイルだけリンク先の
変更をやってみよう！(￣ー☆
'Shellスクリプトを呼び出す。
Set ws = WScript.CreateObject("WScript.Shell")
Set Shell = CreateObject("Shell.Application")
'デスクトップフォルダをオブジェクトとしてセットする
Set objFolder = Shell.NameSpace(0)
'デスクトップのアイテムコレクション
Set objFolderItems = objFolder.Items()
'コレクションをForEachでループしてファイルを見る
For Each item in objFolderItems
'ファイル名を格納
str = objFolder.GetDetailsOf(item, 0)
'ショートカットファイルだった場合、
'リンク先変更のSubプロシージャを実行する
If objFolder.GetDetailsOf(item, 2) = "ショートカット" Then
'デスクトップフォルダパスを格納
desktop = ws.SpecialFolders("Desktop")
'Subプロシージャを呼び出し
Call ChangeTarget(str, desktop)
End If
Next
MsgBox "完了"
Set objDocuFolderItems = Nothing
Set objDocuFolder = Nothing
Set objFolderItems = Nothing
Set objFolder = Nothing
Set Shell = Nothing
Set ws = Nothing
'Sub プロシージャ
Sub ChangeTarget(StrFileName, FdrPath)
' ショートカット作成（既存ファイルは上書きします。）
Set shortcut = ws.CreateShortcut(FdrPath & "\" & StrFileName & ".lnk")
lnk = "リンク先"
shortcut.TargetPath = lnk
shortcut.Save
Set shortcut = Nothing
End Sub
以上です。
デスクトップフォルダをオブジェクトとして
格納するのがポイントかな？
オブジェクトとしてしまえば、その中のファイル達を
メンバとして列挙できるので、それに対して
ループ処理でやっちゃえばいいのだ！
我ながら・・・う～ん・・・
こんなことはみんなやっているかぁ～
まぁ、オレ的には満足として・・・・
よし！やった。やったはず。。。(￣∇￣+)
これで、移行後のフォローが楽になった！
いい仕事したぞ・・・・・・・・はず・・・
最速攻略 VBScriptサンプル大全集/結城 圭介
￥2,919
Amazon.co.jp
普段使わないVBScriptをつかってみよう！
普段はまったく用のないVBScript！
本当にまったく使ったことはなかった・・・
今回は、サーバーの移行に伴って、
ショートカットファイルの新しい作成と
既存ファイルの削除を自動化しなくては
いけなくなってしまったので、
ログオンと同時に起動させるVBScriptが
都合が良かったのだ。
今回はショートカット作成と削除を記録。
'Shellスクリプトをセットする
Set ws = WScript.CreateObject("WScript.Shell")
'デスクトップフォルダパスをセット
desktop = ws.SpecialFolders("Desktop")
' ショートカット作成
Set shortcut = ws.CreateShortcut(desktop & "\ファイル名.lnk")
With shortcut
'リンク先設定
.TargetPath = "リンク先パス"
'作業フォルダ
.WorkingDirectory = desktop
'ファイル説明
.Description = "リンクファイルの説明文"
'アイコン
.IconLocation = "%SystemRoot%\system32\SHELL32.dll,15"
.Save
End With
'ショートカットを削除する場合
'Target = desktop & "\HOKAMA-FSV.lnk"
'If FSO.FileExists(Target) Then
' fso.DeleteFile Target
'End If
'開放
Set fso =Nothing
Set ws = N
意外と簡単。ヾ(＠^▽^＠)ﾉ
VBを使用している人は、普通に・無理なく・
勉強いらず・いつもどおりに使える。
なぜこんな便利なものを使わなかったのだろう。
アプリケーションを起動させることだけが
プログラムを動かす方法と勘違いしていた。。。
反省o(TωT )
とりあえず、気を使ったところは、
ショートカットファイルのアイコン！
アイコンをどこからどう選ぶかをちょっと考えた
既存のショートカットファイルのアイコン変更
ボタンをおした後に出てくる選択画面で選んでおけば
いいので、みなさんもどうぞ。。。
以上だいっ！（//･_･//)
最速攻略 VBScriptサンプル大全集/結城 圭介
￥2,919
Amazon.co.jp
本当にまったく使ったことはなかった・・・
今回は、サーバーの移行に伴って、
ショートカットファイルの新しい作成と
既存ファイルの削除を自動化しなくては
いけなくなってしまったので、
ログオンと同時に起動させるVBScriptが
都合が良かったのだ。
今回はショートカット作成と削除を記録。
'Shellスクリプトをセットする
Set ws = WScript.CreateObject("WScript.Shell")
'デスクトップフォルダパスをセット
desktop = ws.SpecialFolders("Desktop")
' ショートカット作成
Set shortcut = ws.CreateShortcut(desktop & "\ファイル名.lnk")
With shortcut
'リンク先設定
.TargetPath = "リンク先パス"
'作業フォルダ
.WorkingDirectory = desktop
'ファイル説明
.Description = "リンクファイルの説明文"
'アイコン
.IconLocation = "%SystemRoot%\system32\SHELL32.dll,15"
.Save
End With
'ショートカットを削除する場合
'Target = desktop & "\HOKAMA-FSV.lnk"
'If FSO.FileExists(Target) Then
' fso.DeleteFile Target
'End If
'開放
Set fso =Nothing
Set ws = N
意外と簡単。ヾ(＠^▽^＠)ﾉ
VBを使用している人は、普通に・無理なく・
勉強いらず・いつもどおりに使える。
なぜこんな便利なものを使わなかったのだろう。
アプリケーションを起動させることだけが
プログラムを動かす方法と勘違いしていた。。。
反省o(TωT )
とりあえず、気を使ったところは、
ショートカットファイルのアイコン！
アイコンをどこからどう選ぶかをちょっと考えた
既存のショートカットファイルのアイコン変更
ボタンをおした後に出てくる選択画面で選んでおけば
いいので、みなさんもどうぞ。。。
以上だいっ！（//･_･//)
最速攻略 VBScriptサンプル大全集/結城 圭介
￥2,919
Amazon.co.jp
なにも材料が無い・・・親子丼でいこう！
冷蔵庫になにもない・・・
あるのは・・・鶏肉！Σ(ﾟдﾟ;)
う～～～ん・・・親子丼！((ﾟmﾟ;)
あんい？ですよねぇ～
でも、食いたかったし、おいしいし、なにより
手抜きができる！(ﾉ´▽｀)ﾉ
というわけで簡単料理開始だ！
１．鶏肉を食べやすい大きさにきる
２．醤油・みりん・料理酒・砂糖を混ぜる（たれ）
３．鶏肉に塩コショウをまぶし混ぜる。
４．たれに鶏肉を入れておく。。。
５．たまねぎを切る
６．にんじんを切る
７．にんじんをフライパンで焼く
８．たまねぎをフライパンで焼く
９．たれに漬け込んでいた鶏肉をフライパンに
１０．ふたをして煮込みまくる・・・
１１．味をみるみるみる
１２．たまごをといておく
１３．鶏肉がいい具合になったら、卵を投下
１４．火をとめてふたをする
１５．2分たったらふたをあける
１６．ご飯の上によそって完成！！！
ふぅうう
味付けは大変だったけど、後は材料は簡単。
いや～味だけはおいしい～。(＠￣Д￣＠；)
でもなんか足りないかなぁ～(*_*)
まぁ、そのうちよくなるかな？
子供はうまい！嫁もうまい！(^人^)
ＯＫそれでいいや！(・ω・)/
本日も手抜きだったね。
親子丼
￥1,260
あるのは・・・鶏肉！Σ(ﾟдﾟ;)
う～～～ん・・・親子丼！((ﾟmﾟ;)
あんい？ですよねぇ～
でも、食いたかったし、おいしいし、なにより
手抜きができる！(ﾉ´▽｀)ﾉ
というわけで簡単料理開始だ！
１．鶏肉を食べやすい大きさにきる
２．醤油・みりん・料理酒・砂糖を混ぜる（たれ）
３．鶏肉に塩コショウをまぶし混ぜる。
４．たれに鶏肉を入れておく。。。
５．たまねぎを切る
６．にんじんを切る
７．にんじんをフライパンで焼く
８．たまねぎをフライパンで焼く
９．たれに漬け込んでいた鶏肉をフライパンに
１０．ふたをして煮込みまくる・・・
１１．味をみるみるみる
１２．たまごをといておく
１３．鶏肉がいい具合になったら、卵を投下
１４．火をとめてふたをする
１５．2分たったらふたをあける
１６．ご飯の上によそって完成！！！
ふぅうう
味付けは大変だったけど、後は材料は簡単。
いや～味だけはおいしい～。(＠￣Д￣＠；)
でもなんか足りないかなぁ～(*_*)
まぁ、そのうちよくなるかな？
子供はうまい！嫁もうまい！(^人^)
ＯＫそれでいいや！(・ω・)/
本日も手抜きだったね。
親子丼
￥1,260
ただのドライブだけど・・・う～～ん、だめだねぇ
娘の傷がすっかり癒えてきた。
なんだかつまらない。ヽ( )｀ε´( )ノ
しかし、まだ少し痛がるので、たまに遊んでます。
今日は那覇新都心にドライブ(＾ε＾)
ドライブ中は長女がナビ席。
次女と嫁は後部座席が定番！(≧▽≦)
今日はDIVEでドライブ（B'zです。）(*^o^*)
信号待ちのときは、痛がる長女を遊びまくった。
何をしに行ったわけではなく、ただのドライブ。
本当に純粋に車に乗ってぐるぐる(｡-人-｡)
「ぱぱ おなかすいた」o(；△；)o
「はいはい」・・・・・・パンをあげる
「ぱぱ トイレ」(｡＞0＜｡)
「はいはい」・・・・・・ローソンに寄る
「ぱぱ のどかわいた」(´・ω・`)
「はいはい」・・・・・・自販機で買う
「ぱぱ ひま」（/TДT)/
うぬぬぬぬぬぬ！！！！！！！
この小娘どもが！ヾ(▼ﾍ▼；)
ゆっくり車の楽しい旅をっっっっっ！
っと怒ってみても、確かに子どもにはつまらん。
公園にいこうにも、変な天気で・・・・
何事も無く、家路についていると、
「え～～～～～もう帰るの？」(#｀ε´#)
まぁ、確かにこのまま家に帰るのはかわいそう・・・
かといって、雨降っていたら外で遊べない・・・
那覇祭りに行こうと思ったが、車が込みすぎて
行くに行けない・・・・・・・・・
仕方なくの家路なのだ！( ￣っ￣)
「ぶーー ぶーー」（･ε･)
子豚が2匹で鳴いている。
家に帰ったら、普段はあまりさせていないが、
テレビゲームを2時間させた。
懐かしのプレステで「クラッシュバンディク」
知らない人も多いだろうが、たまにやるとおもろい。
あんなにぶーぶー言っていた娘たちも
おとなしく、夢中になった。(ﾞ ｀-´)/
あんなにぶーたれてたのに・・・
そこで娘が一言。)｀ε´(
「パパ これで許してあげる」
ん～～～～～～～～～～～？
やっぱり、ただのドライブではだめだね。
景色を眺めるとかよりも、目の前の遊び！
子育ての奥深さを知り、子どもに合わせるのを知り、
遊んであげられなかった親だなあと
反省してしまう週末でした。(Ｔ▽Ｔ;)
るるぶ沖縄ドライブベストセレクト’10 (るるぶ情報版 九州 15)
￥920
Amazon.co.jp
なんだかつまらない。ヽ( )｀ε´( )ノ
しかし、まだ少し痛がるので、たまに遊んでます。
今日は那覇新都心にドライブ(＾ε＾)
ドライブ中は長女がナビ席。
次女と嫁は後部座席が定番！(≧▽≦)
今日はDIVEでドライブ（B'zです。）(*^o^*)
信号待ちのときは、痛がる長女を遊びまくった。
何をしに行ったわけではなく、ただのドライブ。
本当に純粋に車に乗ってぐるぐる(｡-人-｡)
「ぱぱ おなかすいた」o(；△；)o
「はいはい」・・・・・・パンをあげる
「ぱぱ トイレ」(｡＞0＜｡)
「はいはい」・・・・・・ローソンに寄る
「ぱぱ のどかわいた」(´・ω・`)
「はいはい」・・・・・・自販機で買う
「ぱぱ ひま」（/TДT)/
うぬぬぬぬぬぬ！！！！！！！
この小娘どもが！ヾ(▼ﾍ▼；)
ゆっくり車の楽しい旅をっっっっっ！
っと怒ってみても、確かに子どもにはつまらん。
公園にいこうにも、変な天気で・・・・
何事も無く、家路についていると、
「え～～～～～もう帰るの？」(#｀ε´#)
まぁ、確かにこのまま家に帰るのはかわいそう・・・
かといって、雨降っていたら外で遊べない・・・
那覇祭りに行こうと思ったが、車が込みすぎて
行くに行けない・・・・・・・・・
仕方なくの家路なのだ！( ￣っ￣)
「ぶーー ぶーー」（･ε･)
子豚が2匹で鳴いている。
家に帰ったら、普段はあまりさせていないが、
テレビゲームを2時間させた。
懐かしのプレステで「クラッシュバンディク」
知らない人も多いだろうが、たまにやるとおもろい。
あんなにぶーぶー言っていた娘たちも
おとなしく、夢中になった。(ﾞ ｀-´)/
あんなにぶーたれてたのに・・・
そこで娘が一言。)｀ε´(
「パパ これで許してあげる」
ん～～～～～～～～～～～？
やっぱり、ただのドライブではだめだね。
景色を眺めるとかよりも、目の前の遊び！
子育ての奥深さを知り、子どもに合わせるのを知り、
遊んであげられなかった親だなあと
反省してしまう週末でした。(Ｔ▽Ｔ;)
るるぶ沖縄ドライブベストセレクト’10 (るるぶ情報版 九州 15)
￥920
Amazon.co.jp
Brotherhoodが最近の出勤テーマになっている
最近、Brotherhoodしかきいていない。
なぜなら、出勤のときに入っているアルバムデータが
これに初期設定されているからだ。(＝⌒▽⌒＝)
F・E・A・R からはじまり、ノリノリになりながら
ぎりぎりchop で一回頂点に！о(ж＞▽＜)ｙ ☆
ながい愛 でこころ緩やかに、静かに・・・・・・
夢のような日々 でうんうんと気持ちよく・・・
居心地よく・・・・・・・・・・・・・・・・・・
落ち着いたところに、軽快な松本さんのギターで
銀の翼で翔べ がはじまると、
またまたハイテンションに！(￣▽+￣*)
その手で触れてごらん で体が知らない間に動く
っと
この辺で会社に到着だ！
テンションがいい感じなところで会社に入るので
仕事がとてもはかどる！o(〃＾▽＾〃)o
とても気分がいい≧(´▽｀)≦
出勤途中に流す音楽はB'zでお決まりなんだけど、
お家で始まって、ちょうどいいテンションで
会社に到着するのは Brotherhood しかない！
ほんとにちょうど良く、テンションも程よい。
というわけで会社からは必ずBrotherhood！
これが聞けない日は、眠気が抜けない。
ちなみに、帰りは MONSTER ∑ヾ(￣0￣;ﾉ
これには・・・・・・・・・・・・・・・・
なんにも理由はありません。Σ(~∀~||;)
ただ単に ALL-OUT ATTACKとSPLASH!が
聞きたいだけなんだ！(＝◇＝;)
火曜日も同じパターンでいこう！そうしよう！
The true meaning of “Brotherhood”? [DVD]
￥3,300
Amazon.co.jp
Brotherhood
￥300
Amazon.co.jp
なぜなら、出勤のときに入っているアルバムデータが
これに初期設定されているからだ。(＝⌒▽⌒＝)
F・E・A・R からはじまり、ノリノリになりながら
ぎりぎりchop で一回頂点に！о(ж＞▽＜)ｙ ☆
ながい愛 でこころ緩やかに、静かに・・・・・・
夢のような日々 でうんうんと気持ちよく・・・
居心地よく・・・・・・・・・・・・・・・・・・
落ち着いたところに、軽快な松本さんのギターで
銀の翼で翔べ がはじまると、
またまたハイテンションに！(￣▽+￣*)
その手で触れてごらん で体が知らない間に動く
っと
この辺で会社に到着だ！
テンションがいい感じなところで会社に入るので
仕事がとてもはかどる！o(〃＾▽＾〃)o
とても気分がいい≧(´▽｀)≦
出勤途中に流す音楽はB'zでお決まりなんだけど、
お家で始まって、ちょうどいいテンションで
会社に到着するのは Brotherhood しかない！
ほんとにちょうど良く、テンションも程よい。
というわけで会社からは必ずBrotherhood！
これが聞けない日は、眠気が抜けない。
ちなみに、帰りは MONSTER ∑ヾ(￣0￣;ﾉ
これには・・・・・・・・・・・・・・・・
なんにも理由はありません。Σ(~∀~||;)
ただ単に ALL-OUT ATTACKとSPLASH!が
聞きたいだけなんだ！(＝◇＝;)
火曜日も同じパターンでいこう！そうしよう！
The true meaning of “Brotherhood”? [DVD]
￥3,300
Amazon.co.jp
Brotherhood
￥300
Amazon.co.jp