VBSでファイルをd&dして 同名の違う拡張子も処理したい。

質問

VBSでファイルをd&dして　同名の違う拡張子も処理したい。

ファイル1.TXTをd&dしてその違う拡張子の同名ファイルにも処理を与えたいのですが
勉強の為多少複雑な注文をしたいのですが

c:\ファイル1.TXT→f:\元ファイル
D:\ファイル1.avi(d:\は指定のフォルダー等の意味)→f:\動画
E:\ファイル1.wav(E:\は指定のフォルダー等の意味)→f:\音声

ファイルの入り口は一つで出口は三つってイメージでしょうか
このようにファイル1.TXTを読み込ませる事によりd:\とe:\にもあるファイル1の違う拡張子の物も同時に処理してしまいたいのですが単処理は何とかサンプルの改造で行けるのですが複数だと上手く作れなかったです。

多分複数の処理をする物を頼んでいるので問題無いと思うのですが
対応させる拡張子を増やしたい場合も出来れば・・。
簡単そうなのに出来ないのでご協力下さい。

出来れば取り敢えず動くソースだと嬉しいです。

回答No.1

mk48a · ベストアンサー

基本的な考え方としては引数の文字列の拡張子部分を変更してそれぞれの処理を行えば良いです。
簡単な文字列の処理です。

＞単処理は何とかサンプルの改造で行けるのですが複数だと上手く作れなかったです。
とりあえず、できているソースを見せてください。

補足

If WScript.Arguments.Count <> 1 Then
WScript.Quit(0)
End If
Set fso = CreateObject("Scripting.FileSystemObject")
file = WScript.Arguments(0)
base = fso.GetParentFolderName(file)
If Len(base) = 0 Then
base = "."
End If
name = fso.GetBaseName(file)
path = base & "\" & name
If Not fso.FolderExists(path) Then
Call fso.CreateFolder(path)
End If
file_to = path & "\" & fso.GetFileName(file)
Call fso.MoveFile(file, file_to)
Set stm = Nothing
Set fso = Nothing

削除とフォルダー作成しか出来ないですがこれでいいのですか?
これから追加出来るならそれでも良いのですが。

回答No.2

mk48a

条件があいまいなので、とりあえず決め打ちで。

＞Call fso.MoveFile(file, file_to)
の後に以下のように処理を続ければ良いです。

file_from_avi = "D:\" + name + ".avi"
file_to_avi = "F:\動画\"
Call fso.MoveFile(file_from_avi, file_to_avi)

音声ファイルも同様に、

file_from_wav = "E:\" + name + ".wav"
file_to_wav = "F:\音声\"
Call fso.MoveFile(file_from_wav, file_to_wav)

のような感じで。

＞c:\ファイル1.TXT→f:\元ファイル
ソースを見ると.txtファイルと同じフォルダに.txtファイルの名前のフォルダを作成して移動するようになっていますが、どちらの処理にしたいのでしょうか？

上書きチェックとかファイル存在チェックは行っていないので適当に加えてください。

お礼

たすかりました!!

補足

フォルダー作るのは最終的に無いなら作るって形で入れたかったのですが
経過として入ってしまっていただけなので
質問内容としては今現在では
一つのファイルから複数のファイルを振り分ける迄で平気です。
取り敢えず動かしてみてみます

ありがとうございます!