投稿日 | : 2007/04/18(Wed) 19:07 |
投稿者 | : 魔界の仮面弁士 |
Eメール | : |
URL | : |
タイトル | : Re: 選択したフォルダを表示させるアプリの不具合について |
> Option Private Module
Office の VBA (Visual Basic for Applications) をお使いなのでしょうか?
単体の VB6 (Visual Basic 6.0) をお使いなら、この宣言は無意味だと思いますが…。
> Type BROWSEINFO
> hwnd As Long
> pidlRoot As Long
> pszDisplayName As String
> myTitle As String
> opFlags As Long
> End Type
BROWSEINFO ユーザ定義型の宣言が、
BROWSEINFO 構造体と異なっていますね。これが最大の問題かと。
> With typBROWSEINFO
オーナウィンドウなども指定しましょう。
> LngPit = SHBrowseForFolder(typBROWSEINFO)
> If LngPit = 0 Then Call SHFree(LngPit): GetFolderPathName = "": Exit Function
ここで、『Call SHFree(0)』を呼び出している理由は何ですか?
> For xx = 1 To 256
> If Mid(strPathName, xx, 1) = Chr(0) Then
ループせずとも、InStr 関数を使えばすむのでは。