ab.com コミュニティ

アドバイスありがとうございます。うまくいきました！

[hide]Dim ofn As OPENFILENAME
Dim FileName[MAX_PATH-1] As Byte
'OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn),Len(ofn),0)
ofn.lStructSize=Len(ofn)
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.lpstrFile=FileName
ofn.nMaxFile=MAX_PATH
ofn.lpstrTitle="ファイルを開く"
ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
[u][b]ofn.nFileOffset=0[/b][/u]

ofn.lpstrDefExt="*"

'「ファイルを開く」ダイアログ ボックスを表示
If GetOpenFileName(ofn)=0 Then Exit Sub
' まずFileNameを開く
[u][b]Dim ka As String
ka=Str$(ofn.nFileOffset)
Exec Mid$(FileName,1,Val(ka))[/b][/u][/hide]

>>「メンバは定義されてません」　と出てしまいます。

定義しましょう。

>ofn.lpstrTitle="ファイルを開く"
>ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
>'---追加---
>ofn.nFileOffset=0
>'---追加終了---
>ofn.lpstrDefExt="*"

ありがとうございます、

また、開いたファイルが属しているフォルダのパスを取得しようとしています。

[u]OPENFILENAME[/u]で　[u]ofn.FileOffset[/u]（ファイルパスまでのバイト数）を使って、
ファイルパスから[u]Ｍid$[/u]でフォルダパスを取得しようと思いますが、
「メンバは定義されてません」　と出てしまいます。

そもそもこのやり方でよいのですか、教えてください。

Dim ofn As OPENFILENAME
Dim FileName[MAX_PATH-1] As Byte
	'OPENFILENAME構造体の初期化
	FillMemory(VarPtr(ofn),Len(ofn),0)
	ofn.lStructSize=Len(ofn)
	ofn.hwndOwner=hMainWnd
	ofn.lpstrFilter=Ex"すべてのファイル(*.*)\0*\0\0"
	ofn.nFilterIndex=1
	ofn.lpstrFile=FileName
	ofn.nMaxFile=MAX_PATH
	ofn.lpstrTitle="ファイルを開く"
	ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
	ofn.lpstrDefExt="*"

	'「ファイルを開く」ダイアログ ボックスを表示
	If GetOpenFileName(ofn)=0 Then Exit Sub
	' まずFileNameを開く

	' 開いた後に "data.txt" を追加
	lstrcat(FileName,"data.txt")
	' FileNameを開く

> 開いたファイルと同じ階に　"開いたファイル名&data.txt"　があって、
> それも開きたいときはどうすればいいのですか？
>
> いちいち２回ダイアログ　ボックスを表示させるしかないのでしょうか？
一回目、ダイアログボックスを表示してユーザーがファイルを選択した場合、Byte型変数[b]FileName[/b]にファイルへの絶対パスが格納されるので、そのパスに "[b]data.txt[/b]" を追加するだけで開くことができます。

文字列の追加はlstrcat()関数で行うことができます。
[hide][code]Dim ofn As OPENFILENAME
Dim FileName[MAX_PATH-1] As Byte
'OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn),Len(ofn),0)
ofn.lStructSize=Len(ofn)
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.lpstrFile=FileName
ofn.nMaxFile=MAX_PATH
ofn.lpstrTitle="ファイルを開く"
ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
ofn.lpstrDefExt="*"

'「ファイルを開く」ダイアログ ボックスを表示
If GetOpenFileName(ofn)=0 Then Exit Sub
' まずFileNameを開く

' 開いた後に "data.txt" を追加
lstrcat(FileName,"data.txt")
' FileNameを開く[/code][/hide]

Ｚ１３です。先回はありがとうございました。

ファイルを開くのは以下の通りですが、
[hide]Dim ofn As OPENFILENAME
Dim FileName[MAX_PATH-1] As Byte
'OPENFILENAME構造体の初期化
FillMemory(VarPtr(ofn),Len(ofn),0)
ofn.lStructSize=Len(ofn)
ofn.hwndOwner=hMainWnd
ofn.lpstrFilter=Ex"すべてのファイル(*.*)\0*\0\0"
ofn.nFilterIndex=1
ofn.lpstrFile=FileName
ofn.nMaxFile=MAX_PATH
ofn.lpstrTitle="ファイルを開く"
ofn.Flags=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_PATHMUSTEXIST
ofn.lpstrDefExt="*"

'「ファイルを開く」ダイアログ ボックスを表示
If GetOpenFileName(ofn)=0 Then Exit Sub[/hide]

開いたファイルと同じ階に　"開いたファイル名&data.txt"　があって、
それも開きたいときはどうすればいいのですか？

いちいち２回ダイアログ　ボックスを表示させるしかないのでしょうか？
教えてください。