ab.com コミュニティ

最近必要になったので、調べまわって書いてみました。

BytePtr型がいまいち理解できていないので、とりあえず戻り値はString型でやってます。
BytePtrってmalloc関数使わないと文字入れられないのか思ってたけど、そうでもないのね。

一応動きますが、直せる方がいらっしゃいましたら直してください。

[ここをクリックすると内容が表示されます]

コード: 全て選択

関数名は適当です。
hWnd→オーナーウインドウのハンドル
DialogName→ダイアログに表示するタイトル的な奴
Flags→オプションフラグ。0を指定すると、とりあえず動作するフラグが入ります。
Root→ルートフォルダの指定。ここで指定したフォルダー以下が表示されます。0でマイコン
戻り値→取得したフォルダーパスが返ります

Flagsのオプション的なのを拾ってきました。

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function SelectFolderPath(hWnd As HWND,DialogName As BytePtr,Flags As Long,Root As Long) As String
	Dim bor As BROWSEINFO
	Dim path[1025] As Byte
	Dim id As Long
	Dim str As String
	Dim text As String

	If DialogName="" Then
		DialogName="フォルダーの選択"
	End If

	If Flags=0 Then
		Flags=BIF_DONTGOBELOWDOMAIN or &H1
	End If

	If Root=0 Then
		Root=&H0
	End If

	With bor
		.hwndOwner=hMainWnd
		.lpszTitle=DialogName
		.ulFlags=Flags
		.pidlRoot=Root
	End With
	
	id=SHBrowseForFolder(bor)
	If id=FALSE Then
		Exit Function
	End If

	SHGetPathFromIDList(id,path)

	text=MakeStr(path)
	free(path)

	str=Right$(text,1)
	If str<>"\" Then
		text=text+"\"
	End If

	SelectFolderPath=text

End Function

とりあえず、これだけあれば使えるかなぁ･･･って感じです。
後は適当に調べてください～

蛇足ですが、
SHBrowseForFolder関数で返って来る数値でファイルパスが決まるとは思ってもいなかった。
SHGetPathFromIDList関数はどうやって識別しているのか謎。
まあ、今の自分には理解できない事でしょうが･･･

良かったら使ってみてください～
重複あったらすいません。

ウインドー系のプログラムでないのでhMainWndを使用していなくて、そのためコンパイルエラーが出て気が付きました。

確認ですが
With bor
.hwndOwner=hMainWnd
.lpszTitle=DialogName
.ulFlags=Flags
.pidlRoot=Root
End With
は
With bor
.hwndOwner=hWnd
.lpszTitle=DialogName
.ulFlags=Flags
.pidlRoot=Root
End With
が正解ですね。

せっかくhWndを指定するので生かしたほうがよいと思います。
いかがでしょうか？

確認ですが
With bor
.hwndOwner=hMainWnd
.lpszTitle=DialogName
.ulFlags=Flags
.pidlRoot=Root
End With

は

With bor
.hwndOwner=hWnd
.lpszTitle=DialogName
.ulFlags=Flags
.pidlRoot=Root
End With
が正解ですね。

せっかくhWndを指定するので生かしたほうがよいと思います。
いかがでしょうか？

おぶしっ。
はい、思いっきりミスです。

もともとは、まず自分で使う用に参考にしながら組んで、それから適当に関数にしてここに書きましたので、
そのときのミスですね･･･

↓修正版です

[ここをクリックすると内容が表示されます]

コード: 全て選択

Function SelectFolderPath(hWnd As HWND,DialogName As BytePtr,Flags As Long,Root As Long) As String
    Dim bor As BROWSEINFO
    Dim path[1025] As Byte
    Dim id As Long
    Dim str As String
    Dim text As String

    If DialogName="" Then
        DialogName="フォルダーの選択"
    End If

    If Flags=0 Then
        Flags=BIF_DONTGOBELOWDOMAIN or &H1
    End If

    If Root=0 Then
        Root=&H0
    End If

    With bor
        .hwndOwner=hWnd
        .lpszTitle=DialogName
        .ulFlags=Flags
        .pidlRoot=Root
    End With
    
    id=SHBrowseForFolder(bor)
    If id=FALSE Then
        Exit Function
    End If

    SHGetPathFromIDList(id,path)

    text=MakeStr(path)
    free(path)

    str=Right$(text,1)
    If str<>"\" Then
        text=text+"\"
    End If

    SelectFolderPath=text

End Function

しなくても分かるかな？ｗ

ちなみに何で関数の形にしてここに置くかと言うと、
自分がまだプログラミングのぷの字も知らない頃、とにかく慣れようと手当たり次第ここのコードをコピペしてました。
そのときに関数の形で置いてくれている方の物はものすごく助かったので、
自分も（多少ですが）公開できるようになった今、そんな人に向けて関数の形で書いてます。

はい、どーでもいいですね　笑

また修正点などありましたら、遠慮なく突っ込んであげてください～

DialogNameはBytePtrなので、
文字列と直接ひかくするのは良くない。

コード: 全て選択


   If DialogName[0]=0 Then
        lstrcpy(DialogName,"フォルダーの選択")
    End If

引数をDialogName As Stringにして
.lpszTitle=StrPtr(DialogName)
とでもすべき。

DialogNameはBytePtrなので、
文字列と直接ひかくするのは良くない。

ぬ･･･そうなのですか･･･
やはりまだまだ自分は分かってない事が多いですね･･･

コード: 全て選択


If DialogName[0]=0 Then
        lstrcpy(DialogName,"フォルダーの選択")
    End If

こちらに書き換えてご使用ください～

ab.com コミュニティ

フォルダーの選択ダイアログ

フォルダーの選択ダイアログ

確認ですが

フォルダーの選択ダイアログ

フォルダーの選択ダイアログ