• 車種別
  • パーツ
  • 整備手帳
  • ブログ
  • みんカラ+
イイね!
2006年02月04日

FileGate

FileGate 毎日毎日
ファイルを一定のルールに従ったフォルダにコピペ(あるいは移動)しているあなたに送る、零細ソフトウェア謹製「FileGate
拡張子でコピー先を判別して振り分ける、ちょっと実用的かもしれないVBSだ。

ちなみにコピー先だが
"D:\dataBase_zero"にそれぞれのフォルダをこさえている。
実際使うには、ここを希望のフォルダにしたり、より具体的にフォルダ名を指定することが必須だ。
さらに日付ごと、あるいはファイル名ごとにフォルダを切るなど、工夫次第で現実的なツールとなるだろう。


では例によって以下の文章をメモ帳にコピペしる
set fs = WScript.CreateObject("Scripting.FileSystemObject")
dataBaseFolder = "D:\dataBase_zero"'希望のパスに書き換えれ!

If Not fs.FolderExists(dataBaseFolder) Then
fs.CreateFolder(dataBaseFolder)
End If

for each objName in WScript.Arguments
If fs.FileExists(objName) Then
exName = fs.GetExtensionName(objName)
dataFolder = exName & "_data\"
dataPath = fs.BuildPath(dataBaseFolder, dataFolder)
filePath = fs.GetAbsolutePathName(objName)

If Not fs.FolderExists(dataPath) Then
fs.CreateFolder(dataPath)
End If

fs.CopyFile objName, dataPath

MsgBox("ファイル " & objName & VBCR & "コピー先 " & dataFolder)'メッセージがうざかったらこの行を消す
End If
Next

そして、保存先はどこでもいい。デスクトップが適当だろう。名前は「fileGate.vbs」ファイルの関所だ(ちなみにプロフラムの名前を考えるのは結構楽しい)。
では
そのVBSファイルにコピーしたいファイルをドラッグアーンドドロップ!!


再び奇跡が君の目の前で起こったのだ!
さぁ!君もいますぐVBスクリプト!
上司に一目置かれたい!ライバルに差をつけたい!可愛いあの子の気を引きたい!
そんな君にVBスクリプト!
変なペンダントよりよっぽど効くぜ!!
ブログ一覧 | プログラム | 日記
Posted at 2006/02/04 20:56:14

イイね!0件



今、あなたにおすすめ

ブログ人気記事

ご褒美(=^x^=)♪
rescue118skullさん

漏れなく休日出勤🙇
ゆう@愛媛さん

小鳥の囀りとともに☺️
mimori431さん

大月エコロジーキャンプ場から帰って ...
S4アンクルさん

スペーシアはピアノブラックが多いの ...
日々輝さん

2月末分:シュアラスター公式サポー ...
ヒデノリさん

この記事へのコメント

2006年2月4日 21:10
シャチョーは最新の忍術使いですねー

コメントへの返答
2006年2月4日 21:21
惚れましたか
2006年2月4日 21:49
間違ってデータが消えたらどれぐらい保障してもらえますか?
コメントへの返答
2006年2月4日 22:15
全額返還いたします!!
さぁいますぐお電話!!
2006年2月4日 21:53
やっぱ、零しゃちょーは天才児ですね
コメントへの返答
2006年2月4日 22:16
これからは頭脳で勝負だぜ
邪魔するやつは指先ひとつでダウンさ
2006年2月4日 21:55
魔法も素敵ですが
変なペンダントも気になります。
コメントへの返答
2006年2月4日 22:23
クルマ雑誌によくラピスラズリのペンダント(?)の広告が載っていますが
あの半裸の男性のちょっと○ンパってる目が気になります。
2006年2月4日 21:58
変なペンダントのような売り文句ですね。
コメントへの返答
2006年2月4日 22:25
信じられないことに燃費が向上しました!
家族一同感謝しております!
【東京都:原田さん(37)】
2006年2月4日 22:29
酒場のペンダントトップ買ってみましたが、効果がありません。

普段使うコピペ先は、Send toで右クリックめにう追加してます。
コメントへの返答
2006年2月4日 22:39
明日駅前で栓抜き探しているナイスガイに遭遇するかもしれないので頑張って常備しましょう
【SendToに追加する方法を知らない家主】
2006年2月4日 22:44
なるほどね~・・・・・。

ナニノコトカマッタクワカリマセヌ。

コメントへの返答
2006年2月4日 22:48
大丈夫。
ワタシもかつては半信半疑でした。
しかし、今ではVBSに感謝しています。
2006年2月5日 0:53
僕のパソコンはBASICでもう限界です。

10:もう無理(*´∀`*)
20:わかんねって(´∀`)
30:マジで(´ω`)
40:・・・m9(^∀^)プギャー
コメントへの返答
2006年2月5日 1:01
最近のBASIC(ビジュアルベーシック・VB)は行番号ないぜ。
昔のBASIC(N60-BASIC)に慣れていた身分としては、「行番号ナシでGOTO文とかどうすんの???」と激しく驚いたものだ。
2006年2月5日 1:04
しらなかった~(*´∀`*)
コメントへの返答
2006年2月5日 1:26
BASICでもコンパイルでexeファイル作るようになったからね。
いつのまにやらBASICも進化したものよ。

プロフィール

みんカラ新規会員登録

ユーザー内検索

<< 2024/5 >>

   1234
567891011
12131415161718
19202122232425
262728293031 

リンク・クリップ

有楽町丸井 
カテゴリ:脱キモオタ
2007/09/15 15:55:54
 
Elastic 
カテゴリ:脱キモオタ
2007/02/13 00:55:22
 
スタイルコネクション 
カテゴリ:脱キモオタ
2007/02/13 00:33:58
 

愛車一覧

日産 180SX 日産 180SX
おっさんなのに180sx

あなたの愛車、今いくら?

複数社の査定額を比較して愛車の最高額を調べよう!

あなたの愛車、今いくら?
メーカー
モデル
年式
走行距離(km)
© LY Corporation