【VBScript】WSHについて話し合うスレ【JScript】 (181ﾚｽ)
【VBScript】WSHについて話し合うスレ【JScript】 http://mevius.5ch.net/test/read.cgi/tech/1578522041/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
33: デフォルトの名無しさん [sage] 2020/03/01(日) 21:46:25.58 ID:aiS1BF+G バッチ処理でフォルダの処理がしたくていろいろと調べながら、ここまで書いたのですが VBSのコードのみでは動くのですが、バッチに潜り込ませるとエラーになります。 文字コードはShiftJISにしてあります。 エラーは 〇〇.bat(1, 1) Microsoft VBScript コンパイル エラー: 文字が正しくありません。 とでます。どこが悪いのかわかる方はいませんでしょうか。 p.s WSHはもう終わりということですが、今後同じことをやる場合はPowerShellでできる(やる)ということですか？ http://mevius.5ch.net/test/read.cgi/tech/1578522041/33
34: デフォルトの名無しさん [sage] 2020/03/01(日) 21:46:49.18 ID:aiS1BF+G > 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 http://mevius.5ch.net/test/read.cgi/tech/1578522041/34
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.712s*