ある日付以降に作成したファイルをコピー

【ある日付以降に作成したファイルをコピー】
フォルダ内のある日付以降のファイルをコピーしたいと思い、以下のようなVBSCriptを作成してみました。

＜実行の方法＞
>cscript　DateCompCopy.vbs　日付(YYYY/MM/DD形式)　　コピー元フォルダ名　　コピー先フォルダ名
＜実行例＞
＞cscript DateCompCopy.vbs 2006/08/17　 D:moto D:saki

DateCompCopy.vbs ''引数の宣言 Set arg = WScript.Arguments ''引数チェック If ( arg.Count <> 3 ) Then 　WScript.StdOut.WriteLine "異常終了　理由：引数不正 " & arg.Count 　WScript.Quit -1 End If ''入力ファイル名を引数の値よりセット sDate = arg(0) sFolder = arg(2)&"" sRootFolder = arg(1) ''オブジェクトの宣言等 Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(sRootFolder ) Call CopyFolder(objFolder) Sub DateCompCopySub(objFolder ,isDate ,isFolder2 ) ''ファイルがなくなるまで繰り返す。 　For Each objFile In objFolder.Files ''ファイルの存在確認 　　If(objFSO.FileExists(objFile.Path)) Then ''ファイルの日付チェック 　　　If(LEFT(objFile.DateLastModified,10) > isDate ) Then 　　　　objFSO.CopyFile objFile.Path ,isFolder2 , overwrite 　　　　WScript.Echo " " & objFile.Path & " " & objFile.DateLastModified & " をコピーしました。" 　　　End If 　　End If 　Next End Sub Sub CopyFolder(objFolder) 　'フォルダ内のファイルをコピー 　　Call DateCompCopySub(objFolder,sDate,sFolder) ' ' 再帰的にサブフォルダのreadonly属性を解除 　For Each objSubFolder In objFolder.SubFolders 　　CopyFolder(objSubFolder) 　Next End Sub

眠気よさらば・・・

【眠気よさらば・・・】
　最近、ユーザーの追加要望によりシステムの修正が発生し始めました。
　作業があいまいな時は必ず11時から15時の間にものすごい眠気が襲ってきたのですが、最近は忙しくなってきた性か、まったく眠くなりません。不思議ですねぇ。。。
　私の場合、仕事中に眠くなると言うのはモチベーションの問題らしいので・・・ひとまず安心。
　
【（VC++）char←→CStringの変換方法】
最近、プログラムの修正が発生し、charの変数とCStringの変数間でデータの授受をすることが必要になりました。方法を以下に記載します。
あくまでも私の覚書になってしまいますが。。

char→CString
　　CString csWork;
char cInstr[10+1];
csWork = (LPCTSTR)cInstr;

CString→char
　　CString csWork;
char cOutstr[10+1];
　　strcpy( cOutstr , (LPCTSTR)csWork);

【１歳７ヶ月の子供は侮れない】
　私は小さい頃の記憶なんてまったくありません。
　従って、自分が１歳７ヶ月の子供の頃、どこまで大人の話を理解していたかなんてまったく覚えていません。その為、大人の言葉は全然理解できないと思ってました。
　ですが、今自分が大人になって実際に１歳７ヶ月の子供と話して見ると、子供は意外と大人の言葉を理解してて驚くことばかりです。
　というのは、最近、自分の子供が単純に言うことを素直に聞かなくなり、言葉でごまかそうとしても、ごまかされているのが判ってて、言うことを聞かないということが多くなってきました。
　かなり、手ごわくなってきました。本気で１歳７ヶ月の子供と駆け引きしてます。
　１歳７ヶ月子供と言えども侮れないな・・・と実感している今日この頃です。

風邪をひく

【風邪をひいてしまいました】
　仕事が暇になったからなのか、土日のプライベートが忙しかったからなのか、風邪をひいてしまいました。
　喉がいがらっぽく、咳が出て、鼻水がでるという感じです。
　幸い、熱はなく仕事に支障がない程度の風邪なので、良かったかなぁという感じです。
　夏風邪は何とかしかひかないと言いますから、私は何とかなんでしょう。
【ガソリンの値上げを知る】
近所の一番安いガソリンスタンドのレギュラー1リットルあたりの値段が、140円になってました。
ちっくしょー！！