ab.com コミュニティ

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

ファイルを開くのは以下の通りですが、

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

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

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

文字列の追加はlstrcat()関数で行うことができます。

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

コード: 全て選択

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を開く

ありがとうございます、

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

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

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

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

定義しましょう。

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

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

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

ab.com コミュニティ

複数ファイルを開く

複数ファイルを開く

Re: 複数ファイルを開く