| |
本日も宜しくお願い致します。
WindowsAPIのSHBrowseForFolderを使用して、
ダイアログを表示によるフォルダ選択を行う際、
「Esc」ボタンにてキャンセルするとエラーが発生します。
しかし、1ステップずつ実行すると、エラーにはなりません。
1.エラーになるパターン
ｼｰﾄ上のｺﾏﾝﾄﾞﾎﾞﾀﾝｸﾘｯｸ→ﾓｼﾞｭｰﾙ呼出「GetFoldName」
→ｼｰﾄ上のｾﾙに取得値ｾｯﾄ
2.エラーが発生しないパターン
ｼｰﾄ上のｺﾏﾝﾄﾞﾎﾞﾀﾝｸﾘｯｸ→ﾕｰｻﾞｰﾌｫｰﾑ（実行ﾎﾞﾀﾝのみ付加）表示
→ﾕｰｻﾞｰﾌｫｰﾑのﾎﾞﾀﾝｸﾘｯｸ→ﾓｼﾞｭｰﾙ呼出「GetFoldName」
ﾕｰｻﾞｰﾌｫｰﾑUnload→ｼｰﾄ上のｾﾙに取得値ｾｯﾄ
一般的には、ｼｰﾄから直接ﾓｼﾞｭｰﾙを呼び出すというやり方は
使用されないのでしょうか？
若しくは、回避策があるのでしょうか？
※機能の検証をしていたので、他の処理は書かれていません。
（ｼｰﾄﾛｼﾞｯｸ）
Private Sub Button_Click()
Dim FoldName as String
FoldName = GetFoldName()
End Sub
（標準ﾓｼﾞｭｰﾙ）
http://homepage1.nifty.com/OkaLab/Program/VbTips01.html#01
を参照したAPIを標準ﾓｼﾞｭｰﾙに宣言
Function GetFoldName() As String
Dim buf As String * 260
Dim buf2 As String * 260
Dim Ret As Long
Dim Operation As BROWSEINFO
With Operation
.pidlRoot = 0
.pszDisplayName = Space(Len(sbuf))
.hwndOwner = FindWindow("XLMAIN", Application.Caption)
.lpszTitle = ""
.ulFlags = &H3
End With
Ret = SHBrowseForFolder(Operation) ←ﾃﾞﾊﾞｯｸではここで黄色になります
If Ret = 0 Then Exit Function
SHGetPathFromIDList ByVal Ret, ByVal sbuf
GetFolderName = Left(sbuf, InStr(sbuf, vbNullChar) - 1)
If Right(F_GetFolderName, 1) = "\" Then
GetFolderName = Left(sbuf, InStr(sbuf, vbNullChar) - 2)
End If
End Function
ご存知の方、ご教授の程宜しくお願い致します。
|
|
初心者
- 03/10/14(火) 16:54 -
