ファイルの整理、得意ですか?
私は苦手です。
そこで使っているのが以下のスクリプト。
と言っても、
入力したメッセージをファイル名にもつ
空のファイルを作る機能しかありませんが…
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,"完了"
これをディレクトリに置いておいて、忘れそうな事柄をメモしておくと便利かも?


2024年11月26日 at 04:07
yj84ta
2025年1月6日 at 05:32
gcvfbq
2025年1月9日 at 02:57
dmprkx
2025年2月7日 at 14:04
4eh7as