【VBScript】WSHについて話し合うスレ【JScript】

[1 デフォルトの名無しさん 2020/01/09(木) 07:20:41.41 ID:wvbDpdNb]

みんなで話し合おう

[2 デフォルトの名無しさん 2020/01/09(木) 21:52:18.83 ID:wvbDpdNb]

みんな・・・

[3 デフォルトの名無しさん 2020/01/09(木) 23:04:30.93 ID:FBsxulAT]

オワコン

[4 デフォルトの名無しさん 2020/01/10(金) 01:20:03.96 ID:OzcTj1e5]

MSがとうに捨てたものの何を語るの
思い出話ならマ板でやんな

[5 デフォルトの名無しさん 2020/01/10(金) 01:23:36.48 ID:J+c7EK2n]

出先でサクッとお世話になるやつだぞ

[6 デフォルトの名無しさん 2020/01/10(金) 07:17:53.27 ID:ALcwyMXE]

unibonさんの上質なブログが消えてる・・・

[7 デフォルトの名無しさん 2020/01/10(金) 08:01:53.55 ID:CuaAbu+V]

>>4
現実をみな、ゆとり君。

[8 ウーロン ◆YAZTByPXwc6o 2020/01/14(火) 23:06:04.53 ID:p1ffDOn1]

Eqv演算子の使い途を募集します

