Microsoft Access 掲示板

Microsoft Access 掲示板

フォルダ名をワイルドカードで取得し、そのフォルダを開きたい

2 コメント
views
4 フォロー

お世話になります。

フィールドの値からフォルダ名を取得し、そのフォルダを開くボタンを作りたいです。
ところがそのフィールドの値から取得できるのは、該当のフォルダ名の頭５ケタまでのため完全なフォルダパスが取得できません。

Dim strPath As String
strPath = フォルダパス
Application.FollowHyperlink strPath

でフォルダを開きたいのですが、完全なフォルダ名が取得できない場合、どうすればよいでしょうか？
前述のフォルダ名は頭５ケタまではフィールドの値から取得できるのですが、６ケタ目以降はルールがなく自由に名前が付いています。

どなたかお知恵を拝借したく、よろしくお願いいたします。

nanana
作成: 2022/12/19 (月) 13:51:16
通報 ...
1
hiroton 2022/12/19 (月) 14:20:00 ed9bb@f966d

Dir 関数

Dim strPath As String
strPath = フォルダパス

strPath = strPath & Mid(Dir(strPath & "*", vbDirectory), 6)

Application.FollowHyperlink strPath
2
nanana 2022/12/26 (月) 11:25:01 e48ae@9a838

ありがとうございます。Dir関数を使えばよかったのですね！
助かりました！