条件分岐（If）中でのワイルドカードの利用について

Question

＜やりたいこと＞
変数 one と　two　を用意し、それぞれファイル名（仮定）「あ.JPG」　と「あ」を格納します。

これを条件分岐If の中に入れ、twoを入力した場合のみMsgBoxで「拡張子なし」と表示したいです。

＜困っていること＞
コードを実行すると拡張子の有る「あ.JPG」でも実行されてしまいます。

＜備考＞
指定のフォルダ内にフォルダ（サブフォルダ）が有った場合のみに処理されるコードを作成したく、テストで以下のコードを作成しました。（拡張子の無い場合（フォルダの場合）に処理されるコードを作成したいです。）

※コードの実行方法としては、one とtwo を書き換えて実行しています。（テストなので）

以下がコードです

Sub フォルダ判別()

Dim one As String
Dim two As String

one = "あ.JPG"
two = "あ"

If not one = "*.*" Then'ここのoneを直接書き換えて確認しています。
 MsgBox "拡張子無し"
End If

End Sub

よろしくお願いします。

Answer 1

要はピリオドが含まれていないことを確認したいということですよね。
ワイルドカードを使う場合はLikeで判定できます。

If Not One Like "*.*" Then

その他、特定の文字が含まれているかを調べるにはInStr関数がよく使われます。

If InStr(One, ".") = 0 Then

Comments

[ice930]

.の数を数えればよかったんですね！！
その手がありました。
ありがとうございます！！

[ttyp03]

InStr関数は数を数えるのではなく、位置を求める関数ですので、お間違えの無いよう。
InStr関数の戻り値0は、見つからなかった時の値になります。
こちら公式マニュアルですので参考にしてください。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/instr-function

[ice930]

「何個あったか」ではなく「何番目か」の数字なんですね！
勘違いをしていました・・・。
ありがとうございます！

Answer 2

If not one = "." Then'ここのoneを直接書き換えて確認しています。

単純な文字列の比較になっています。
これではワイルドカードの意味を持ちません。

これをどうにかするなら、正規表現の利用を検討しましょう