実現したいこと
VBSでプロパティファイルに記載されているフォルダパスを取得し、対象のフォルダの中にあるファイル名を取得する
発生している問題・エラーメッセージ
"Scripting.FileSystemObject"のGetFolderでプロパティファイルから取得したフォルダパスを設定すると「パスが見つかりません」というエラーが表示される
該当のソースコード
sample.vbs
VBScript
1 Const propfile = "setting.properties" 2 Dim basepath 3 Set objFS = CreateObject("Scripting.FileSystemObject") 4 Set objAdo = CreateObject("ADODB.Stream") 5 Set props = CreateObject("Scripting.Dictionary") 6 7 objAdo.Charset = "UTF-8" 8 objAdo.Type = 2 9 objAdo.LineSeparator = 10 10 11 'スクリプトの場所を参照します 12 basepath = objFS.GetFile(WScript.ScriptFullName).ParentFolder.Path 13 proPath = objFS.BuildPath(basepath, propfile) 14 'スクリプトのある同じフォルダ内の「setting.properties」を開きます 15 objAdo.Open 16 objAdo.LoadFromFile proPath 17 18 Do while objAdo.EOS <> True 19 ' ファイルの読み込み(1行) 20 line = objAdo.ReadText(-2) 21 '読み込んだ行が空行のときは相手にしません 22 if trim(line) <> "" then 23 propdata = trim(line) 24 '読み込んだ行がコメントのときも相手にしません 25 if instr(propdata, ";") <> 1 and instr(propdata, "#") <> 1 then 26 prop = split(propdata, "=") 27 'イコール記号で分割すると2要素の配列になるのでそれ以外は相手にしません 28 if ubound(prop) = 1 then 29 '辞書に登録します 30 props.add prop(0), prop(1) 31 end if 32 end if 33 end if 34 Loop 35 36 getFilePath = objFS.GetFolder(props("filePath")) 37 ※以下省略
setting.properties
filePath=C:\Users\user01\Desktop\sample
試したこと
・プロパティファイルに記載されているフォルダパスをそのままGetFolderの引数に設定した場合は取得できた
・「props("filePath")」にはフォルダパスが設定されていた
環境
Windows10
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/08/02 00:40