デスクトップになんですが、ファイルと同名のフォルダを作ってファイルコピーするソフトです。
http://www.hatena.ne.jp/1063063367
ファイルを、同じ場所に、ファイル名と同じフォルダ名を作って中に、コピーするような、ソフトないでしょうか?(freeで、お願いします).. - 人力検索はてな
以下のバッチファイルを作成しパスの通った所に置きます。
パスの通っている所とは path コマンドで表示されるところです。ま、c:¥windows¥system32あたりが無難かな。
cpdir.bat
-=-=-=-=-=-=-=-=-=-=-=-=-=-=
mkdir ”%1”
copy ”%1%2” ”%1”
-=-=-=-=-=-=-=-=-=-=-=-=-=-=
コマンドプロンプトを開いて目的のファイルのあるフォルダに移動します。
めんどくさかったらpowertoysか窓の手でここでプロンプトを使いましょう。
で以下のコマンドを叩きます。
例えば全てのjpg ファイルをコピーする場合は・・
C:¥Documents and Settings¥Default User¥My Documents¥My Pictures>for..
長いのでコマンドだけ下に書きます。
>for %I in (*.jpg) do call cpdir.bat %~nI %~xI
Forコマンドの使い方はコマンドプロンプトで
c:¥>help for
として下さい。
でわ
サイトはほとんどダミーです。
ちなみに、この仕様でいいのかわからないのですが、WHSで簡単にできます。以下を拡張子vbsで保存し、対象ファイルをこのvbsファイルのアイコンにドラッグ&ドロップします。バグがあるかもしれないので、ご参考までに、という話ですが。
---------------------------------
On Error Resume Next
Set objFso = CreateObject(”Scripting.FileSystemObject”)
cArg = WScript.Arguments.Item(0)
nArg = objFso.GetBaseName(cArg)
pPath = objFso.GetParentFolderName(cArg)
cPath = pPath & ”¥” & nArg & ”¥”
objFso.CreateFolder(cPath)
Call objFso.CopyFile(cArg ,cPath, true)
コメント(0件)