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
【/ソース】
お礼
ありがとうございました。 拡張子を確認等したら、動きました！