ファイルの整理、得意ですか?
私は苦手です。
そこで使っているのが以下のスクリプト。
と言っても、
入力したメッセージをファイル名にもつ
空のファイルを作る機能しかありませんが…
VBScriptを使っているためWindows限定で動作します。
やり方は簡単!
以下のスクリプトを、拡張子をvbsとして保存し、ダブルクリックで起動するだけでOKです。
Option Explicit Dim FSO,MsgFile,Msg,T 'メッセージ入力待機 Msg = InputBox(Chr(34)&" < > ? \ / * | : は使えませんorz"& vbcrlf & vbcrlf &"メッセージを…!","メッセージ入力","ここに入力") 'ファイル名末尾に付加するタイムスタンプを生成する If Msg = "" Then WScript.Quit T= Year(Now()) T= T & Right("0" & Month(Now()) , 2) T= T & Right("0" & Day(Now()) , 2) T= T & Right("0" & Hour(Now()) , 2) T= T & Right("0" & Minute(Now()) , 2) T= T & Right("0" & Second(Now()) , 2) 'ファイルの書き出し Set FSO = CreateObject("Scripting.FileSystemObject") Set MsgFile = FSO.CreateTextFile(".\"&Msg&" ("&T&")") MsgFile.Close() Set MsgFile = Nothing Set FSO = Nothing MsgBox "完了だぜ☆" & vbcrlf & "ID: " & T & vbcrlf &"「" & Msg & "」",64,"完了"
これをディレクトリに置いておいて、忘れそうな事柄をメモしておくと便利かも?
コメントを残す