![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
希望どおりのツールは聞いたことがないのですが、VBScript でなら似たような物は何度も作ったことがあります。
汎用性を持たせるために HTA アプリケーション化してみました。
下記ソースをテキストファイルとして保存し、拡張子を HTA にしてください。
VBScript ではなく JavaScript や jQuery を使っていますが、単なる遊び心であり、完成度については全く自身がありませんが。
<!DOCTYPE html>
<html>
<head>
<title>ファイル上書き</title>
<script type="text/javascript" src="http://ajax.aspnetcdn.com/ajax/jQuery/jquery-1.1 …
<script type="text/javascript">
window.resizeTo(750, 500);
// フォルダーのパスを選択
function SetRootDir() {
var shell = new ActiveXObject("Shell.Application");
var fld = shell.BrowseForFolder(0, "フォルダー選択", 1);
if (fld == null) {
return;
}
$("#rootDir").val(fld.self.path);
}
// ジョブ実行
function ExecuteJob() {
var targetFilePath = $("#targetFile").val();
var rootDirPath = $("#rootDir").val();
$("#log").html("");
$("#log").append("-------------------------------<br/>");
// 指定されたファイルとフォルダーが存在していれば処理を開始する
var fso = new ActiveXObject("Scripting.FilesystemObject");
if (fso.FileExists(targetFilePath) && fso.FolderExists(rootDirPath)) {
ReplaceFiles(rootDirPath, targetFilePath);
}
$("#log").append("-------------------------------<br/>");
}
// aRootDir : ディレクトリのパス
// aTargetFile : コピー元ファイルのパス
function ReplaceFiles(aRootDir, aTargetFile) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
// フォルダーを掘る
var subFlds = new Enumerator(fso.GetFolder(aRootDir).SubFolders);
for (; !subFlds.atEnd() ; subFlds.moveNext()) {
var subFld = subFlds.item();
ReplaceFiles(subFld.path, aTargetFile);
}
// ファイルを掘る
var fls = new Enumerator(fso.GetFolder(aRootDir).Files);
for (; !fls.atEnd() ; fls.moveNext()) {
// 取り出したファイルがコピー元ファイルと同じ名前ならファイルを置換し、
// 本文の #log div に結果を記録する
if (fls.item().name.toLowerCase() == fso.GetFileName(aTargetFile).toLowerCase()) {
fso.CopyFile(aTargetFile, fls.item().path, true);
$("#log").append(fls.item().path + "<br />");
}
}
}
</script>
</head>
<body>
<div>
ファイル名 : <input type="file" id="targetFile" value="" style="width: 400px;" />
<br />
対象フォルダー : <input type="text" id="rootDir" value="" style="width: 400px;" />
<input type="button" id="dirSetButton" value="フォルダー選択" onclick="SetRootDir()" />
<br /><br />
<input type="button" id="executeButton" value="上書き実行" onclick="ExecuteJob()" />
</div>
<!-- 結果をここに出力する -->
<div id="log">
</div>
</body>
</html>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL2016のファイルが突然、古...
-
EXIF情報の削除をした後、プロ...
-
別CDからファイルをコピーしたC...
-
本当に削除して、良いのでしょ...
-
EXCELで特定ファイルの動作が重い
-
ACCESS、VBAでEXCELファイルを...
-
Photoshop5.5の履歴部分の削除...
-
<Excel>アドインから削除して...
-
Cドライブに ??なフォルダー...
-
thunderbirdのメールが見れなく...
-
コマンドプロンプト 閉じた時の...
-
フォルダの削除について
-
ワードパットをワードに
-
C:\\Windows\\SoftwareDistribu...
-
Docuworks(ドキュワークス)の不...
-
パワーポイントのスライドを1...
-
ファイル移動中にデータが消えた!
-
VBA ファイルを開くダイアログ...
-
ピクチャフォルダに保存した画...
-
デスクトップ上のインターネッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定ファイルの動作が重い
-
Excelの履歴を、過去1月に渡っ...
-
ACCESS、VBAでEXCELファイルを...
-
Mobile SyncによるPCのCドライ...
-
本当に削除して、良いのでしょ...
-
これってウイルスですか?
-
hardcopy.log って何ですか?
-
同じファイルを保存してもSSDと...
-
イラレ10 動作が急に遅く(不...
-
LanでつないだHDDの最適化を行...
-
ファイルを復元するソフトを使...
-
別CDからファイルをコピーしたC...
-
仮想isoイメージファイルの書き...
-
共有ファイルを誰かが勝手に操...
-
thunderbirdのメールが見れなく...
-
ファイル作成日時を変更しない...
-
Crash Dump Eventについて。
-
2台のpcを使っていてもう一台の...
-
保存してあるファイルの名前の...
-
R-Groupのサポート受付窓口はど...
おすすめ情報