どうも文字列操作がうまくいきません
以下のようなコードで
TWArray[UseSet].WPath = "C:\AAA\"
WFilePath ="BBB.exe"
というような状況下に於いて以下のコードを実行した場合
WFilePath ="C:\AAA\BBB.exe"
となりそうなのですが、何故か
WFilePath ="C:\AAA\"
となってしまします。
コード:
Sub PWEx(ByVal WFilePath As String)
If InStr(1,WFilePath,":") = 0 _
Then WFilePath = TWArray[UseSet].WPath & WFilePath
また、
.WPath = "C:\AAA"
という状況下に於いて以下のコードを実行した場合
.WPath = "C:\AAA\"
となりそうなのですがデバッグしてみると
Right$(.WPath,1) = ""
となります、"A"のはずなんですが…
コード:
If .WPath <> "" Then
If Right$(.WPath,1) <> "\" Then .WPath = .WPath & "\"
End If
上記2項目の共通点は変数は、String型で
変数に格納したパスやファイル名はGetPrivateProfileStringで
iniファイルから拾ってきた文字列ということです。
デバッグウィンドウの値を見ると文字列自体は
それぞれちゃんと格納されているようなのですが何が悪いのでしょうか?