WSHのCreateTextFileについて

質問

プログラミングを学び始めて数か月の初心者です。

WSHにて、VBscriptを用いてスクリプトを製作しているのですが、
メソッドの動きが理解できないので質問させていただきます。

【実現したい処理】
ドラッグアンドドロップでスクリプトファイルにテキストファイルをドロップすると、
テキストファイル名に「_admin」を追加したテキストファイルを新規で作成する。

CreateTextFileメソッドを利用する際、
新規作成するファイル名をフルパスで指定すれば作成できます。
または、GetBaseNameメソッドを使用せず、変数にファイル名を直接代入すれば作成できます。
ソースの様に、GetBaseNameメソッドを利用してファイル名を生成すると上手くファイルを作成くれません。
このソースの場合、カレントフォルダに新規テキストファイルを作成することはできないのでしょうか。

宜しくお願いします。

【ソース　CreateFile.vbs】
Dim objFSO,
Dim strArgument, strFileName, strFileNewName
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

strArgument = WScript.Arguments(0)
strFileName = objFSO.GetBaseName(strArgument)
strFileNewName = strFileName & "_admin.txt"

objFSO.CreateTextFile strFileNewName

set objFSO = Nothing
【/ソース】

回答No.2

m-take0220 · ベストアンサー

カレントフォルダ(スクリプトのあるフォルダ)に作成するのですね。
その点は勘違いしていました。申し訳ありません。

私のところでは、変数に直接ファイル名を代入してもエラーとなりました。
これは、VBScriptが実際にはCScript.exeまたはWScript.exeによって実行されるため、スクリプトにドロップするとカレントフォルダとしてWindows\System32が設定されるためと思われます。
ためしに、

CScript text.vbs %1

という内容のバッチファイルをスクリプト(こちらではtest.vbsという名前で保存してます)と同じフォルダにおいて、このバッチファイルにドロップするとうまくいきます。これは、バッチファイルのカレントフォルダがバッチファイルが存在するフォルダに設定されるためと思われます。

カレントフォルダをスクリプトが存在するフォルダに移動するコードを追加したところ、エラーは発生しませんでした。

dim objShell
set objShell = CreateObject("WScript.Shell")
objShell.CurrentDirectory = objFSO.GetParentFolderName(WScript.ScriptFullName)

お礼

返信が遅くなってしまって申し訳ございません。

おっしゃる通り、System32にファイルを生成しておりました。

カレントフォルダを変更した所、無事作成することができましたのでご報告致します。

回答ありがとうございました。

回答No.1

m-take0220

GetBaseNameを使用すると、ファイルのフォルダ名がなくなってませんか?
GetParentFolderNameでフォルダ名を取り出して連結すると、うまくいきませんか?

補足

回答ありがとうございます。

確かにGetBaseNameを使用するとフォルダ名は破棄されてしまっています。
フォルダ名も連結すると上手く作動します。

ただ、strFileNewFileNameに文字列"strFileName_admin.txt"を直接代入して、
CreateTextFileに渡すとスクリプトファイルがあるフォルダに新規作成されます。

GetBaseNameメソッドを使ってstrNewFileNameを生成した時と
文字列の中身は全く同じなのに（If文で確認しました。）、
生成されるファイルの保存場所が違うことに疑問を感じています。

その部分で回答できる部分があれば宜しくお願いします。