【VBScript】WSHについて話し合うスレ【JScript】 (181ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

33(2): 2020/03/01(日)21:46 ID:aiS1BF+G(1/2) AAS
バッチ処理でフォルダの処理がしたくていろいろと調べながら、ここまで書いたのですが
VBSのコードのみでは動くのですが、バッチに潜り込ませるとエラーになります。
文字コードはShiftJISにしてあります。
エラーは 〇〇.bat(1, 1) Microsoft VBScript コンパイル エラー: 文字が正しくありません。
とでます。どこが悪いのかわかる方はいませんでしょうか。

p.s WSHはもう終わりということですが、今後同じことをやる場合はPowerShellでできる(やる)ということですか？

---

34: 2020/03/01(日)21:46 ID:aiS1BF+G(2/2) AAS
> 33 続き

〇〇.bat
@if(0)==(0) echo off
cscript.exe //nologo //E:VBScript "%~f0" %*

echo コピー元フォルダは %srcFolder%
echo コピー先フォルダは %dstFolder%
robocopy "%srcFolder%" "%dstFolder%" /mir /r:0 /w:0 /dcopy:t /sec /fft /xjd /xjf /xf *.lnk
goto :eof
@end

Option Explicit

SetFolderName()
Wscript.Quit()

sub SetFolderName()
dim wshEnv
set wshEnv = WScript.CreateObject("WScript.Shell").Environment("Volatile")
wshEnv.item("srcFolder") = GetFolderName("コピー元のフォルダを指定してください"&vbCRLF&"例 C:\Users\ユーザー名")
wshEnv.item("dstFolder") = GetFolderName("コピー先のフォルダを指定してください"&vbCRLF&"例 D:\")
end sub

function GetFolderName(strQ)
dim wshShell, wshPath
dim PathName
set wshShell = WScript.CreateObject("Shell.Application")
set wshPath = wshShell.BrowseForFolder(0, strQ, &h1)
if not wshPath Is Nothing Then PathName = wshPath.Items.Item.Path
GetFolderName = PathName
End function

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.009s