[9 デフォルトの名無しさん 2020/01/14(火) 23:48:44.25 ID:4cwMiqXc]

　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[10 デフォルトの名無しさん 2020/01/20(月) 08:39:19.96 ID://bqLjsW]

>>9
いま電車の中なんですがウンコ漏らしましたアドバイスお願いします

[11 デフォルトの名無しさん 2020/01/21(火) 01:13:39.64 ID:Ouj2sRCI]

>>10
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[12 デフォルトの名無しさん 2020/01/30(木) 00:54:03.28 ID:UB+VSHu4]

instrを使っていて中身は同じコードのVBSファイルなのに
一つは日本語検索が正しくヒットするが、もう一つはヒットしないという状況が発生してるんだけど、VBSでは起こり得る現象？
ちなみに日本語検索ができないファイルはアルファベットなら正しく検索できる
ファイル自体に問題が起きてるのかな

[13 デフォルトの名無しさん 2020/01/30(木) 01:01:32.79 ID:KegIzDa6]

>>12
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[14 デフォルトの名無しさん 2020/01/30(木) 01:09:03.71 ID:2WRQqBTO]

PowerShellめんどくせーよ

[15 デフォルトの名無しさん 2020/01/30(木) 01:13:40.22 ID:DIl9Ziw8]

>>14
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[16 デフォルトの名無しさん 2020/01/30(木) 08:23:11.79 ID:VLt/7sPi]

>>12
CP932/BOMありUTF-8 は、判別できるけど、
BOMなしUTF-8 では、どちらか判別できない

一般的に、Web 系開発では、BOMを付けるとバグるので、BOMなしUTF-8 を使うと、
Explorer では日本語検索ができなくなる

だから漏れは、Windows 10, WSL, Ubuntu 18.04 を入れて、
Linux 側から、grep を使って検索している！

VSCode で、文字コード・改行文字などを簡単に変更できる

[17 デフォルトの名無しさん 2020/01/30(木) 11:22:02.58 ID:K3IPeO5P]

>>12
文字コードがおかしいのじゃないかな
VBSはShift_JISとUTF-16にしか対応してないから
UTF-8で保存してるとそういうこと起こる

[18 デフォルトの名無しさん 2020/01/30(木) 22:35:44.82 ID:UB+VSHu4]

文字コード変えたら動いた
ありがとう
過疎スレかと思いきや即日レスが来ていて嬉しいｗ

[19 デフォルトの名無しさん 2020/01/30(木) 22:50:39.81 ID:ZimD6n5w]

ピッコロの自演とRubyおじさんかよ

[20 デフォルトの名無しさん 2020/02/02(日) 20:48:15.24 ID:M83iuexz]

WSH（Windows Scripting Host）でInternet Explorerを動かすことができるけど
FireFoxやChromeを動かすことができるスクリプト言語ってないですかね？
もしFireFoxを動かすことができれば、Linuxでもフォーム入力の作業が捗るので
便利なんですよね

[21 デフォルトの名無しさん 2020/02/02(日) 20:49:23.38 ID:M83iuexz]

C;\　HDDドライブの一覧をリカーシブに取得するWSHは重宝してます

[22 デフォルトの名無しさん 2020/02/02(日) 21:16:58.66 ID:WUJbACls]

>>20
>>21
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[23 デフォルトの名無しさん 2020/02/02(日) 22:10:44.42 ID:E6XjJVd9]

>>20
iMacrosとかSeleniumとかWebアプリの開発で使ってる人見たことあるよ
WSHでは難しい

[24 デフォルトの名無しさん 2020/02/02(日) 23:59:09.56 ID:ceem9FS2]

>>20
漏れは、Ruby で、Selenium WebDriver, Nokogiri などで、

Chrome, Edge などのブラウザーを自動操作して、スクレイピングする

[25 デフォルトの名無しさん 2020/02/04(火) 13:10:26.42 ID:yAXtWmh5]

>>24　Rubyでブラウザを動かすためのおすすめのスクリプトありますか？

[26 デフォルトの名無しさん 2020/02/04(火) 23:08:37.00 ID:89Ab/VhP]

>>25
ない

　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[27 24 2020/02/05(水) 00:17:51.94 ID:NEouxGwD]

Ruby で、Yahoo への自動ログイン

require "selenium-webdriver"

options = Selenium::WebDriver::Chrome::Options.new
options.add_option( :detach, true ) # シェルから、ブラウザを切り離す
options.add_argument( '--start-maximized' ) # 画面最大

driver = Selenium::WebDriver.for :chrome, options: options
driver.manage.timeouts.implicit_wait = 10 # default timeout

driver.navigate.to "https://login.yahoo.co.jp/config/login_verify2?.src=ym";

element = driver.find_element(:id => "username")
element.send_key "ユーザー名"

driver.find_element(:id => "btnNext").click

element = driver.find_element(:id => "passwd")
element.send_key "パスワード"

driver.find_element(:id => "btnSubmit").click

[28 デフォルトの名無しさん 2020/02/09(日) 18:02:10.29 ID:2hRj0kA8]

>>24 そのスクリプトを解説するブログを立ち上げたら、めっちゃアクセスでると思います
需要が高いから

[29 デフォルトの名無しさん 2020/02/09(日) 18:22:31.17 ID:s/j5AiPK]

>>28
　　　　　　 ::　　　　　　　　　　　　　 　 .|ﾐ|
　　　　　　　::　　　　　　　　　　 　 　 　.|ﾐ|
　　　　　　　　::　　　　　　　　　　 　 　 .|ﾐ|　　　　　　　　　　 ::::::::
　　　　　　　　　:::::　　　　　＿＿＿＿　|ﾐ|　　　　　　　　　 ::::
　　　　　　　　　　 ::　,. -'"´　　　　　　｀¨ー ､　　　　　　　::
　　 ::　　　　　 　 ／　　　,,.-'"　　　　　　ヽ　 ヽ、　　　 ::
　　　:: 　　　 ,,.-'"_　 r‐'"　　　　　,,.-'"｀　　　　　ヽ、　::
　　　:: 　　/　　　 ヾ (　　　 _,,.-='==-､ヽ　　 　 　 　 ヽ、
　　　:: 　　i へ＿__ ヽゝ=-'"／　　　 _,,>　　　　　　　　 ヽ　
　　 ::　　 ./ /　　＞ ＝'''"　￣￣￣　　　　 　 　 　 　 　 ヽ　
　　:: 　　/ .<_　ノ''"　　　　　　　ヽ　　　　　　　　　　　　 　 i
　 ::　　 /　　　 i　　　人＿　　　ノ　　　　　　　　　　　　　　.l
　　:: 　,'　　　　 ' ,_,,ノｴｴｴｪｪ了　　　　　　　　　　　　　　　/
　　　　i　　　　　　　じｴ='='='" ',　　　　　　　　　　　　　　/　::
　　　　',　　　　　　 (___,,..----U　　　　　　　　　　　　 ／　::
　　　　 ヽ、　　　　　　　　 __,,..　--------------i-'"　　::
　　　　　　ヽ､_　　　__ -_'"--''"ニニニニニニニﾆヽ　　 ::
　　　　　　　　 ｀¨i三彡--''"´　　　　　　　　　 　 　 ヽ　　:: 　
　　　　　　　　　 /　　　　　　　　　　　　　　　 　 　 　 ヽ　:: 　 　 　 　　　　　　　┼ヽ　 -|r‐､.　ﾚ　|
　　　　　　　　　/　　　　　　　　　　　　　　　　　　　　　ヽ::　　　　　　　　　　　　ｄ⌒)　./|　_ﾉ　 __ﾉ

[30 24 2020/02/10(月) 09:13:27.44 ID:8D13KkA5]

ハローワークのインターネットサービスをスクレイピングして、こういうのが出来れば

（事業所の意向により公開していません）
と、事業所名を非公開にしている、会社を非表示にできたら

同じ会社の複数の求人を、1つだけの表示にできれば

非表示にできる会社の数を、無限に登録できれば

[31 デフォルトの名無しさん 2020/02/12(水) 10:35:11.36 ID:w04clBR4]

それこそseleniumとか使えば簡単にできるんじゃない？
人間がアクセスしてる風の時間感覚にしないとアク禁されそうだけど

[32 デフォルトの名無しさん 2020/02/13(木) 00:06:07.25 ID:EA40twA9]

どっちにしろVBSやピッコロ ◆YAZTByPXwc6oの出る幕じゃないけどね

[33 デフォルトの名無しさん 2020/03/01(日) 21:46:25.58 ID:aiS1BF+G]

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

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

[34 デフォルトの名無しさん 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

[35 デフォルトの名無しさん 2020/03/02(月) 00:08:31.21 ID:TxSplURq]

>>33
それは JScript をバッチに埋め込むときに使うテクニック。
エンジンに VBScript を指定してたら、そりゃあ1行目の1文字目でエラーになる。

[36 デフォルトの名無しさん 2020/03/02(月) 00:09:47.70 ID:TxSplURq]

>>33
「VBScript を混在させる技」でググって出てくるページを参考にすると良いと思う。
（この板URLが貼れないっぽい？）
でも、このバッチはドラッグ＆ドロップで使った時に特定の文字（キャレットや半角空白等）を含むファイル名を正しく処理できるんかなぁ…？
試したら教えて。

[37 デフォルトの名無しさん 2020/03/02(月) 17:20:16.95 ID:p3CUZnH+]

>35, 36
ありがとうございます。

これの仕組むをざっと調べた限り条件コンパイル？
みたいな感じで、jscriptが、@if〜@endまでを
実行しないみたいな仕組みで動いているようですので、
cscript呼び出しで、引数を渡すなどはできました。
ただjscriptから、戻ってきた時に値渡しする方法が、
わからず、環境変数を使う事を考えましたが、
同じプロセス内あつかいで、環境変数もまんまでは
無理でした。もうちょい色々試してみます。
ありがとうございました。