0

ACCESS VBAでフォルダのあいまい検索を行う処理をしていましたが、Winactorを導入したため、エクスプローラーでの検索後、画像マッチングで処理しています。

しかしマッチングが上手くいかず、エラーになるパターンが多いため、Winactorのスクリプト実行で同様のことを行いたいので質問させてください。

ACCESS VBAでの記述(実施内容:フォルダ検索をクリックしたときに、注文番号という数字を含んだフォルダを直接開く)

Private Sub フォルダ検索_Click()

If IsNull(注文番号) Or IsEmpty(注文番号) Or [注文番号] = "" Then
メッセージ.Caption = ""
MsgBox ("注文番号を入力して下さい!")
[注文番号].SetFocus
Exit Sub
End If

'検索対象のフォルダ名
folname = Forms![注文番号]!

Dim xFld As String
Const xParent As String = "検索対象のフォルダ"
xFld = Dir(xParent & "*" & folname & "*", vbDirectory)
If xFld <> "" Then
Application.FollowHyperlink "検索対象のフォルダ" & xFld, vbNormalFocus
Else
MsgBox xParent & xFld & ":該当するフォルダが見つかりません。"
End If
End Sub

スクリプト実行へ転記(実施内容:注文番号という数字を含んだフォルダを直接開き、パスを取得したい)

folname = Forms!!検索したい文字!

Dim xFld As String
Const xParent As String = "検索対象のフォルダ"
xFld = Dir(xParent & "*" & folname & "*", vbDirectory)
If xFld <> "" Then
Application.FollowHyperlink "検索対象のフォルダ" & xFld, vbNormalFocus
Else
MsgBox xParent & xFld & ":該当するフォルダが見つかりません。"
End If

上記、記述をした場合、スプリクトのフォルダーで「変数」を選択できるようになりましたが、スプリクトの実行に失敗しました。

文字が正しく無いようです。

VBSの記述方式の理解不足もあると思いますが、ご教授いただけないでしょうか。

よろしくお願いいたします。

この質問は解決済みのためクローズされています。
anothersolution 編集済みのコメント
回答とコメントは、会員登録(無料)で閲覧できるようになります。